- 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/ldfdyn_c2d.h90
r2590 r2633 145 145 !! * Modules used 146 146 USE ldftra_oce, ONLY : aht0 147 USE wrk_nemo, ONLY: iwrk_ use, iwrk_release147 USE wrk_nemo, ONLY: iwrk_in_use, iwrk_not_released 148 148 USE wrk_nemo, ONLY: icof => iwrk_2d_1 149 149 !! * Arguments … … 162 162 !!---------------------------------------------------------------------- 163 163 164 IF( .not. iwrk_use(2, 1))THEN164 IF( iwrk_in_use(2, 1) )THEN 165 165 CALL ctl_stop('ldf_dyn_c2d_orca: ERROR: requested workspace array is unavailable.') 166 166 RETURN … … 293 293 ENDIF 294 294 295 IF( .not. iwrk_release(2, 1))THEN295 IF( iwrk_not_released(2, 1) )THEN 296 296 CALL ctl_stop('ldf_dyn_c2d_orca: ERROR: failed to release workspace array.') 297 297 END IF … … 316 316 !! * Modules used 317 317 USE ldftra_oce, ONLY : aht0 318 USE wrk_nemo, ONLY: iwrk_ use, iwrk_release318 USE wrk_nemo, ONLY: iwrk_in_use, iwrk_not_released 319 319 USE wrk_nemo, ONLY: icof => iwrk_2d_1 320 320 … … 334 334 !!---------------------------------------------------------------------- 335 335 336 IF( .not. iwrk_use(2, 1))THEN336 IF( iwrk_in_use(2, 1) )THEN 337 337 CALL ctl_stop('ldf_dyn_c2d_orca_R1: ERROR: requested workspace array is unavailable.') 338 338 RETURN … … 472 472 ENDIF 473 473 474 IF( .not. iwrk_release(2, 1))THEN474 IF( iwrk_not_released(2, 1) )THEN 475 475 CALL ctl_stop('ldf_dyn_c2d_orca_R1: ERROR: failed to release workspace array.') 476 476 END IF
Note: See TracChangeset
for help on using the changeset viewer.