Changeset 2997 for trunk/LMDZ.MARS/libf/phymars/dyn1d

Timestamp:

Jul 18, 2023, 10:05:35 AM (18 months ago)

Author:

emillour

Message:

Mars PCM:
Some adaptations to enable running the 1D model with XIOS.
Note that this requires compiling with "-io xios -parallel mpi"
but the model should then be run using a single core, i.e. without mpirun
EM

Location:

trunk/LMDZ.MARS/libf/phymars/dyn1d

Files:

• mod_const_mpi.F90 (added)
• parallel_lmdz.F90 (added)
• testphys1d.F (modified) (2 diffs)

trunk/LMDZ.MARS/libf/phymars/dyn1d/testphys1d.F

@@ -42 +42 @@
       use iostart, only: open_startphy,get_var, close_startphy
       use write_output_mod, only: write_output
+#ifdef CPP_XIOS
+      use mod_const_mpi, only: init_const_mpi
+      use parallel_lmdz, only: init_parallel
+#endif
       IMPLICIT NONE
 
@@ -169 +173 @@
 c INITIALISATION
 c=======================================================================
+#ifdef CPP_XIOS
+      CALL init_const_mpi
+      CALL init_parallel
+#endif
+
 ! initialize "serial/parallel" related stuff
 !      CALL init_phys_lmdz(iim,jjp1,llm,1,(/(jjm-1)*iim+2/))