- 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/dynkeg.F90
r2777 r2789 53 53 !!---------------------------------------------------------------------- 54 54 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 55 USE oce , ONLY: ztrdu => ta , ztrdv => sa ! (ta,sa) used as 3D workspace55 USE oce , ONLY: tsa ! tsa used as 2 3D workspace 56 56 USE wrk_nemo, ONLY: zhke => wrk_3d_1 ! 3D workspace 57 57 !! … … 60 60 INTEGER :: ji, jj, jk ! dummy loop indices 61 61 REAL(wp) :: zu, zv ! temporary scalars 62 REAL(wp), POINTER, DIMENSION(:,:,:) :: ztrdu, ztrdv 62 63 !!---------------------------------------------------------------------- 63 64 … … 73 74 74 75 IF( l_trddyn ) THEN ! Save ua and va trends 76 ztrdu => tsa(:,:,:,1) 77 ztrdv => tsa(:,:,:,2) 78 ! 75 79 ztrdu(:,:,:) = ua(:,:,:) 76 80 ztrdv(:,:,:) = va(:,:,:)
Note: See TracChangeset
for help on using the changeset viewer.