- Timestamp:
- 2011-02-28T18:23:23+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynnxt.F90
r2590 r2633 93 93 USE oce, ONLY : ze3u_f => ta ! use ta as 3D workspace 94 94 USE oce, ONLY : ze3v_f => sa ! use sa as 3D workspace 95 USE wrk_nemo, ONLY: wrk_ use, wrk_release95 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 96 96 USE wrk_nemo, ONLY: zs_t => wrk_2d_1, zs_u_1 => wrk_2d_2, & 97 97 zs_v_1 => wrk_2d_3 … … 110 110 !!---------------------------------------------------------------------- 111 111 112 IF( .NOT. wrk_use(2, 1,2,3))THEN112 IF(wrk_in_use(2, 1,2,3))THEN 113 113 CALL ctl_stop('dyn_nxt: requested workspace arrays unavailable.') 114 114 RETURN … … 325 325 & tab3d_2=vn, clinfo2=' Vn: ' , mask2=vmask ) 326 326 ! 327 IF( .NOT. wrk_release(2, 1,2,3))THEN327 IF(wrk_not_released(2, 1,2,3))THEN 328 328 CALL ctl_stop('dyn_nxt: failed to release workspace arrays.') 329 329 END IF
Note: See TracChangeset
for help on using the changeset viewer.