Add change_dir routine to mo_os
We need a change_dir routine that works with all compilers
!> \brief Change current working directory.
subroutine change_dir(path)
#ifdef NAG
use f90_unix_dir, only : CHDIR
#endif
#ifdef INTEL
use ifport, only : CHDIR
#endif
use mo_message, only: error_message
use mo_kind, only: i4
implicit none
character(*), intent(in) :: path !< path to change CWD to
integer(i4) :: chdir_error
#ifdef INTEL
chdir_error = chdir(path)
#else
call chdir(path, chdir_error)
#endif
if (chdir_error /= 0) call error_message("Can't open directory: ", path)
end subroutine change_dir