Changeset 2054 for LMDZ5/trunk/libf/dyn3dmem/mod_const_mpi.F90

Timestamp:

Jun 3, 2014, 5:07:16 PM (10 years ago)

Author:

acaubel

Message:

Modifications to run LMDZ in coupled mode with both OASIS-MCT and XIOS.

File:

• LMDZ5/trunk/libf/dyn3dmem/mod_const_mpi.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/dyn3dmem/mod_const_mpi.F90

@@ -21 +21 @@
     USE mod_prism
 #endif
+#ifdef CPP_XIOS
+    USE wxios, only: wxios_init
+#endif
     IMPLICIT NONE
 #ifdef CPP_MPI
@@ -41 +44 @@
 #ifdef CPP_COUPLE
 !$OMP MASTER
-       CALL prism_init_comp_proto (comp_id, 'lmdz.x', ierr)
+#ifdef CPP_XIOS
+      CALL wxios_init("LMDZ", outcom=COMM_LMDZ)
+#else
+       CALL prism_init_comp_proto (comp_id, 'LMDZ', ierr)
        CALL prism_get_localcomm_proto(COMM_LMDZ,ierr)
+#endif
 !$OMP END MASTER
 #endif