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 4452 for branches/2011 – NEMO

Changeset 4452 for branches/2011


Ignore:
Timestamp:
2014-02-04T13:16:26+01:00 (10 years ago)
Author:
trackstand2
Message:

Comment-out timings of sections within tra_adv_tvd

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_tvd.F90

    r4445 r4452  
    163163         ! -------------------------------------------------------------------- 
    164164         ! upstream tracer flux in the i and j direction 
    165          CALL timing_start('tvd_upstream') 
     165         !CALL timing_start('tvd_upstream') 
    166166#if defined key_z_first 
    167167         DO jj = 1, jpjm1 
     
    183183            END DO 
    184184         END DO 
    185          CALL timing_stop('tvd_upstream','section') 
     185         !CALL timing_stop('tvd_upstream','section') 
    186186 
    187187         ! upstream tracer flux in the k direction 
    188188         ! Surface value 
    189          CALL timing_start('tvd_upstreamk') 
     189         !CALL timing_start('tvd_upstreamk') 
    190190         IF( lk_vvl ) THEN   ;   zwz(:,:, 1 ) = 0.e0                         ! volume variable 
    191191         ELSE                ;   zwz(:,:, 1 ) = pwn(:,:,1) * ptb(:,:,1,jn)   ! linear free surface  
     
    207207            END DO 
    208208         END DO 
    209          CALL timing_stop('tvd_upstreamk','section') 
     209         !CALL timing_stop('tvd_upstreamk','section') 
    210210 
    211211         ! total advective trend 
    212          CALL timing_start('tvd_tot') 
     212         !CALL timing_start('tvd_tot') 
    213213#if defined key_z_first 
    214214         DO jj = 2, jpjm1 
     
    233233            END DO 
    234234         END DO 
    235          CALL timing_stop('tvd_tot','section') 
     235         !CALL timing_stop('tvd_tot','section') 
    236236 
    237237         !                             ! Lateral boundary conditions on zwi  (unchanged sign) 
    238          CALL timing_start('tvd_lbc') 
     238         !CALL timing_start('tvd_lbc') 
    239239         CALL lbc_lnk( zwi, 'T', 1. )   
    240          CALL timing_stop('tvd_lbc','section') 
     240         !CALL timing_stop('tvd_lbc','section') 
    241241 
    242242         !                                 ! trend diagnostics (contribution of upstream fluxes) 
     
    254254         ! -------------------------------------------------- 
    255255         ! antidiffusive flux on i and j 
    256          CALL timing_start('tvd_antidiff') 
     256         !CALL timing_start('tvd_antidiff') 
    257257#if defined key_z_first 
    258258         DO jj = 1, jpjm1 
     
    269269            END DO 
    270270         END DO 
    271          CALL timing_stop('tvd_antidiff','section') 
     271         !CALL timing_stop('tvd_antidiff','section') 
    272272       
    273273         ! antidiffusive flux on k 
    274          CALL timing_start('tvd_antidiffk') 
     274         !CALL timing_start('tvd_antidiffk') 
    275275#if defined key_z_first 
    276276         DO jj = 1, jpj 
     
    289289            END DO 
    290290         END DO 
    291          CALL timing_stop('tvd_antidiffk','section') 
    292  
    293          CALL timing_start('tvd_lbc') 
     291         !CALL timing_stop('tvd_antidiffk','section') 
     292 
     293         !CALL timing_start('tvd_lbc') 
    294294         CALL lbc_lnk( zwx, 'U', -1. )   ;   CALL lbc_lnk( zwy, 'V', -1. )         ! Lateral bondary conditions 
    295295         CALL lbc_lnk( zwz, 'W',  1. ) 
    296          CALL timing_stop('tvd_lbc','section') 
     296         !CALL timing_stop('tvd_lbc','section') 
    297297 
    298298         ! 4. monotonicity algorithm 
     
    305305         ! 5. final trend with corrected fluxes 
    306306         ! ------------------------------------ 
    307          CALL timing_start('tvd_finaltr') 
     307         !CALL timing_start('tvd_finaltr') 
    308308#if defined key_z_first 
    309309         DO jj = 2, jpjm1 
     
    342342         ENDIF 
    343343         ! 
    344          CALL timing_stop('tvd_finaltr','section') 
     344         !CALL timing_stop('tvd_finaltr','section') 
    345345 
    346346      END DO 
     
    473473         END DO 
    474474      END DO 
    475       CALL timing_start('tvd_lbc') 
     475      !CALL timing_start('tvd_lbc') 
    476476      CALL lbc_lnk( zbetup, 'T', 1. )   ;   CALL lbc_lnk( zbetdo, 'T', 1. )   ! lateral boundary cond. (unchanged sign) 
    477       CALL timing_stop('tvd_lbc','section') 
     477      !CALL timing_stop('tvd_lbc','section') 
    478478 
    479479 
     
    509509         END DO 
    510510      END DO 
    511       CALL timing_start('tvd_lbc') 
     511      !CALL timing_start('tvd_lbc') 
    512512      CALL lbc_lnk( paa, 'U', -1. )   ;   CALL lbc_lnk( pbb, 'V', -1. )   ! lateral boundary condition (changed sign) 
    513       CALL timing_stop('tvd_lbc','section') 
     513      !CALL timing_stop('tvd_lbc','section') 
    514514 
    515515      ! 
Note: See TracChangeset for help on using the changeset viewer.