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

Timestamp:

2019-11-13T09:48:43+01:00 (4 years ago)

Author:

andmirek

Message:

Ticket #2323 read/write SI3 restart file

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 defined key_iomput
       IF( kstp == nitend .OR. indic < 0 ) THEN 
-                      CALL iom_context_finalize(      cxios_context          ) ! needed for XIOS+AGRIF
-                      IF(lrxios) THEN
-                         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
+            CALL iom_context_finalize(      crixios_context          )
+#endif
+         ENDIF
+         IF(lwxios) CALL iom_context_finalize(      cwxios_context          )
          IF( ln_crs ) CALL iom_context_finalize( trim(cxios_context)//"_crs" ) ! 
+         CALL iom_context_finalize(      cxios_context          ) ! needed for XIOS+AGRIF
       ENDIF
 #endif