Changeset 3000 for trunk/LMDZ.COMMON/libf

Timestamp:

Jul 19, 2023, 11:55:56 AM (2 years ago)

Author:

jbclement

Message:

Mars PCM:
Some adaptations to make the 1D model run with XIOS and MPICH for use with 1D PEM.
JBC

File:

• trunk/LMDZ.COMMON/libf/evolution/init_phys_1d_mod.F90 (modified) (2 diffs)

trunk/LMDZ.COMMON/libf/evolution/init_phys_1d_mod.F90 ¶

@@ -54 +54 @@
       use physics_distribution_mod, only: init_physics_distribution
       use iostart, only: open_startphy,get_var, close_startphy
-
+#ifdef CPP_XIOS
+      use mod_const_mpi, only: COMM_LMDZ
+#endif
       include "dimensions.h"
       integer, parameter :: ngrid = 1 !(2+(jjm-1)*iim - 1/jjm)
@@ -261 +263 @@
 
       call init_physics_distribution(regular_lonlat,4,&
-                                    1,1,1,nlayer,1)
+                                    1,1,1,nlayer,COMM_LMDZ)
 
       call open_startphy("startfi_evol.nc")