Changeset 13

Timestamp:

02/10/12 15:54:21 (12 years ago)

Author:

cholod

Message:

add timing in step.F90

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/step.F90 (modified) (3 diffs)

trunk/NEMOGCM/NEMO/OPA_SRC/step.F90

@@ -47 +47 @@
    !!----------------------------------------------------------------------
    !! NEMO/OPA 3.3 , NEMO Consortium (2010)
-   !! $Id: step.F90 3294 2012-01-28 16:44:18Z rblod $
+   !! $Id: step.F90 3217 2011-12-13 09:07:25Z cbricaud $
    !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
    !!----------------------------------------------------------------------
@@ -77 +77 @@
       INTEGER ::   jk       ! dummy loop indice
       INTEGER ::   indic    ! error indicator if < 0
+      
+      INTEGER :: inb_period_initial, inb_period_final, inb_period_sec, inb_period_max, inb_period
       !! ---------------------------------------------------------------------
 
+      CALL SYSTEM_CLOCK(count_rate=inb_period_sec, count_max=inb_period_max)
+      CALL SYSTEM_CLOCK(count=inb_period_initial)
 #if defined key_agrif
       kstp = nit000 + Agrif_Nb_Step()
@@ -266 +270 @@
       IF( nn_timing == 1 .AND.  kstp == nit000  )   CALL timing_reset
       !
+      CALL SYSTEM_CLOCK(count=inb_period_final)
+      inb_period = inb_period_final - inb_period_initial
+      IF( inb_period_final < inb_period_initial ) inb_period = inb_period + inb_period_max
+      IF( lwp ) WRITE(numout,'(a, i6, f10.5)') 'step timing', kstp, REAL(inb_period,wp) / REAL(inb_period_sec,wp)
+      !
    END SUBROUTINE stp