Changeset 11837 for NEMO/branches/2019/dev_r11756_SI3restart_XIOS/src/OCE/step.F90

Timestamp:

2019-10-30T15:10:36+01:00 (4 years ago)

Author:

andmirek

Message:

ticket #2323 read SI3 restart with XIOS

File:

• NEMO/branches/2019/dev_r11756_SI3restart_XIOS/src/OCE/step.F90 (modified) (1 diff)

NEMO/branches/2019/dev_r11756_SI3restart_XIOS/src/OCE/step.F90

@@ -311 +311 @@
       IF( kstp == nitend .OR. indic < 0 ) THEN 
                       CALL iom_context_finalize(      cxios_context          ) ! needed for XIOS+AGRIF
-                      IF(lrxios) CALL iom_context_finalize(      crxios_context          )
+                      IF(lrxios) THEN
+                         CALL iom_context_finalize(      crxios_context          )
+#if defined key_si3
+                         CALL iom_context_finalize(      crixios_context          )
+#endif
+                      ENDIF
          IF( ln_crs ) CALL iom_context_finalize( trim(cxios_context)//"_crs" ) ! 
       ENDIF