Changeset 9261 for branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90
- Timestamp:
- 2018-01-18T14:59:11+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
r9252 r9261 135 135 INTEGER, INTENT(in) :: kt ! ocean time-step 136 136 !!---------------------------------------------------------------------- 137 IF(nn_timing == 3) CALL timing_start('rst_put')137 IF(nn_timing == 2) CALL timing_start('iom_rstput') 138 138 CALL iom_rstput( kt, nitrst, numrow, 'rdt' , rdt ) ! dynamics time step 139 139 CALL iom_rstput( kt, nitrst, numrow, 'rdttra1', rdttra(1) ) ! surface tracer time step … … 169 169 ENDIF 170 170 ENDIF 171 IF(nn_timing == 3) CALL timing_stop('rst_put')171 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 172 172 173 173 IF( kt == nitrst ) THEN … … 239 239 240 240 ! Check dynamics and tracer time-step consistency and force Euler restart if changed 241 IF(nn_timing == 2) CALL timing_start('iom_rstget') 241 242 IF( iom_varid( numror, 'rdt', ldstop = .FALSE. ) > 0 ) THEN 242 243 CALL iom_get( numror, 'rdt', zrdt ) … … 302 303 antarctica_icesheet_timelapsed = 0.0 303 304 ENDIF 304 305 IF(nn_timing == 2) CALL timing_start('iom_rstget') 305 306 IF( neuler == 0 ) THEN ! Euler restart (neuler=0) 306 307 tsb (:,:,:,:) = tsn (:,:,:,:) ! all before fields set to now values
Note: See TracChangeset
for help on using the changeset viewer.