Changeset 13001

Timestamp:

2020-06-01T16:04:39+02:00 (4 years ago)

Author:

andmirek

Message:

ticket #2462 update test branch with changes from dev branch

File:

• NEMO/branches/2020/test_12905_xios_restart/src/OFF/nemogcm.F90 (modified) (1 diff)

NEMO/branches/2020/test_12905_xios_restart/src/OFF/nemogcm.F90

@@ -112 +112 @@
       DO WHILE ( istp <= nitend .AND. nstop == 0 )    !==  OFF time-stepping  ==!
          !
+      IF((istp == nitrst) .AND. lwxios) THEN
+         CALL iom_swap(      cwtxios_context          )
+         CALL iom_init_closedef(cwtxios_context)
+         CALL iom_setkt( istp - nit000 + 1,      cwtxios_context          )
+      ENDIF
+
          IF( istp /= nit000 )   CALL day        ( istp )         ! Calendar (day was already called at nit000 in day_init)
                                 CALL iom_setkt  ( istp - nit000 + 1, cxios_context )   ! say to iom that we are at time step kstp