- Timestamp:
- 2014-02-04T13:14:49+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/DYN/dynzdf_imp.F90
r4406 r4436 63 63 USE oce , ONLY: zwd => ta , zws => sa ! (ta,sa) used as 3D workspace 64 64 USE wrk_nemo, ONLY: zwi => wrk_3d_3 ! 3D workspace 65 USE timing, ONLY: timing_start, timing_stop 65 66 !! DCSE_NEMO: need additional directives for renamed module variables 66 67 !FTRANS zwd :I :I :z … … 74 75 REAL(wp) :: z1_p2dt, zcoef, zzwi, zzws, zrhs, zzwibd ! local scalars 75 76 !!---------------------------------------------------------------------- 77 78 CALL timing_start('dyn_zdf_imp') 76 79 77 80 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') 358 361 ! 362 CALL timing_stop('dyn_zdf_imp','section') 363 ! 359 364 END SUBROUTINE dyn_zdf_imp 360 365
Note: See TracChangeset
for help on using the changeset viewer.