Changeset 12950 for NEMO/branches/2020/dev_12905_xios_restart/src/OCE/step.F90

Timestamp:

2020-05-19T12:53:16+02:00 (4 years ago)

Author:

andmirek

Message:

Ticket #2462: new XIOS restart read/write interfaces

File:

• NEMO/branches/2020/dev_12905_xios_restart/src/OCE/step.F90 (modified) (1 diff)

NEMO/branches/2020/dev_12905_xios_restart/src/OCE/step.F90

@@ -122 +122 @@
                              CALL iom_init_closedef
          IF( ln_crs      )   CALL iom_init( TRIM(cxios_context)//"_crs" )  ! for coarse grid
+      ELSEIF((kstp == nitrst) .AND. lwxios) THEN
+         CALL iom_swap(      cwxios_context          )
+         CALL iom_init_closedef(cwxios_context)
+         CALL iom_setkt( kstp - nit000 + 1,      cwxios_context          )
+         CALL iom_swap(      cwxios_context          )
       ENDIF
       IF( kstp /= nit000 )   CALL day( kstp )         ! Calendar (day was already called at nit000 in day_init)