Changeset 9367 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/SAS_SRC/step.F90

Timestamp:

2018-02-28T17:23:20+01:00 (6 years ago)

Author:

mathiot

Message:

Add restart read/write via XIOS capability (#1953 and #1962 and twiki: 2017WP/Met_Office-1_Mirek_XIOSread). WARNING: need to upgrade XIOS to r1296 to compile

File:

• branches/2017/dev_merge_2017/NEMOGCM/NEMO/SAS_SRC/step.F90 (modified) (1 diff)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/SAS_SRC/step.F90

@@ -122 +122 @@
 
 #if defined key_iomput
-      IF( kstp == nitend .OR. indic < 0 ) THEN 
+      IF( kstp == nitrst ) THEN
+         IF(.NOT.lwxios) THEN
+            CALL iom_close( numrow )     
+         ELSE
+            CALL iom_context_finalize( cwxios_context )
+         ENDIF
+         lrst_oce = .FALSE.
+      ENDIF
+      IF( kstp == nitend .OR. indic < 0 ) THEN
                              CALL iom_context_finalize( cxios_context ) ! needed for XIOS+AGRIF
       ENDIF