- Timestamp:
- 2017-05-26T12:09:41+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r7573_xios_write/NEMOGCM/NEMO/OPA_SRC/DOM/daymod.F90
r6487 r8079 35 35 USE timing ! Timing 36 36 USE restart ! restart 37 USE iom_def, ONLY : lwxios 37 38 38 39 IMPLICIT NONE … … 359 360 ENDIF 360 361 ! calendar control 361 CALL iom_rstput( kt, nitrst, numrow, 'kt' , REAL( kt , wp) ) ! time-step 362 CALL iom_rstput( kt, nitrst, numrow, 'ndastp' , REAL( ndastp, wp) ) ! date 363 CALL iom_rstput( kt, nitrst, numrow, 'adatrj' , adatrj ) ! number of elapsed days since 362 IF( lwxios ) CALL iom_swap( wxios_context ) 363 CALL iom_rstput( kt, nitrst, numrow, 'kt' , REAL( kt , wp), lxios = lwxios ) ! time-step 364 CALL iom_rstput( kt, nitrst, numrow, 'ndastp' , REAL( ndastp, wp), lxios = lwxios ) ! date 365 CALL iom_rstput( kt, nitrst, numrow, 'adatrj' , adatrj, lxios = lwxios ) ! number of elapsed days since 364 366 ! ! the begining of the run [s] 367 IF( lwxios ) CALL iom_swap( cxios_context ) 365 368 ENDIF 366 369 !
Note: See TracChangeset
for help on using the changeset viewer.