Changeset 2055 for LMDZ5/trunk/libf/dyn3dpar/mod_const_mpi.F90

Timestamp:

Jun 4, 2014, 2:33:27 PM (10 years ago)

Author:

acaubel

Message:

Modifications in order to run forced configuration with coupled executable
i.e replaced the use of cpp key CPP_PARA by the use of type_ocean flag.

File:

• LMDZ5/trunk/libf/dyn3dpar/mod_const_mpi.F90 (modified) (1 diff)

LMDZ5/trunk/libf/dyn3dpar/mod_const_mpi.F90

@@ -45 +45 @@
 !$OMP MASTER
 #ifdef CPP_XIOS
-      CALL wxios_init("LMDZ", outcom=COMM_LMDZ)
+      CALL wxios_init("LMDZ", outcom=COMM_LMDZ, type_ocean=type_ocean)
 #else
        CALL prism_init_comp_proto (comp_id, 'LMDZ', ierr)