Changeset 8924 for branches/2017/dev_METO_2017/NEMOGCM/NEMO/SAS_SRC/step.F90

Timestamp:

2017-12-06T16:16:55+01:00 (7 years ago)

Author:

timgraham

Message:

Reverted last merge as I can't get the XIOS read branch to compile

File:

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

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

@@ -122 +122 @@
 
 #if defined key_iomput
-      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
+      IF( kstp == nitend .OR. indic < 0 ) THEN 
                              CALL iom_context_finalize( cxios_context ) ! needed for XIOS+AGRIF
       ENDIF