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

Timestamp:

Jul 21, 2023, 7:09:33 AM (18 months ago)

Author:

emillour

Message:

Mars PCM:
Follow-up to r3000. When in 1D without XIOS COMM_LMDZ still needs to be defined
even if not technically used, so keep the "use" in all cases.
EM

File:

• trunk/LMDZ.MARS/libf/phymars/dyn1d/testphys1d.F (modified) (1 diff)

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

@@ -43 +43 @@
       use iostart, only: open_startphy,get_var, close_startphy
       use write_output_mod, only: write_output
-#ifdef CPP_XIOS
+! mostly for  XIOS outputs: 
       use mod_const_mpi, only: init_const_mpi, COMM_LMDZ
       use parallel_lmdz, only: init_parallel
-#endif
+
       IMPLICIT NONE