Changeset 9124 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/trcsub.F90

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:

• branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/trcsub.F90 (modified) (8 diffs)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/trcsub.F90

@@ -97 +97 @@
       !!-------------------------------------------------------------------
       !
-      IF( nn_timing == 1 )  CALL timing_start('trc_sub_stp')
+      IF( ln_timing )   CALL timing_start('trc_sub_stp')
       !
       IF( kt == nit000 ) THEN
@@ -286 +286 @@
       ENDIF
       !
-      IF( nn_timing == 1 )  CALL timing_stop('trc_sub_stp')
+      IF( ln_timing )   CALL timing_stop('trc_sub_stp')
       !
    END SUBROUTINE trc_sub_stp
@@ -302 +302 @@
       INTEGER ::   ierr
       !!-------------------------------------------------------------------
-      !
-      IF( nn_timing == 1 )  CALL timing_start('trc_sub_ini')
       !
       IF(lwp) WRITE(numout,*)
@@ -348 +346 @@
       ENDIF
       !
-      IF( nn_timing == 1 )  CALL timing_stop('trc_sub_ini')
-      !
    END SUBROUTINE trc_sub_ini
+
 
    SUBROUTINE trc_sub_reset( kt )
@@ -365 +362 @@
       !!-------------------------------------------------------------------
       !
-      IF( nn_timing == 1 )  CALL timing_start('trc_sub_reset')
+      IF( ln_timing )   CALL timing_start('trc_sub_reset')
       !
       !   restore physics variables
@@ -443 +440 @@
       !
       !
-      IF( nn_timing == 1 )  CALL timing_stop('trc_sub_reset')
+      IF( ln_timing )   CALL timing_stop('trc_sub_reset')
       !
    END SUBROUTINE trc_sub_reset
@@ -473 +470 @@
       !!---------------------------------------------------------------------
       !
-      IF( nn_timing == 1 )  CALL timing_start('trc_sub_ssh')
+      IF( ln_timing )   CALL timing_start('trc_sub_ssh')
       !
       ! Allocate temporary workspace
@@ -533 +530 @@
       CALL wrk_dealloc( jpi,jpj,   zhdiv )
       !
-      IF( nn_timing == 1 )  CALL timing_stop('trc_sub_ssh')
+      IF( ln_timing )   CALL timing_stop('trc_sub_ssh')
       !
    END SUBROUTINE trc_sub_ssh