Changeset 4436


Ignore:
Timestamp:
2014-02-04T13:14:49+01:00 (7 years ago)
Author:
trackstand2
Message:

Added timing calls

Location:
branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/BDY/bdydyn.F90

    r4435 r4436  
    203203      ENDIF ! ln_dyn_fla .or. ln_tides 
    204204      ! 
    205       CALL timing_stop('bdy_dyn_fla','section') 
     205      CALL timing_stop('bdy_dyn_fla') 
    206206      ! 
    207207   END SUBROUTINE bdy_dyn_fla 
  • branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/BDY/bdytides.F90

    r3211 r4436  
    290290 
    291291   SUBROUTINE tide_update ( kt, jit ) 
     292      USE timing, ONLY: timing_start, timing_stop 
    292293      !!---------------------------------------------------------------------- 
    293294      !!                 ***  SUBROUTINE tide_update  *** 
     
    304305      REAL(wp), DIMENSION(jptides_max) :: z_sist, z_cost 
    305306      !!---------------------------------------------------------------------- 
     307 
     308      CALL timing_start('tide_update') 
    306309 
    307310      ! Note tide phase speeds are in deg/hour, so we need to convert the 
     
    342345         END DO 
    343346      END DO 
     347      ! 
     348      CALL timing_stop('tide_update','section') 
    344349      ! 
    345350   END SUBROUTINE tide_update 
  • branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/DYN/dynzdf_imp.F90

    r4406 r4436  
    6363      USE oce     , ONLY:  zwd  => ta       , zws   => sa   ! (ta,sa) used as 3D workspace 
    6464      USE wrk_nemo, ONLY:   zwi => wrk_3d_3                 ! 3D workspace 
     65      USE timing,   ONLY: timing_start, timing_stop 
    6566      !! DCSE_NEMO: need additional directives for renamed module variables 
    6667!FTRANS zwd :I :I :z 
     
    7475      REAL(wp) ::   z1_p2dt, zcoef, zzwi, zzws, zrhs, zzwibd   ! local scalars 
    7576      !!---------------------------------------------------------------------- 
     77 
     78      CALL timing_start('dyn_zdf_imp') 
    7679 
    7780      IF( wrk_in_use(3, 3) ) THEN 
     
    357360      IF( wrk_not_released(3, 3) )   CALL ctl_stop('dyn_zdf_imp: failed to release workspace array') 
    358361      ! 
     362      CALL timing_stop('dyn_zdf_imp','section') 
     363      ! 
    359364   END SUBROUTINE dyn_zdf_imp 
    360365 
Note: See TracChangeset for help on using the changeset viewer.