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/sbccpl.F90

    r8887 r9261  
    252252 
    253253      ! 
    254       IF( nn_timing == 1 .OR. nn_timing == 2)  CALL timing_start('sbc_cpl_init') 
     254      IF( nn_timing.gt.0 .and. nn_timing .le. 2)  CALL timing_start('sbc_cpl_init') 
    255255      ! 
    256256      CALL wrk_alloc( jpi,jpj, zacs, zaos ) 
     
    975975      CALL wrk_dealloc( jpi,jpj, zacs, zaos ) 
    976976      ! 
    977       IF( nn_timing == 1 .OR. nn_timing == 2 )  CALL timing_stop('sbc_cpl_init') 
     977      IF( nn_timing.gt.0 .and. nn_timing .le. 2 )  CALL timing_stop('sbc_cpl_init') 
    978978      ! 
    979979   END SUBROUTINE sbc_cpl_init 
     
    10501050 
    10511051      ! 
    1052       IF( nn_timing == 1 .OR. nn_timing == 2 )  CALL timing_start('sbc_cpl_rcv') 
     1052      IF( nn_timing.gt.0 .and. nn_timing .le. 2 )  CALL timing_start('sbc_cpl_rcv') 
    10531053      ! 
    10541054      CALL wrk_alloc( jpi,jpj, ztx, zty, zmsk, zemp, zqns, zqsr ) 
     
    14151415      CALL wrk_dealloc( jpi,jpj, ztx, zty, zmsk, zemp, zqns, zqsr ) 
    14161416      ! 
    1417       IF( nn_timing == 1 .OR. nn_timing == 2 )  CALL timing_stop('sbc_cpl_rcv') 
     1417      IF( nn_timing.gt.0 .and. nn_timing .le. 2 )  CALL timing_stop('sbc_cpl_rcv') 
    14181418      ! 
    14191419   END SUBROUTINE sbc_cpl_rcv 
     
    14611461      !!---------------------------------------------------------------------- 
    14621462      ! 
    1463       IF( nn_timing == 1 .OR. nn_timing == 2 )  CALL timing_start('sbc_cpl_ice_tau') 
     1463      IF( nn_timing.gt.0 .and. nn_timing .le. 2 )  CALL timing_start('sbc_cpl_ice_tau') 
    14641464      ! 
    14651465      CALL wrk_alloc( jpi,jpj, ztx, zty ) 
     
    16261626      CALL wrk_dealloc( jpi,jpj, ztx, zty ) 
    16271627      ! 
    1628       IF( nn_timing == 1 .OR. nn_timing == 2 )  CALL timing_stop('sbc_cpl_ice_tau') 
     1628      IF( nn_timing.gt.0 .and. nn_timing .le. 2 )  CALL timing_stop('sbc_cpl_ice_tau') 
    16291629      ! 
    16301630   END SUBROUTINE sbc_cpl_ice_tau 
     
    16931693      !!---------------------------------------------------------------------- 
    16941694      ! 
    1695       IF( nn_timing == 1 .OR. nn_timing == 2 )  CALL timing_start('sbc_cpl_ice_flx') 
     1695      IF( nn_timing.gt.0 .and. nn_timing .le. 2 )  CALL timing_start('sbc_cpl_ice_flx') 
    16961696      ! 
    16971697      CALL wrk_alloc( jpi,jpj,     zcptn, ztmp, zicefr, zmsk, zsnw ) 
     
    20782078      CALL wrk_dealloc( jpi,jpj,jpl, zqns_ice, zqsr_ice, zdqns_ice, zqevap_ice ) 
    20792079      ! 
    2080       IF( nn_timing == 1 .OR. nn_timing == 2 )  CALL timing_stop('sbc_cpl_ice_flx') 
     2080      IF( nn_timing.gt.0 .and. nn_timing .le. 2 )  CALL timing_stop('sbc_cpl_ice_flx') 
    20812081      ! 
    20822082   END SUBROUTINE sbc_cpl_ice_flx 
     
    21012101      !!---------------------------------------------------------------------- 
    21022102      ! 
    2103       IF( nn_timing == 1 .OR. nn_timing == 2 )  CALL timing_start('sbc_cpl_snd') 
     2103      IF( nn_timing.gt.0 .and. nn_timing .le. 2 )  CALL timing_start('sbc_cpl_snd') 
    21042104      ! 
    21052105      CALL wrk_alloc( jpi,jpj, zfr_l, ztmp1, ztmp2, zotx1, zoty1, zotz1, zitx1, zity1, zitz1 ) 
     
    25332533      CALL wrk_dealloc( jpi,jpj,jpl, ztmp3, ztmp4 ) 
    25342534      ! 
    2535       IF( nn_timing == 1 .OR. nn_timing == 2 )  CALL timing_stop('sbc_cpl_snd') 
     2535      IF( nn_timing.gt.0 .and. nn_timing .le. 2 )  CALL timing_stop('sbc_cpl_snd') 
    25362536      ! 
    25372537   END SUBROUTINE sbc_cpl_snd 
Note: See TracChangeset for help on using the changeset viewer.