Changeset 1852 for LMDZ5/trunk/libf/dyn3dpar/parallel_lmdz.F90

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/parallel_lmdz.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/dyn3dpar/parallel_lmdz.F90

@@ -199 +199 @@
     
     subroutine Finalize_parallel
+#ifdef CPP_XIOS
+    ! ug Pour les sorties XIOS
+        USE wxios
+#endif
 #ifdef CPP_COUPLE
     use mod_prism_proto
@@ -232 +236 @@
 #endif 
       else
+#ifdef CPP_XIOS
+    !Fermeture propre de XIOS
+      CALL wxios_close()
+#endif
 #ifdef CPP_MPI
          IF (using_mpi) call MPI_FINALIZE(ierr)