Changeset 4153 for branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/OPA_SRC/step.F90

Timestamp:

2013-11-05T13:25:45+01:00 (10 years ago)

Author:

cetlod

Message:

dev_LOCEAN_2013: merge in trunk changes between r3940 and r4028, see ticket #1169

File:

• branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/OPA_SRC/step.F90 (modified) (1 diff)

branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/OPA_SRC/step.F90

@@ -284 +284 @@
       IF( lk_cpl           )   CALL sbc_cpl_snd( kstp )     ! coupled mode : field exchanges
       !
-      IF( kstp == nitend   )  THEN
+#if defined key_iomput
+      IF( kstp == nitend .OR. indic < 0 ) THEN 
                       CALL iom_context_finalize( "nemo"     ) ! needed for XIOS+AGRIF
          IF( ln_crs ) CALL iom_context_finalize( "nemo_crs" ) ! 
       ENDIF
+#endif
       !
       IF( nn_timing == 1 .AND.  kstp == nit000  )   CALL timing_reset