Changeset 12951

Timestamp:

2020-05-19T13:02:48+02:00 (4 years ago)

Author:

andmirek

Message:

Ticket #2462: remove commentted out testing lines

Location:

NEMO/branches/2020/dev_12905_xios_restart/src/OCE

Files:

• DOM/daymod.F90 (modified) (1 diff)
• IOM/iom.F90 (modified) (1 diff)

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

@@ -402 +402 @@
          ENDIF
          ! calendar control
-         IF( lwxios ) THEN
-            CALL iom_swap(      cwxios_context          )
-!           IF( kt == nitrst ) THEN
-!               CALL iom_init_closedef(cwxios_context)
-!               CALL iom_setkt( kt - nit000 + 1,      cwxios_context          )
-!               CALL iom_swap(      cwxios_context          )
-!           ENDIF
+         IF( lwxios ) CALL iom_swap(      cwxios_context          )
          ENDIF
          CALL iom_rstput( kt, nitrst, numrow, 'kt'     , REAL( kt    , wp)  , ldxios = lwxios )   ! time-step

NEMO/branches/2020/dev_12905_xios_restart/src/OCE/IOM/iom.F90

@@ -472 +472 @@
 
         CALL xios_get_handle("wrestart", file_hdl)
-!       CALL xios_get_file_attr("wrestart", name = fname )
-!       IF(lwp) write(numout, *) TRIM(fname), ' File to write'
-!       IF(lwp) call flush(numout)
 !define fields for restart context
         CALL xios_add_child(file_hdl, field_hdl, TRIM(sdfield))