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 9124 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90 – NEMO

Ignore:
Timestamp:
2017-12-19T09:26:25+01:00 (6 years ago)
Author:
gm
Message:

dev_merge_2017: ln_timing instead of nn_timing + restricted timing to nemo_init and routine called by step in OPA_SRC

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90

    r9090 r9124  
    119119      REAL(wp)::   zcoef 
    120120      !!---------------------------------------------------------------------- 
    121       ! 
    122       IF( ln_timing )   CALL timing_start('dom_vvl_init') 
    123121      ! 
    124122      IF(lwp) WRITE(numout,*) 
     
    239237         ENDIF 
    240238      ENDIF 
    241       ! 
    242       IF( ln_timing )   CALL timing_stop('dom_vvl_init') 
    243239      ! 
    244240   END SUBROUTINE dom_vvl_init 
     
    674670      !!---------------------------------------------------------------------- 
    675671      ! 
    676       IF( ln_timing )   CALL timing_start('dom_vvl_interpol') 
    677       ! 
    678672      IF(ln_wd_il) THEN 
    679673        zlnwd = 1.0_wp 
     
    761755      END SELECT 
    762756      ! 
    763       IF( ln_timing )   CALL timing_stop('dom_vvl_interpol') 
    764       ! 
    765757   END SUBROUTINE dom_vvl_interpol 
    766758 
     
    784776      INTEGER ::   id1, id2, id3, id4, id5     ! local integers 
    785777      !!---------------------------------------------------------------------- 
    786       ! 
    787       IF( ln_timing )   CALL timing_start('dom_vvl_rst') 
    788778      ! 
    789779      IF( TRIM(cdrw) == 'READ' ) THEN        ! Read/initialise  
     
    957947      ENDIF 
    958948      ! 
    959       IF( ln_timing )   CALL timing_stop('dom_vvl_rst') 
    960       ! 
    961949   END SUBROUTINE dom_vvl_rst 
    962950 
Note: See TracChangeset for help on using the changeset viewer.