Changeset 8568 for branches/2017/dev_r7881_ENHANCE09_RK3/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfiwm.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/OPA_SRC/ZDF/zdfiwm.F90 (modified) (4 diffs)

branches/2017/dev_r7881_ENHANCE09_RK3/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfiwm.F90

@@ -141 +141 @@
       !!----------------------------------------------------------------------
       !
-      IF( nn_timing == 1 )   CALL timing_start('zdf_iwm')
+      IF( ln_timing )   CALL timing_start('zdf_iwm')
       !
       !                      ! ----------------------------- !
@@ -366 +366 @@
       IF(ln_ctl)   CALL prt_ctl(tab3d_1=zav_wave , clinfo1=' iwm - av_wave: ', tab3d_2=avt, clinfo2=' avt: ', ovlap=1, kdim=jpk)
       !
-      IF( nn_timing == 1 )   CALL timing_stop('zdf_iwm')
+      IF( ln_timing )   CALL timing_stop('zdf_iwm')
       !
    END SUBROUTINE zdf_iwm
@@ -405 +405 @@
       !!----------------------------------------------------------------------
       !
-      IF( nn_timing == 1 )  CALL timing_start('zdf_iwm_init')
+      IF( ln_timing )   CALL timing_start('zdf_iwm_init')
       !
       REWIND( numnam_ref )              ! Namelist namzdf_iwm in reference namelist : Wave-driven mixing
@@ -483 +483 @@
       ENDIF
       !
-      IF( nn_timing == 1 )  CALL timing_stop('zdf_iwm_init')
+      IF( ln_timing )   CALL timing_stop('zdf_iwm_init')
       !
    END SUBROUTINE zdf_iwm_init