New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 8744 – NEMO

Changeset 8744


Ignore:
Timestamp:
2017-11-20T10:22:44+01:00 (7 years ago)
Author:
andmirek
Message:

#1978 activate timers in sbccpl.F90 when nn_timing is 1 or 2

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r8356_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

    r8280 r8744  
    257257 
    258258      ! 
    259       IF( nn_timing == 1 )  CALL timing_start('sbc_cpl_init') 
     259      IF( nn_timing == 1 .OR. nn_timing == 2)  CALL timing_start('sbc_cpl_init') 
    260260      ! 
    261261      CALL wrk_alloc( jpi,jpj, zacs, zaos ) 
     
    991991      CALL wrk_dealloc( jpi,jpj, zacs, zaos ) 
    992992      ! 
    993       IF( nn_timing == 1 )  CALL timing_stop('sbc_cpl_init') 
     993      IF( nn_timing == 1 .OR. nn_timing == 2 )  CALL timing_stop('sbc_cpl_init') 
    994994      ! 
    995995   END SUBROUTINE sbc_cpl_init 
     
    10621062 
    10631063      ! 
    1064       IF( nn_timing == 1 )  CALL timing_start('sbc_cpl_rcv') 
     1064      IF( nn_timing == 1 .OR. nn_timing == 2 )  CALL timing_start('sbc_cpl_rcv') 
    10651065      ! 
    10661066      CALL wrk_alloc( jpi,jpj, ztx, zty, zmsk, zemp, zqns, zqsr, ztx2, zty2 ) 
     
    14531453      CALL wrk_dealloc( jpi,jpj, ztx, zty, zmsk, zemp, zqns, zqsr, ztx2, zty2 ) 
    14541454      ! 
    1455       IF( nn_timing == 1 )  CALL timing_stop('sbc_cpl_rcv') 
     1455      IF( nn_timing == 1 .OR. nn_timing == 2 )  CALL timing_stop('sbc_cpl_rcv') 
    14561456      ! 
    14571457   END SUBROUTINE sbc_cpl_rcv 
     
    14991499      !!---------------------------------------------------------------------- 
    15001500      ! 
    1501       IF( nn_timing == 1 )  CALL timing_start('sbc_cpl_ice_tau') 
     1501      IF( nn_timing == 1 .OR. nn_timing == 2 )  CALL timing_start('sbc_cpl_ice_tau') 
    15021502      ! 
    15031503      CALL wrk_alloc( jpi,jpj, ztx, zty ) 
     
    16641664      CALL wrk_dealloc( jpi,jpj, ztx, zty ) 
    16651665      ! 
    1666       IF( nn_timing == 1 )  CALL timing_stop('sbc_cpl_ice_tau') 
     1666      IF( nn_timing == 1 .OR. nn_timing == 2 )  CALL timing_stop('sbc_cpl_ice_tau') 
    16671667      ! 
    16681668   END SUBROUTINE sbc_cpl_ice_tau 
     
    17311731      !!---------------------------------------------------------------------- 
    17321732      ! 
    1733       IF( nn_timing == 1 )  CALL timing_start('sbc_cpl_ice_flx') 
     1733      IF( nn_timing == 1 .OR. nn_timing == 2 )  CALL timing_start('sbc_cpl_ice_flx') 
    17341734      ! 
    17351735      CALL wrk_alloc( jpi,jpj,     zcptn, ztmp, zicefr, zmsk, zsnw ) 
     
    21162116      CALL wrk_dealloc( jpi,jpj,jpl, zqns_ice, zqsr_ice, zdqns_ice, zqevap_ice ) 
    21172117      ! 
    2118       IF( nn_timing == 1 )  CALL timing_stop('sbc_cpl_ice_flx') 
     2118      IF( nn_timing == 1 .OR. nn_timing == 2 )  CALL timing_stop('sbc_cpl_ice_flx') 
    21192119      ! 
    21202120   END SUBROUTINE sbc_cpl_ice_flx 
     
    21402140      !!---------------------------------------------------------------------- 
    21412141      ! 
    2142       IF( nn_timing == 1 )  CALL timing_start('sbc_cpl_snd') 
     2142      IF( nn_timing == 1 .OR. nn_timing == 2 )  CALL timing_start('sbc_cpl_snd') 
    21432143      ! 
    21442144      CALL wrk_alloc( jpi,jpj, zfr_l, ztmp1, ztmp2, zotx1, zoty1, zotz1, zitx1, zity1, zitz1 ) 
     
    26242624      CALL wrk_dealloc( jpi,jpj,jpl, ztmp3, ztmp4 ) 
    26252625      ! 
    2626       IF( nn_timing == 1 )  CALL timing_stop('sbc_cpl_snd') 
     2626      IF( nn_timing == 1 .OR. nn_timing == 2 )  CALL timing_stop('sbc_cpl_snd') 
    26272627      ! 
    26282628   END SUBROUTINE sbc_cpl_snd 
Note: See TracChangeset for help on using the changeset viewer.