Ignore:
Timestamp:
2018-01-18T14:59:11+01:00 (3 years ago)
Author:
andmirek
Message:

#1978 only 1 and 2 for nn_timing

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/DOM/daymod.F90

    r9252 r9261  
    309309         IF( iom_varid( numror, 'kt', ldstop = .FALSE. ) > 0 ) THEN 
    310310            ! Get Calendar informations 
     311            IF(nn_timing == 2)  CALL timing_start('iom_rstget') 
    311312            CALL iom_get( numror, 'kt', zkt )   ! last time-step of previous run 
     313            IF(nn_timing == 2)  CALL timing_stop('iom_rstget') 
    312314            IF(lwp) THEN 
    313315               WRITE(numout,*) ' *** Info read in restart : ' 
     
    327329            ! define ndastp and adatrj 
    328330            IF ( nrstdt == 2 ) THEN 
     331               IF(nn_timing == 2)  CALL timing_start('iom_rstget') 
    329332               ! read the parameters correspondting to nit000 - 1 (last time step of previous run) 
    330333               CALL iom_get( numror, 'ndastp', zndastp ) 
    331334               ndastp = NINT( zndastp ) 
    332335               CALL iom_get( numror, 'adatrj', adatrj  ) 
     336               IF(nn_timing == 2)  CALL timing_stop('iom_rstget') 
    333337            ELSE 
    334338               ! parameters correspondting to nit000 - 1 (as we start the step loop with a call to day) 
     
    359363         ENDIF 
    360364         ! calendar control 
    361          IF(nn_timing == 3)  CALL timing_start('rst_put') 
     365         IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
    362366         CALL iom_rstput( kt, nitrst, numrow, 'kt'     , REAL( kt    , wp) )   ! time-step 
    363367         CALL iom_rstput( kt, nitrst, numrow, 'ndastp' , REAL( ndastp, wp) )   ! date 
    364368         CALL iom_rstput( kt, nitrst, numrow, 'adatrj' , adatrj            )   ! number of elapsed days since 
    365369         !                                                                     ! 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') 
    367371      ENDIF 
    368372      ! 
Note: See TracChangeset for help on using the changeset viewer.