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/DIA/diahsb.F90

    r9252 r9261  
    254254           IF(lwp) WRITE(numout,*) ' dia_hsb_rst at it= ', kt,' date= ', ndastp 
    255255           IF(lwp) WRITE(numout,*) '~~~~~~~' 
     256           IF(nn_timing == 2)  CALL timing_start('iom_rstget') 
    256257           CALL iom_get( numror, 'frc_v', frc_v ) 
    257258           CALL iom_get( numror, 'frc_t', frc_t ) 
     
    269270              CALL iom_get( numror, jpdom_autoglo, 'ssh_sc_loc_ini', ssh_sc_loc_ini ) 
    270271           ENDIF 
     272           IF(nn_timing == 2)  CALL timing_stop('iom_rstget') 
    271273       ELSE 
    272274          IF(lwp) WRITE(numout,*) '~~~~~~~' 
     
    304306        IF(lwp) WRITE(numout,*) ' dia_hsb_rst at it= ', kt,' date= ', ndastp 
    305307        IF(lwp) WRITE(numout,*) '~~~~~~~' 
    306         IF(nn_timing == 3)  CALL timing_start('rst_put') 
     308        IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
    307309        CALL iom_rstput( kt, nitrst, numrow, 'frc_v'   , frc_v     ) 
    308310        CALL iom_rstput( kt, nitrst, numrow, 'frc_t'   , frc_t     ) 
     
    320322           CALL iom_rstput( kt, nitrst, numrow, 'ssh_sc_loc_ini', ssh_sc_loc_ini ) 
    321323        ENDIF 
    322         IF(nn_timing == 3)  CALL timing_stop('rst_put') 
     324        IF(nn_timing == 2)  CALL timing_stop('iom_rstput') 
    323325        ! 
    324326     ENDIF 
Note: See TracChangeset for help on using the changeset viewer.