- 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/trabbl.F90
r2623 r2633 169 169 !! Campin, J.-M., and H. Goosse, 1999, Tellus, 412-430. 170 170 !!---------------------------------------------------------------------- 171 USE wrk_nemo, ONLY: wrk_ use, wrk_release171 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 172 172 USE wrk_nemo, ONLY: zptb => wrk_2d_1 173 173 ! … … 181 181 !!---------------------------------------------------------------------- 182 182 ! 183 IF( .not. wrk_use(2,1) ) THEN183 IF(wrk_in_use(2,1) ) THEN 184 184 CALL ctl_stop('tra_bbl_dif: ERROR: requested workspace array unavailable') ; RETURN 185 185 ENDIF … … 218 218 END DO ! end tracer 219 219 ! ! =========== 220 IF( .not. wrk_release(2,1) ) CALL ctl_stop('tra_bbl_dif: failed to release workspace array')220 IF(wrk_not_released(2,1) ) CALL ctl_stop('tra_bbl_dif: failed to release workspace array') 221 221 ! 222 222 END SUBROUTINE tra_bbl_dif … … 338 338 !! Campin, J.-M., and H. Goosse, 1999, Tellus, 412-430. 339 339 !!---------------------------------------------------------------------- 340 USE wrk_nemo, ONLY: wrk_ use, wrk_release340 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 341 341 USE wrk_nemo, ONLY: zub => wrk_2d_1 , ztb => wrk_2d_2 ! 2D workspace 342 342 USE wrk_nemo, ONLY: zvb => wrk_2d_3 , zsb => wrk_2d_4 , zdep => wrk_2d_5 … … 385 385 !!---------------------------------------------------------------------- 386 386 387 IF( .not. wrk_use(2, 1,2,3,4,5) ) THEN387 IF(wrk_in_use(2, 1,2,3,4,5) ) THEN 388 388 CALL ctl_stop('bbl: requested workspace arrays unavailable') ; RETURN 389 389 ENDIF … … 525 525 ENDIF 526 526 ! 527 IF( .not. wrk_release(2, 1,2,3,4,5) ) CALL ctl_stop('bbl: failed to release workspace arrays')527 IF(wrk_not_released(2, 1,2,3,4,5) ) CALL ctl_stop('bbl: failed to release workspace arrays') 528 528 ! 529 529 END SUBROUTINE bbl … … 539 539 !! called by nemo_init at the first timestep (nit000) 540 540 !!---------------------------------------------------------------------- 541 USE wrk_nemo, ONLY: wrk_ use, wrk_release541 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 542 542 USE wrk_nemo, ONLY: zmbk => wrk_2d_1 ! 2D workspace 543 543 INTEGER :: ji, jj ! dummy loop indices … … 547 547 !!---------------------------------------------------------------------- 548 548 549 IF( .not. wrk_use(2,1) ) THEN549 IF(wrk_in_use(2,1) ) THEN 550 550 CALL ctl_stop('tra_bbl_init: requested workspace array unavailable') ; RETURN 551 551 ENDIF … … 635 635 ENDIF 636 636 ! 637 IF( .not. wrk_release(2,1))THEN637 IF(wrk_not_released(2,1))THEN 638 638 CALL ctl_stop('tra_bbl_init: ERROR: failed to release workspace array') 639 639 END IF
Note: See TracChangeset
for help on using the changeset viewer.