Changeset 4436 for branches

Timestamp:

2014-02-04T13:14:49+01:00 (10 years ago)

Author:

trackstand2

Message:

Added timing calls

Location:

branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC

Files:

• BDY/bdydyn.F90 (modified) (1 diff)
• BDY/bdytides.F90 (modified) (3 diffs)
• DYN/dynzdf_imp.F90 (modified) (3 diffs)

branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/BDY/bdydyn.F90

@@ -203 +203 @@
       ENDIF ! ln_dyn_fla .or. ln_tides
       !
-      CALL timing_stop('bdy_dyn_fla','section')
+      CALL timing_stop('bdy_dyn_fla')
       !
    END SUBROUTINE bdy_dyn_fla

branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/BDY/bdytides.F90

@@ -290 +290 @@
 
    SUBROUTINE tide_update ( kt, jit )
+      USE timing, ONLY: timing_start, timing_stop
       !!----------------------------------------------------------------------
       !!                 ***  SUBROUTINE tide_update  ***
@@ -304 +305 @@
       REAL(wp), DIMENSION(jptides_max) :: z_sist, z_cost
       !!----------------------------------------------------------------------
+
+      CALL timing_start('tide_update')
 
       ! Note tide phase speeds are in deg/hour, so we need to convert the
@@ -342 +345 @@
          END DO
       END DO
+      !
+      CALL timing_stop('tide_update','section')
       !
    END SUBROUTINE tide_update

branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/DYN/dynzdf_imp.F90

@@ -63 +63 @@
       USE oce     , ONLY:  zwd  => ta       , zws   => sa   ! (ta,sa) used as 3D workspace
       USE wrk_nemo, ONLY:   zwi => wrk_3d_3                 ! 3D workspace
+      USE timing,   ONLY: timing_start, timing_stop
       !! DCSE_NEMO: need additional directives for renamed module variables
 !FTRANS zwd :I :I :z
@@ -74 +75 @@
       REAL(wp) ::   z1_p2dt, zcoef, zzwi, zzws, zrhs, zzwibd   ! local scalars
       !!----------------------------------------------------------------------
+
+      CALL timing_start('dyn_zdf_imp')
 
       IF( wrk_in_use(3, 3) ) THEN
@@ -357 +360 @@
       IF( wrk_not_released(3, 3) )   CALL ctl_stop('dyn_zdf_imp: failed to release workspace array')
       !
+      CALL timing_stop('dyn_zdf_imp','section')
+      !
    END SUBROUTINE dyn_zdf_imp