Changeset 8568 for branches/2017/dev_r7881_ENHANCE09_RK3/NEMOGCM/NEMO/RK3_SRC/ZDF/zdfphy.F90

Timestamp:

2017-09-27T16:29:24+02:00 (7 years ago)

Author:

gm

Message:

#1911 (ENHANCE-09): PART I.2 - _NONE option + remove zts + see associated wiki page

File:

• branches/2017/dev_r7881_ENHANCE09_RK3/NEMOGCM/NEMO/RK3_SRC/ZDF/zdfphy.F90 (modified) (5 diffs)

branches/2017/dev_r7881_ENHANCE09_RK3/NEMOGCM/NEMO/RK3_SRC/ZDF/zdfphy.F90

@@ -32 +32 @@
    USE lbclnk         ! lateral boundary conditions
    USE lib_mpp        ! distribued memory computing
+   USE timing         ! Timing
 
    IMPLICIT NONE
@@ -75 +76 @@
          &             rn_avm0, rn_avt0, nn_avb, nn_havtb                  ! coefficients
       !!----------------------------------------------------------------------
+      !
+      IF( ln_timing )   CALL timing_start('zdf_phy_init')
       !
       !                           !==  Namelist  ==!
@@ -193 +196 @@
       !!gm move it here ?
       !
+      IF( ln_timing )   CALL timing_stop('zdf_phy_init')
+      !
    END SUBROUTINE zdf_phy_init
 
@@ -213 +218 @@
       REAL(wp), DIMENSION(jpi,jpj,jpk) ::   zsh2   ! shear production
       !! ---------------------------------------------------------------------
+      !
+      IF( ln_timing )   CALL timing_start('zdf_phy')
       !
       IF( l_zdfdrg ) THEN     !==  update top/bottom drag  ==!   (non-linear cases)
@@ -289 +296 @@
       ENDIF
       !
+      IF( ln_timing )   CALL timing_stop('zdf_phy')
+      !
    END SUBROUTINE zdf_phy