Changeset 9261 for branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/DOM/daymod.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/DOM/daymod.F90
r9252 r9261 309 309 IF( iom_varid( numror, 'kt', ldstop = .FALSE. ) > 0 ) THEN 310 310 ! Get Calendar informations 311 IF(nn_timing == 2) CALL timing_start('iom_rstget') 311 312 CALL iom_get( numror, 'kt', zkt ) ! last time-step of previous run 313 IF(nn_timing == 2) CALL timing_stop('iom_rstget') 312 314 IF(lwp) THEN 313 315 WRITE(numout,*) ' *** Info read in restart : ' … … 327 329 ! define ndastp and adatrj 328 330 IF ( nrstdt == 2 ) THEN 331 IF(nn_timing == 2) CALL timing_start('iom_rstget') 329 332 ! read the parameters correspondting to nit000 - 1 (last time step of previous run) 330 333 CALL iom_get( numror, 'ndastp', zndastp ) 331 334 ndastp = NINT( zndastp ) 332 335 CALL iom_get( numror, 'adatrj', adatrj ) 336 IF(nn_timing == 2) CALL timing_stop('iom_rstget') 333 337 ELSE 334 338 ! parameters correspondting to nit000 - 1 (as we start the step loop with a call to day) … … 359 363 ENDIF 360 364 ! calendar control 361 IF(nn_timing == 3) CALL timing_start('rst_put')365 IF(nn_timing == 2) CALL timing_start('iom_rstput') 362 366 CALL iom_rstput( kt, nitrst, numrow, 'kt' , REAL( kt , wp) ) ! time-step 363 367 CALL iom_rstput( kt, nitrst, numrow, 'ndastp' , REAL( ndastp, wp) ) ! date 364 368 CALL iom_rstput( kt, nitrst, numrow, 'adatrj' , adatrj ) ! number of elapsed days since 365 369 ! ! the begining of the run [s] 366 IF(nn_timing == 3) CALL timing_stop('rst_put')370 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 367 371 ENDIF 368 372 !
Note: See TracChangeset
for help on using the changeset viewer.