- Timestamp:
- 2018-02-12T14:29:34+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90
r8046 r9321 26 26 USE divcur ! hor. divergence and curl (div & cur routines) 27 27 USE sbc_oce ! for icesheet freshwater input variables 28 USE timing 28 29 29 30 IMPLICIT NONE … … 134 135 INTEGER, INTENT(in) :: kt ! ocean time-step 135 136 !!---------------------------------------------------------------------- 136 137 IF(nn_timing == 2) CALL timing_start('iom_rstput') 137 138 CALL iom_rstput( kt, nitrst, numrow, 'rdt' , rdt ) ! dynamics time step 138 139 CALL iom_rstput( kt, nitrst, numrow, 'rdttra1', rdttra(1) ) ! surface tracer time step … … 168 169 ENDIF 169 170 ENDIF 171 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 170 172 171 173 IF( kt == nitrst ) THEN … … 237 239 238 240 ! Check dynamics and tracer time-step consistency and force Euler restart if changed 241 IF(nn_timing == 2) CALL timing_start('iom_rstget') 239 242 IF( iom_varid( numror, 'rdt', ldstop = .FALSE. ) > 0 ) THEN 240 243 CALL iom_get( numror, 'rdt', zrdt ) … … 300 303 antarctica_icesheet_timelapsed = 0.0 301 304 ENDIF 302 305 IF(nn_timing == 2) CALL timing_stop('iom_rstget') 303 306 IF( neuler == 0 ) THEN ! Euler restart (neuler=0) 304 307 tsb (:,:,:,:) = tsn (:,:,:,:) ! all before fields set to now values
Note: See TracChangeset
for help on using the changeset viewer.