Changeset 3985 for trunk/NEMOGCM/NEMO/OPA_SRC/step.F90

Timestamp:

2013-07-23T01:22:47+02:00 (11 years ago)

Author:

smasson

Message:

trunk: bugfix to force the model to stop correctly with XIOS, part 1, see #1135

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/step.F90 (modified) (1 diff)

trunk/NEMOGCM/NEMO/OPA_SRC/step.F90

@@ -271 +271 @@
       !
 #if defined key_iomput
-      IF( kstp == nitend   )   CALL xios_context_finalize() ! needed for XIOS+AGRIF
+      IF( kstp == nitend .OR. indic < 0 )   CALL xios_context_finalize() ! needed for XIOS+AGRIF
 #endif
       !