Changeset 1852 for LMDZ5/trunk/libf/dyn3dpar/gcm.F

Timestamp:

Aug 30, 2013, 10:47:10 AM (11 years ago)

Author:

Ehouarn Millour

Message:

Implémentation des sorties XIOS dans LMDZ. Activation via -cpp CPP_XIOS.
ATTENTION: un problème de raccord subsiste en mode MPI !
UG
................................
Adding XIOS output to LMDZ. Activated by the CPP_XIOS key.
WARNING: buggy for now in MPI mode.
UG

File:

• LMDZ5/trunk/libf/dyn3dpar/gcm.F (modified) (3 diffs)

LMDZ5/trunk/libf/dyn3dpar/gcm.F

@@ -10 +10 @@
 #endif
 
-
-#ifdef CPP_XIOS
-    ! ug Pour les sorties XIOS
-        USE wxios
-#endif
 
       USE mod_const_mpi, ONLY: init_const_mpi
@@ -192 +187 @@
 c   Initialisation partie parallele
 c------------------------------------
+
       CALL init_const_mpi
-
       call init_parallel
       call ini_getparam("out.def")
@@ -224 +219 @@
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
-#ifdef CPP_XIOS
-        CALL wxios_init("LMDZ")
-#endif
 
 c-----------------------------------------------------------------------