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

branches/2017/dev_r7881_ENHANCE09_RK3/NEMOGCM/NEMO/RK3_SRC/TRA/trazdf.F90

@@ -56 +56 @@
       !!---------------------------------------------------------------------
       !
-      IF( nn_timing == 1 )  CALL timing_start('tra_zdf')
+      IF( ln_timing )   CALL timing_start('tra_zdf')
       !
       IF( neuler == 0 .AND. kt == nit000 ) THEN     ! at nit000
@@ -97 +97 @@
          &                       tab3d_2=tsa(:,:,:,jp_sal), clinfo2=       ' Sa: ', mask2=tmask, clinfo3='tra' )
       !
-      IF( nn_timing == 1 )  CALL timing_stop('tra_zdf')
+      IF( ln_timing )   CALL timing_stop('tra_zdf')
       !
    END SUBROUTINE tra_zdf
@@ -135 +135 @@
       !!---------------------------------------------------------------------
       !
-      IF( nn_timing == 1 )  CALL timing_start('tra_zdf_imp')
+      IF( ln_timing )   CALL timing_start('tra_zdf_imp')
       !
       IF( kt == kit000 )  THEN
@@ -255 +255 @@
       !                                               ! ================= !
       !
-      IF( nn_timing == 1 )  CALL timing_stop('tra_zdf_imp')
+      IF( ln_timing )   CALL timing_stop('tra_zdf_imp')
       !
    END SUBROUTINE tra_zdf_imp