Changeset 9124 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/trcstp.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/trcstp.F90 (modified) (4 diffs)

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

@@ -59 +59 @@
       !!-------------------------------------------------------------------
       !
-      IF( nn_timing == 1 )   CALL timing_start('trc_stp')
+      IF( ln_timing )   CALL timing_start('trc_stp')
       !
       IF( ( neuler == 0 .AND. kt == nittrc000 ) .OR. ln_top_euler ) THEN     ! at nittrc000
@@ -112 +112 @@
 9300  FORMAT(i10,D23.16)
       !
-      IF( nn_timing == 1 )   CALL timing_stop('trc_stp')
+      IF( ln_timing )   CALL timing_stop('trc_stp')
       !
    END SUBROUTINE trc_stp
@@ -136 +136 @@
       CHARACTER(len=2) ::   cl2   ! 2 characters
       !!----------------------------------------------------------------------
+      !
+      IF( ln_timing )   CALL timing_start('trc_mean_qsr')
       !
       IF( kt == nittrc000 ) THEN
@@ -227 +229 @@
       ENDIF
       !
+      IF( ln_timing )   CALL timing_stop('trc_mean_qsr')
+      !
    END SUBROUTINE trc_mean_qsr