Changeset 3154

Timestamp:

2011-11-18T11:02:24+01:00 (12 years ago)

Author:

cetlod

Message:

Add timing for OFFLINE

Location:

branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OFF_SRC

Files:

• dtadyn.F90 (modified) (3 diffs)
• nemogcm.F90 (modified) (5 diffs)

branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OFF_SRC/dtadyn.F90

@@ -39 +39 @@
    USE prtctl          ! print control
    USE fldread         ! read input fields 
+   USE timing          ! Timing
 
    IMPLICIT NONE
@@ -123 +124 @@
       !!----------------------------------------------------------------------
       
+      !
+      IF( nn_timing == 1 )  CALL timing_start( 'dta_dyn')
+      !
       isecsbc = nsec_year + nsec1jan000 
       !
@@ -301 +305 @@
       ENDIF
       !
+      IF( nn_timing == 1 )  CALL timing_stop( 'dta_dyn')
+      !
    END SUBROUTINE dta_dyn
 

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

@@ -110 +110 @@
       ENDIF
       !
+      IF( nn_timing == 1 )   CALL timing_finalize
+      !
       CALL nemo_closefile
       !
@@ -128 +130 @@
       !!
       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
       !!----------------------------------------------------------------------
       !
@@ -208 +211 @@
       ENDIF
       !
+      IF( nn_timing == 1 )  CALL timing_init
+      !
+
       !                                      ! General initialization
+      IF( nn_timing == 1 )  CALL timing_start( 'nemo_init')
+      !
                             CALL     phy_cst    ! Physical constants
                             CALL     eos_init   ! Equation of state
@@ -215 +223 @@
                             CALL  istate_init   ! ocean initial state (Dynamics and tracers)
 
+      IF( ln_nnogather )    CALL nemo_northcomms   ! Initialise the northfold neighbour lists (must be done after the masks are defined)
 
       IF( ln_ctl        )   CALL prt_ctl_init   ! Print control
@@ -236 +245 @@
 
       IF(lwp) WRITE(numout,cform_aaa)       ! Flag AAAAAAA
+      !
+      IF( nn_timing == 1 )  CALL timing_stop( 'nemo_init')
       !
    END SUBROUTINE nemo_init