Changeset 9104 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfsh2.F90

Timestamp:

2017-12-15T18:56:13+01:00 (6 years ago)

Author:

gm

Message:

dev_merge_2017: ZDF: timing + lnk_multi + namelist cfg ctl

File:

• branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfsh2.F90 (modified) (3 diffs)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfsh2.F90

@@ -15 +15 @@
    USE in_out_manager ! I/O manager
    USE lib_mpp        ! MPP library
-   USE timing         ! Timing
 
    IMPLICIT NONE
@@ -56 +55 @@
       !!--------------------------------------------------------------------
       !
-      IF( ln_timing )   CALL timing_start('zdf_sh2')
-      !
       DO jk = 2, jpkm1
          DO jj = 1, jpjm1        !* 2 x shear production at uw- and vw-points (energy conserving form)
@@ -77 +74 @@
       END DO 
       !
-      IF( ln_timing )   CALL timing_stop('zdf_sh2')     
-      !
    END SUBROUTINE zdf_sh2