- Timestamp:
- 2011-06-27T13:18:25+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_r2787_LOCEAN3_TRA_TRP/NEMOGCM/NEMO/OPA_SRC/DYN/dynadv_ubs.F90
r2715 r2789 69 69 !!---------------------------------------------------------------------- 70 70 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 71 USE oce , ONLY: zfu => ta , zfv => sa ! (ta,sa) used as3D workspace71 USE oce , ONLY: tsa ! tsa used as 2 3D workspace 72 72 USE wrk_nemo, ONLY: zfu_t => wrk_3d_1 , zfv_t =>wrk_3d_4 , zfu_uw =>wrk_3d_6 ! 3D workspace 73 73 USE wrk_nemo, ONLY: zfu_f => wrk_3d_2 , zfv_f =>wrk_3d_5 , zfv_vw =>wrk_3d_7 … … 81 81 REAL(wp) :: zbu, zbv ! temporary scalars 82 82 REAL(wp) :: zui, zvj, zfuj, zfvi, zl_u, zl_v ! temporary scalars 83 REAL(wp), POINTER, DIMENSION(:,:,:) :: zfu, zfv 83 84 !!---------------------------------------------------------------------- 84 85 … … 93 94 CALL ctl_stop('dyn_adv_ubs: requested workspace array unavailable') ; RETURN 94 95 ENDIF 95 96 ! 97 zfu => tsa(:,:,:,1) 98 zfv => tsa(:,:,:,2) 99 ! 96 100 zfu_t(:,:,:) = 0._wp 97 101 zfv_t(:,:,:) = 0._wp
Note: See TracChangeset
for help on using the changeset viewer.