Changeset 3255 for trunk

Timestamp:

Mar 6, 2024, 6:28:22 PM (9 months ago)

Author:

emillour

Message:

Venus PCM:
Adapt rcm1d to be able to run 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.VENUS/libf/phyvenus/dyn1d

Files:

• mod_const_mpi.F90 (added)
• parallel_lmdz.F90 (added)
• rcm1d.F (modified) (3 diffs)

trunk/LMDZ.VENUS/libf/phyvenus/dyn1d/rcm1d.F

@@ -16 +16 @@
       USE physiq_mod, ONLY: physiq
       USE logic_mod, ONLY: iflag_trac
+! For XIOS outputs:
+      USE mod_const_mpi, ONLY: init_const_mpi
+      USE parallel_lmdz, ONLY: init_parallel
       IMPLICIT NONE
 
@@ -24 +27 @@
 c       
 c Can be compiled with a command like (e.g. for 50 layers)
-c  "makelmdz -p venus -d 50 rcm1d"
+c  "makelmdz_lmdz -p venus -d 50 rcm1d"
+c If you want XIOS outputs, then you'll need to compile with MPI and xios:
+c  "makelmdz_lmdz -p venus -parallel mpi -io xios -d 50 rcm1d"
+c but the model should then be run using a single core, i.e. without mpirun
 
 c It requires the files "rcm1d.def" "physiq.def"
@@ -98 +104 @@
       lunout = 6
 
+#ifdef CPP_XIOS
+      call init_const_mpi
+      call init_parallel
+#endif
+
       mmol =     (/44., 28.,  2., 18., 16.,   
      &       16., 32., 32., 48.,  1.,