- 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_cen2.F90
r2715 r2789 48 48 !!---------------------------------------------------------------------- 49 49 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 50 USE oce , ONLY: zfu => ta , zfv => sa ! (ta,sa) used as3D workspace50 USE oce , ONLY: tsa ! tsa used as 2 3D workspace 51 51 USE wrk_nemo, ONLY: zfu_t => wrk_3d_1 , zfv_t => wrk_3d_4 , zfu_uw =>wrk_3d_6 ! 3D workspaces 52 52 USE wrk_nemo, ONLY: zfu_f => wrk_3d_2 , zfv_f => wrk_3d_5 , zfv_vw =>wrk_3d_7 53 USE wrk_nemo, ONLY: zfw => wrk_3d_3 53 USE wrk_nemo, ONLY: zfw => wrk_3d_3 54 54 ! 55 55 INTEGER, INTENT( in ) :: kt ! ocean time-step index … … 57 57 INTEGER :: ji, jj, jk ! dummy loop indices 58 58 REAL(wp) :: zbu, zbv ! local scalars 59 REAL(wp), POINTER, DIMENSION(:,:,:) :: zfu, zfv 59 60 !!---------------------------------------------------------------------- 60 61 … … 69 70 CALL ctl_stop('dyn_adv_cen2 : requested workspace array unavailable') ; RETURN 70 71 ENDIF 71 72 ! 73 zfu => tsa(:,:,:,1) 74 zfv => tsa(:,:,:,2) 75 ! 72 76 IF( l_trddyn ) THEN ! Save ua and va trends 73 77 zfu_uw(:,:,:) = ua(:,:,:)
Note: See TracChangeset
for help on using the changeset viewer.