- 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/OBS/obs_rot_vel.F90
r2590 r2633 55 55 !!---------------------------------------------------------------------- 56 56 !! * Modules used 57 USE wrk_nemo, ONLY: wrk_ use, wrk_release57 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 58 58 USE wrk_nemo, ONLY: zsingu => wrk_2d_1, zcosgu => wrk_2d_2, & 59 59 zsingv => wrk_2d_3, zcosgv => wrk_2d_4 … … 93 93 INTEGER :: jk 94 94 95 IF( .NOT. wrk_use(2, 1,2,3,4))THEN95 IF(wrk_in_use(2, 1,2,3,4))THEN 96 96 CALL ctl_stop('obs_rotvel : requested workspace arrays unavailable.') 97 97 RETURN … … 229 229 & ) 230 230 231 IF( .NOT. wrk_release(2, 1,2,3,4))THEN231 IF(wrk_not_released(2, 1,2,3,4))THEN 232 232 CALL ctl_stop('obs_rotvel : failed to release workspace arrays.') 233 233 END IF
Note: See TracChangeset
for help on using the changeset viewer.