- 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/dynvor.F90
r2618 r2633 204 204 !! References : Sadourny, r., 1975, j. atmos. sciences, 32, 680-689. 205 205 !!---------------------------------------------------------------------- 206 USE wrk_nemo, ONLY: wrk_ use, wrk_release206 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 207 207 USE wrk_nemo, ONLY: zwx => wrk_2d_1, zwy => wrk_2d_2, zwz => wrk_2d_3 208 208 !! … … 218 218 !!---------------------------------------------------------------------- 219 219 220 IF( .NOT. wrk_use(2, 1,2,3))THEN220 IF(wrk_in_use(2, 1,2,3))THEN 221 221 CALL ctl_stop('dyn:vor_ene: requested workspace arrays unavailable.') 222 222 RETURN … … 286 286 END DO ! End of slab 287 287 ! ! =============== 288 IF( .NOT. wrk_release(2, 1,2,3))THEN288 IF(wrk_not_released(2, 1,2,3))THEN 289 289 CALL ctl_stop('dyn:vor_ene: failed to release workspace arrays.') 290 290 END IF … … 324 324 !! References : Sadourny, r., 1975, j. atmos. sciences, 32, 680-689. 325 325 !!---------------------------------------------------------------------- 326 USE wrk_nemo, ONLY: wrk_ use, wrk_release326 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 327 327 USE wrk_nemo, ONLY: zwx => wrk_2d_4, zwy => wrk_2d_5, & 328 328 zwz => wrk_2d_6, zww => wrk_2d_7 … … 335 335 !!---------------------------------------------------------------------- 336 336 337 IF( .NOT. wrk_use(2, 4,5,6,7))THEN337 IF(wrk_in_use(2, 4,5,6,7))THEN 338 338 CALL ctl_stop('dyn:vor_mix: requested workspace arrays unavailable.') 339 339 RETURN … … 410 410 END DO ! End of slab 411 411 ! ! =============== 412 IF( .NOT. wrk_release(2, 4,5,6,7))THEN412 IF(wrk_not_released(2, 4,5,6,7))THEN 413 413 CALL ctl_stop('dyn:vor_mix: failed to release workspace arrays.') 414 414 END IF … … 443 443 !! References : Sadourny, r., 1975, j. atmos. sciences, 32, 680-689. 444 444 !!---------------------------------------------------------------------- 445 USE wrk_nemo, ONLY: wrk_ use, wrk_release445 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 446 446 USE wrk_nemo, ONLY: zwx => wrk_2d_4, zwy => wrk_2d_5, zwz => wrk_2d_6 447 447 !! … … 456 456 !!---------------------------------------------------------------------- 457 457 458 IF( .NOT. wrk_use(2, 4,5,6))THEN458 IF(wrk_in_use(2, 4,5,6))THEN 459 459 CALL ctl_stop('dyn:vor_ens : requested workspace arrays unavailable.') 460 460 RETURN … … 532 532 END DO ! End of slab 533 533 ! ! =============== 534 IF( .NOT. wrk_release(2, 4,5,6))THEN534 IF(wrk_not_released(2, 4,5,6))THEN 535 535 CALL ctl_stop('dyn:vor_ens : failed to release workspace arrays.') 536 536 END IF … … 558 558 !! References : Arakawa and Lamb 1980, Mon. Wea. Rev., 109, 18-36 559 559 !!---------------------------------------------------------------------- 560 USE wrk_nemo, ONLY: wrk_ use, wrk_release560 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 561 561 USE wrk_nemo, ONLY: zwx => wrk_2d_1 , zwy => wrk_2d_2 , zwz => wrk_2d_3 562 562 USE wrk_nemo, ONLY: ztnw => wrk_2d_4 , ztne => wrk_2d_5 … … 580 580 !!---------------------------------------------------------------------- 581 581 582 IF( .NOT. wrk_use(2, 1,2,3,4,5,6,7) .AND. .NOT. wrk_use(3, 1) ) THEN582 IF(wrk_in_use(2, 1,2,3,4,5,6,7) .OR. wrk_in_use(3, 1) ) THEN 583 583 CALL ctl_stop('dyn:vor_een : requested workspace arrays unavailable.') ; RETURN 584 584 END IF … … 681 681 END DO ! End of slab 682 682 ! ! =============== 683 IF( .NOT. wrk_release(2, 1,2,3,4,5,6,7) .AND. &684 .NOT. wrk_release(3, 1) ) CALL ctl_stop('dyn:vor_een : failed to release workspace arrays')683 IF(wrk_not_released(2, 1,2,3,4,5,6,7) .OR. & 684 wrk_not_released(3, 1) ) CALL ctl_stop('dyn:vor_een : failed to release workspace arrays') 685 685 ! 686 686 END SUBROUTINE vor_een
Note: See TracChangeset
for help on using the changeset viewer.