Changeset 8816 for branches/2017/dev_r8600_xios_read_write_v2/NEMOGCM/NEMO/SAS_SRC/step.F90

Timestamp:

2017-11-27T12:01:56+01:00 (7 years ago)

Author:

andmirek

Message:

#1953 and #1962 XIOS read/write in SAS

File:

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

branches/2017/dev_r8600_xios_read_write_v2/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