Changeset 13001
- Timestamp:
- 2020-06-01T16:04:39+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/test_12905_xios_restart/src/OFF/nemogcm.F90
r12977 r13001 112 112 DO WHILE ( istp <= nitend .AND. nstop == 0 ) !== OFF time-stepping ==! 113 113 ! 114 IF((istp == nitrst) .AND. lwxios) THEN 115 CALL iom_swap( cwtxios_context ) 116 CALL iom_init_closedef(cwtxios_context) 117 CALL iom_setkt( istp - nit000 + 1, cwtxios_context ) 118 ENDIF 119 114 120 IF( istp /= nit000 ) CALL day ( istp ) ! Calendar (day was already called at nit000 in day_init) 115 121 CALL iom_setkt ( istp - nit000 + 1, cxios_context ) ! say to iom that we are at time step kstp
Note: See TracChangeset
for help on using the changeset viewer.