| File |
Line number |
Procedure |
Code |
|
./model/src/calc_3d_diffusivity.F |
112 |
CALC_3D_DIFFUSIVITY |
iTr = trIdentity - GAD_TR1 + 1 |
|
./model/src/calc_3d_diffusivity.F |
123 |
CALC_3D_DIFFUSIVITY |
& + PTRACERS_diffKrNr(k,iTr) |
|
./model/src/calc_3d_diffusivity.F |
65 |
CALC_3D_DIFFUSIVITY |
INTEGER iTr |
|
./pkg/ptracers/ptracers_calc_diff.F |
108 |
PTRACERS_CALC_DIFF |
U KappaRtr(1-Olx,1-Oly,iTr), |
|
./pkg/ptracers/ptracers_calc_diff.F |
117 |
PTRACERS_CALC_DIFF |
U KappaRtr(1-Olx,1-Oly,iTr), |
|
./pkg/ptracers/ptracers_calc_diff.F |
127 |
PTRACERS_CALC_DIFF |
KappaRtr(i,j,iTr) = maskUp(i,j)*KappaRtr(i,j,iTr) |
|
./pkg/ptracers/ptracers_calc_diff.F |
54 |
PTRACERS_CALC_DIFF |
INTEGER i,j,iTr |
|
./pkg/ptracers/ptracers_calc_diff.F |
62 |
PTRACERS_CALC_DIFF |
DO iTr=1,PTRACERS_numInUse |
|
./pkg/ptracers/ptracers_calc_diff.F |
66 |
PTRACERS_CALC_DIFF |
KappaRtr(i,j,iTr) = |
|
./pkg/ptracers/ptracers_calc_diff.F |
71 |
PTRACERS_CALC_DIFF |
& + PTRACERS_diffKrNr(k,iTr) |
|
./pkg/ptracers/ptracers_calc_diff.F |
78 |
PTRACERS_CALC_DIFF |
IF ( PTRACERS_useGMRedi(iTr) ) THEN |
|
./pkg/ptracers/ptracers_calc_diff.F |
81 |
PTRACERS_CALC_DIFF |
U KappaRtr(1-Olx,1-Oly,iTr), |
|
./pkg/ptracers/ptracers_calc_diff.F |
87 |
PTRACERS_CALC_DIFF |
IF ( PTRACERS_useKPP(iTr) ) THEN |
|
./pkg/ptracers/ptracers_calc_diff.F |
90 |
PTRACERS_CALC_DIFF |
U KappaRtr(1-Olx,1-Oly,iTr), |
|
./pkg/ptracers/ptracers_calc_diff.F |
99 |
PTRACERS_CALC_DIFF |
U KappaRtr(1-Olx,1-Oly,iTr), |