Changeset 13871 for NEMO/branches/2020/dev_12905_xios_restart/src/OFF

Timestamp:

2020-11-25T12:51:29+01:00 (4 years ago)

Author:

andmirek

Message:

Ticket #2462: Addressing reviewr comments stage 1

File:

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

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

@@ -127 +127 @@
          !
       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          )
+         CALL iom_swap(      cw_toprst_cxt          )
+         CALL iom_init_closedef(cw_toprst_cxt)
+         CALL iom_setkt( istp - nit000 + 1,      cw_toprst_cxt          )
       ENDIF