- 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/LDF/ldfeiv.F90
r2590 r2633 53 53 !! - wslpi, wslpj : i- and j-slopes of neutral surfaces at w-points. 54 54 !!---------------------------------------------------------------------- 55 USE wrk_nemo, ONLY: wrk_ use, wrk_release55 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 56 56 USE wrk_nemo, ONLY: zn => wrk_2d_1, zah => wrk_2d_2, & 57 57 zhw => wrk_2d_3, zross => wrk_2d_4 … … 63 63 !!---------------------------------------------------------------------- 64 64 65 IF( .not. wrk_use(2, 1,2,3,4))THEN65 IF(wrk_in_use(2, 1,2,3,4))THEN 66 66 CALL ctl_stop('ldf_eiv: ERROR: requested workspace arrays are unavailable.') 67 67 RETURN … … 244 244 CALL iom_put( "aht2d_eiv", aeiw ) ! EIV lateral eddy diffusivity 245 245 ! 246 IF( .not. wrk_release(2, 1,2,3,4))THEN246 IF(wrk_not_released(2, 1,2,3,4))THEN 247 247 CALL ctl_stop('ldf_eiv: ERROR: failed to release workspace arrays.') 248 248 END IF
Note: See TracChangeset
for help on using the changeset viewer.