- 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/dynvor.F90
r2715 r2789 71 71 !! and planetary vorticity trends) ('key_trddyn') 72 72 !!---------------------------------------------------------------------- 73 USE oce, ONLY: ztrdu => ta , ztrdv => sa ! (ta,sa) used as3D workspace74 ! 73 USE oce, ONLY: tsa ! tsa used as 2 3D workspace 74 !! 75 75 INTEGER, INTENT( in ) :: kt ! ocean time-step index 76 !!---------------------------------------------------------------------- 76 ! 77 REAL(wp), POINTER, DIMENSION(:,:,:) :: ztrdu, ztrdv 78 !!---------------------------------------------------------------------- 79 ! 80 IF( l_trddyn ) THEN 81 ztrdu => tsa(:,:,:,1) 82 ztrdv => tsa(:,:,:,2) 83 END IF 77 84 ! 78 85 ! ! vorticity term
Note: See TracChangeset
for help on using the changeset viewer.