Changeset 1825 for LMDZ5/trunk/libf/dyn3d/abort_gcm.F

Timestamp:

Aug 2, 2013, 4:36:53 PM (11 years ago)

Author:

Ehouarn Millour

Message:

Première étape de l'implémentation de XIOS. Modifications isolées dans des flags CPP_XIOS. Sorties opérationnelles (sauf stations et régionalisation) en modes séquentiel et omp, pas mpi.
UG
...........................................
First step of the XIOS implementation. Modifications are confined into CPP_XIOS flags. Output is operationnal (except for stations and regionalization) in sequential and omp modes (not mpi).
UG

File:

• LMDZ5/trunk/libf/dyn3d/abort_gcm.F (modified) (2 diffs)

LMDZ5/trunk/libf/dyn3d/abort_gcm.F

@@ -12 +12 @@
       USE ioipsl_getincom
 #endif
+
+#ifdef CPP_XIOS
+    ! ug Pour les sorties XIOS
+      USE wxios
+#endif
+
 #include "iniprint.h"
  
@@ -27 +33 @@
 
       write(lunout,*) 'in abort_gcm'
+
+#ifdef CPP_XIOS
+    !Fermeture propre de XIOS
+      CALL wxios_close()
+#endif
+
 #ifdef CPP_IOIPSL
       call histclo