- 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/TRA/traadv_eiv.F90
r2590 r2633 64 64 !! ** Action : - add to p.n the eiv component 65 65 !!---------------------------------------------------------------------- 66 USE wrk_nemo, ONLY: wrk_ use, wrk_release66 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 67 67 USE wrk_nemo, ONLY: zu_eiv => wrk_2d_1, zv_eiv => wrk_2d_2, & 68 68 zw_eiv => wrk_2d_3 … … 85 85 86 86 # if defined key_diaeiv 87 IF( .not. wrk_use(2, 1,2,3,4))THEN87 IF(wrk_in_use(2, 1,2,3,4))THEN 88 88 #else 89 IF( .not. wrk_use(2, 1,2,3))THEN89 IF(wrk_in_use(2, 1,2,3))THEN 90 90 #endif 91 91 CALL ctl_stop('tra_adv_eiv: ERROR: requested workspace arrays are unavailable.') … … 194 194 ! 195 195 # if defined key_diaeiv 196 IF( .not. wrk_release(2, 1,2,3,4))THEN196 IF(wrk_not_released(2, 1,2,3,4))THEN 197 197 #else 198 IF( .not. wrk_release(2, 1,2,3))THEN198 IF(wrk_not_released(2, 1,2,3))THEN 199 199 #endif 200 200 CALL ctl_stop('tra_adv_eiv: ERROR: failed to release workspace arrays.')
Note: See TracChangeset
for help on using the changeset viewer.