Changeset 3139

Timestamp:

2011-11-16T17:11:51+01:00 (12 years ago)

Author:

rblod

Message:

Add timing module see ticket #829

Location:

branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC

Files:

• IOM/in_out_manager.F90 (modified) (2 diffs)
• nemogcm.F90 (modified) (3 diffs)
• step.F90 (modified) (1 diff)
• step_oce.F90 (modified) (1 diff)

branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/IOM/in_out_manager.F90

@@ -87 +87 @@
    !!----------------------------------------------------------------------
    LOGICAL ::   ln_ctl     = .FALSE.   !: run control for debugging
+   INTEGER ::   nn_timing    =    0    !: run control for timing
    INTEGER ::   nn_print     =    0    !: level of print (0 no print)
    INTEGER ::   nn_ictls     =    0    !: Start i indice for the SUM control
@@ -106 +107 @@
    !!----------------------------------------------------------------------
    INTEGER ::   numstp      =   -1      !: logical unit for time step
+   INTEGER ::   numtime     =   -1      !: logical unit for timing
    INTEGER ::   numout      =    6      !: logical unit for output print
    INTEGER ::   numnam      =   -1      !: logical unit for namelist

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

@@ -176 +176 @@
       ENDIF
       !
+      IF( nn_timing == 1 )   CALL timing_finalize
+      !
       CALL nemo_closefile
 #if defined key_oasis3 || defined key_oasis4
@@ -197 +199 @@
       !!
       NAMELIST/namctl/ ln_ctl  , nn_print, nn_ictls, nn_ictle,   &
-         &             nn_isplt, nn_jsplt, nn_jctls, nn_jctle, nn_bench
+         &             nn_isplt, nn_jsplt, nn_jctls, nn_jctle,   &
+         &             nn_bench, nn_timing
       !!----------------------------------------------------------------------
       !
@@ -294 +297 @@
       ELSE                            ;   CALL mpp_init2     ! eliminate land processors
       ENDIF
+      !
+      IF( nn_timing == 1 )  CALL timing_init
       !
       !                                      ! General initialization

branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/step.F90

@@ -266 +266 @@
       IF( lk_cpl           )   CALL sbc_cpl_snd( kstp )     ! coupled mode : field exchanges
       !
+      IF( nn_timing == 1 .AND.  kstp == nit000  )   CALL timing_reset
       !
    END SUBROUTINE stp

branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/step_oce.F90

@@ -95 +95 @@
    USE diaobs           ! Observation operator
 
+   USE timing           ! Timing            
+
 #if defined key_agrif
    USE agrif_opa_sponge ! Momemtum and tracers sponges