Changeset 2771 for branches/2011/dev_r2769_LOCEAN_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

Timestamp:

2011-05-31T17:05:34+02:00 (13 years ago)

Author:

rblod

Message:

First implementation of timing, with tvd as an example, see ticket #829

File:

• branches/2011/dev_r2769_LOCEAN_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90 (modified) (4 diffs)

branches/2011/dev_r2769_LOCEAN_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

@@ -171 +171 @@
       ENDIF
       !
+      IF( ln_timing )   CALL timing_finalize
+      !
       CALL nemo_closefile
 #if defined key_oasis3 || defined key_oasis4
@@ -191 +193 @@
       CHARACTER(len=80), DIMENSION(16) ::   cltxt
       !!
-      NAMELIST/namctl/ ln_ctl  , nn_print, nn_ictls, nn_ictle,   &
-         &             nn_isplt, nn_jsplt, nn_jctls, nn_jctle, nn_bench
+      NAMELIST/namctl/ ln_ctl  , ln_timing, nn_ictls, nn_ictle,   &
+         &             nn_isplt, nn_jsplt , nn_jctls, nn_jctle,   &
+         &             nn_bench, nn_print
       !!----------------------------------------------------------------------
       !
@@ -286 +289 @@
       ENDIF
       !
+      IF( ln_timing     )   CALL timing_init 
+      !
       !                                      ! General initialization
                             CALL     phy_cst    ! Physical constants
@@ -373 +378 @@
          WRITE(numout,*) '   Namelist namctl'
          WRITE(numout,*) '      run control (for debugging)     ln_ctl     = ', ln_ctl
+         WRITE(numout,*) '      run timing                      ln_timing  = ', ln_timing
          WRITE(numout,*) '      level of print                  nn_print   = ', nn_print
          WRITE(numout,*) '      Start i indice for SUM control  nn_ictls   = ', nn_ictls