- Timestamp:
- 2011-03-15T16:27:46+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynadv_ubs.F90
r2636 r2690 69 69 !!---------------------------------------------------------------------- 70 70 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 71 USE oce , ONLY: zfu => ta ! ta used as 3D workspace 72 USE oce , ONLY: zfv => sa ! sa used as 3D workspace 71 USE oce , ONLY: zfu => ta , zfv => sa ! (ta,sa) used as 3D workspace 73 72 USE wrk_nemo, ONLY: zfu_t => wrk_3d_1 , zfv_t =>wrk_3d_4 , zfu_uw =>wrk_3d_6 ! 3D workspace 74 73 USE wrk_nemo, ONLY: zfu_f => wrk_3d_2 , zfv_f =>wrk_3d_5 , zfv_vw =>wrk_3d_7 … … 92 91 ! Check that required workspace arrays are not already in use 93 92 IF( wrk_in_use(3, 1,2,3,4,5,6,7) .OR. wrk_in_use(4, 1,2,3,4) ) THEN 94 CALL ctl_stop('dyn_adv_ubs 93 CALL ctl_stop('dyn_adv_ubs: requested workspace array unavailable') ; RETURN 95 94 ENDIF 96 95 … … 255 254 & tab3d_2=va, clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' ) 256 255 ! 257 IF( wrk_not_released(3, 1,2,3,4,5,6,7) .OR. &258 wrk_not_released(4, 1,2,3,4) ) CALL ctl_stop('dyn_adv_ubs: failed to release workspace array')256 IF( wrk_not_released(3, 1,2,3,4,5,6,7) .OR. & 257 wrk_not_released(4, 1,2,3,4) ) CALL ctl_stop('dyn_adv_ubs: failed to release workspace array') 259 258 ! 260 259 END SUBROUTINE dyn_adv_ubs
Note: See TracChangeset
for help on using the changeset viewer.