- Timestamp:
- 2014-02-04T13:17:29+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf_iso.F90
r4453 r4460 1143 1143 #endif 1144 1144 !CALL timing_stop('dyn_ldf_iso_vslab','section') 1145 #if defined ARPDBGSUM 1146 WRITE (*,*) narea,': ARPDBG: end dyn_ldf_iso SUM(ua)= ',SUM(ua),' at step=',kt 1147 #endif 1145 1148 1146 1149 IF( wrk_not_released(2, 1,2,3,4,5,6,7,8) ) CALL ctl_stop('dyn_ldf_iso: failed to release workspace arrays')
Note: See TracChangeset
for help on using the changeset viewer.