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/SBC/sbcssm.F90

    r9252 r9261  
    157157            IF(lwp) WRITE(numout,*) '~~~~~~~' 
    158158            zf_sbc = REAL( nn_fsbc, wp ) 
    159             IF(nn_timing == 3)  CALL timing_start('rst_put') 
     159            IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
    160160            CALL iom_rstput( kt, nitrst, numrow, 'nn_fsbc', zf_sbc )    ! sbc frequency 
    161161            CALL iom_rstput( kt, nitrst, numrow, 'ssu_m'  , ssu_m  )    ! sea surface mean fields 
     
    166166            IF( lk_vvl )   CALL iom_rstput( kt, nitrst, numrow, 'e3t_m'  , e3t_m  ) 
    167167            CALL iom_rstput( kt, nitrst, numrow, 'frq_m'  , frq_m  ) 
    168             IF(nn_timing == 3)  CALL timing_stop('rst_put')  
     168            IF(nn_timing == 2)  CALL timing_stop('iom_rstput')  
    169169            ! 
    170170         ENDIF 
     
    209209         IF( ln_rstart .AND. iom_varid( numror, 'nn_fsbc', ldstop = .FALSE. ) > 0 ) THEN 
    210210            l_ssm_mean = .TRUE. 
     211            IF(nn_timing == 2)  CALL timing_start('iom_rstget') 
    211212            CALL iom_get( numror               , 'nn_fsbc', zf_sbc )   ! sbc frequency of previous run 
    212213            CALL iom_get( numror, jpdom_autoglo, 'ssu_m'  , ssu_m  )   ! sea surface mean velocity    (T-point) 
     
    222223               frq_m(:,:) = 1._wp   ! default definition 
    223224            ENDIF 
     225            IF(nn_timing == 2)  CALL timing_stop('iom_rstget') 
    224226            ! 
    225227            IF( zf_sbc /= REAL( nn_fsbc, wp ) ) THEN      ! nn_fsbc has changed between 2 runs 
Note: See TracChangeset for help on using the changeset viewer.