Changeset 8904 for branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90
- Timestamp:
- 2017-12-05T17:01:17+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90
r8895 r8904 26 26 USE divcur ! hor. divergence and curl (div & cur routines) 27 27 USE sbc_oce ! for icesheet freshwater input variables 28 USE timing29 28 30 29 IMPLICIT NONE … … 135 134 INTEGER, INTENT(in) :: kt ! ocean time-step 136 135 !!---------------------------------------------------------------------- 137 IF(nn_timing == 2) CALL timing_start('rst_put') 136 138 137 CALL iom_rstput( kt, nitrst, numrow, 'rdt' , rdt ) ! dynamics time step 139 138 CALL iom_rstput( kt, nitrst, numrow, 'rdttra1', rdttra(1) ) ! surface tracer time step … … 169 168 ENDIF 170 169 ENDIF 171 IF(nn_timing == 2) CALL timing_stop('rst_put') 170 172 171 IF( kt == nitrst ) THEN 173 172 CALL iom_close( numrow ) ! close the restart file (only at last time step)
Note: See TracChangeset
for help on using the changeset viewer.