Changeset 12957 for NEMO/branches/2020/dev_12905_xios_restart/src/OCE/DOM/daymod.F90

Timestamp:

2020-05-20T18:53:27+02:00 (4 years ago)

Author:

andmirek

Message:

Ticket #2462: write/read SI3 restart with XIOS (has debug print statements)

File:

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

NEMO/branches/2020/dev_12905_xios_restart/src/OCE/DOM/daymod.F90

@@ -403 +403 @@
          ! calendar control
          IF( lwxios ) CALL iom_swap(      cwxios_context          )
-         ENDIF
          CALL iom_rstput( kt, nitrst, numrow, 'kt'     , REAL( kt    , wp)  , ldxios = lwxios )   ! time-step
          CALL iom_rstput( kt, nitrst, numrow, 'ndastp' , REAL( ndastp, wp)  , ldxios = lwxios )   ! date