- Timestamp:
- 2011-02-18T13:49:27+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynzdf_imp.F90
r2528 r2590 56 56 USE oce, ONLY : zwd => ta ! use ta as workspace 57 57 USE oce, ONLY : zws => sa ! use sa as workspace 58 USE wrk_nemo, ONLY: wrk_use, wrk_release 59 USE wrk_nemo, ONLY: zwi => wrk_3d_3 ! workspace 58 60 !! 59 61 INTEGER , INTENT( in ) :: kt ! ocean time-step index … … 63 65 REAL(wp) :: z1_p2dt, zcoef ! temporary scalars 64 66 REAL(wp) :: zzwi, zzws, zrhs ! temporary scalars 65 REAL(wp), DIMENSION(jpi,jpj,jpk) :: zwi ! 3D workspace66 67 !!---------------------------------------------------------------------- 68 69 IF(.NOT. wrk_use(3, 3))THEN 70 CALL ctl_stop('dyn_zdf_imp : requested workspace array unavailable.') 71 RETURN 72 END IF 67 73 68 74 IF( kt == nit000 ) THEN … … 253 259 END DO 254 260 ! 261 IF(.NOT. wrk_release(3, 3))THEN 262 CALL ctl_stop('dyn_zdf_imp : failed to release workspace array.') 263 END IF 264 ! 255 265 END SUBROUTINE dyn_zdf_imp 256 266
Note: See TracChangeset
for help on using the changeset viewer.