- Timestamp:
- 2020-09-29T12:40:29+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r13383_HPC-02_Daley_Tiling/src/OCE/TRA/traldf_iso.F90
r13515 r13539 123 123 INTEGER , INTENT(in ) :: Kmm ! ocean time level index 124 124 INTEGER , INTENT(in ) :: ktah, ktg, ktgi, ktt, ktt2, ktt_rhs 125 REAL(wp), DIMENSION(ST_2DT(ktah) , jpk) , INTENT(in ) :: pahu, pahv ! eddy diffusivity at u- and v-points [m2/s]126 REAL(wp), DIMENSION(ST_2DT(ktg) , kjpt), INTENT(in ) :: pgu, pgv ! tracer gradient at pstep levels127 REAL(wp), DIMENSION(ST_2DT(ktgi) , kjpt), INTENT(in ) :: pgui, pgvi ! tracer gradient at top levels128 REAL(wp), DIMENSION(ST_2DT(ktt) , jpk,kjpt), INTENT(in ) :: pt ! tracer (kpass=1) or laplacian of tracer (kpass=2)129 REAL(wp), DIMENSION(ST_2DT(ktt2) , jpk,kjpt), INTENT(in ) :: pt2 ! tracer (only used in kpass=2)130 REAL(wp), DIMENSION(ST_2DT(ktt_rhs), jpk,kjpt), INTENT(inout) :: pt_rhs ! tracer trend125 REAL(wp), DIMENSION(ST_2DT(ktah) ,JPK) , INTENT(in ) :: pahu, pahv ! eddy diffusivity at u- and v-points [m2/s] 126 REAL(wp), DIMENSION(ST_2DT(ktg) ,KJPT), INTENT(in ) :: pgu, pgv ! tracer gradient at pstep levels 127 REAL(wp), DIMENSION(ST_2DT(ktgi) ,KJPT), INTENT(in ) :: pgui, pgvi ! tracer gradient at top levels 128 REAL(wp), DIMENSION(ST_2DT(ktt) ,JPK,KJPT), INTENT(in ) :: pt ! tracer (kpass=1) or laplacian of tracer (kpass=2) 129 REAL(wp), DIMENSION(ST_2DT(ktt2) ,JPK,KJPT), INTENT(in ) :: pt2 ! tracer (only used in kpass=2) 130 REAL(wp), DIMENSION(ST_2DT(ktt_rhs),JPK,KJPT), INTENT(inout) :: pt_rhs ! tracer trend 131 131 ! 132 132 INTEGER :: ji, jj, jk, jn ! dummy loop indices
Note: See TracChangeset
for help on using the changeset viewer.