Changeset 8745

Timestamp:

2017-11-20T10:24:00+01:00 (6 years ago)

Author:

andmirek

Message:

#1978 nemogcm.F90 activate writing timing when nn_timing is 2

File:

• branches/UKMO/dev_r8356_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90 (modified) (2 diffs)

branches/UKMO/dev_r8356_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

@@ -208 +208 @@
          CALL Agrif_ParentGrid_To_ChildGrid()
          IF( lk_diaobs ) CALL dia_obs_wri
-         IF( nn_timing == 1 )   CALL timing_finalize
+         IF( nn_timing > 0 )   CALL timing_finalize
          CALL Agrif_ChildGrid_To_ParentGrid()
       ENDIF
 #endif
-      IF( nn_timing == 1 )   CALL timing_finalize
+      IF( nn_timing > 0 )   CALL timing_finalize
       !
       CALL nemo_closefile
@@ -402 +402 @@
       ENDIF
       !
-      IF( nn_timing == 1 )  CALL timing_init
+      IF( nn_timing > 0 )  CALL timing_init
       !
       !                                      ! General initialization