Changeset 15258
- Timestamp:
- 2021-09-14T16:34:36+02:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_obs_oper_strthr/NEMOGCM/NEMO/OPA_SRC/DOM/daymod.F90
r15256 r15258 324 324 IF( iom_varid( numror, 'kt', ldstop = .FALSE. ) > 0 ) THEN 325 325 ! Get Calendar informations 326 IF(nn_timing == 2) CALL timing_start('iom_rstget')327 326 CALL iom_get( numror, 'kt', zkt ) ! last time-step of previous run 328 IF(nn_timing == 2) CALL timing_stop('iom_rstget')329 327 IF(lwp) THEN 330 328 WRITE(numout,*) ' *** Info read in restart : ' … … 344 342 ! define ndastp and adatrj 345 343 IF ( nrstdt == 2 ) THEN 346 IF(nn_timing == 2) CALL timing_start('iom_rstget')347 344 ! read the parameters correspondting to nit000 - 1 (last time step of previous run) 348 345 CALL iom_get( numror, 'ndastp', zndastp ) … … 350 347 CALL iom_get( numror, 'adatrj', adatrj ) 351 348 CALL iom_get( numror, 'ntime', ktime ) 352 IF(nn_timing == 2) CALL timing_stop('iom_rstget')353 349 nn_time0=INT(ktime) 354 350 ! calculate start time in hours and minutes … … 409 405 ENDIF 410 406 ! calendar control 411 IF(nn_timing == 2) CALL timing_start('iom_rstput')412 407 CALL iom_rstput( kt, nitrst, numrow, 'kt' , REAL( kt , wp) ) ! time-step 413 408 CALL iom_rstput( kt, nitrst, numrow, 'ndastp' , REAL( ndastp, wp) ) ! date … … 415 410 ! ! the begining of the run [s] 416 411 CALL iom_rstput( kt, nitrst, numrow, 'ntime' , REAL( nn_time0, wp) ) ! time 417 IF(nn_timing == 2) CALL timing_stop('iom_rstput')418 412 ENDIF 419 413 !
Note: See TracChangeset
for help on using the changeset viewer.