| File |
Line number |
Procedure |
Code |
|
./pkg/my82/my82_calc.F |
105 |
MY82_CALC |
RiTmp = MIN(RiNumber(I,J),RiMax) |
|
./pkg/my82/my82_calc.F |
106 |
MY82_CALC |
btmp = beta1+beta4*RiTmp |
|
./pkg/my82/my82_calc.F |
109 |
MY82_CALC |
RiFlux = ( btmp - SQRT(btmp*btmp - 4.*beta2*beta3*RiTmp) ) |
|
./pkg/my82/my82_calc.F |
66 |
MY82_CALC |
_RL RiFlux, RiTmp |
|
./pkg/my82/my82_ri_number.F |
136 |
MY82_RI_NUMBER |
RiTmp(I,J) = RiNumber(I,J) |
|
./pkg/my82/my82_ri_number.F |
141 |
MY82_RI_NUMBER |
RiNumber(I,J) = p5*RiTmp(I,J) |
|
./pkg/my82/my82_ri_number.F |
142 |
MY82_RI_NUMBER |
& + p125*RiTmp(I-1,J) + p125*RiTmp(I+1,J) |
|
./pkg/my82/my82_ri_number.F |
143 |
MY82_RI_NUMBER |
& + p125*RiTmp(I,J-1) + p125*RiTmp(I,J+1) |
|
./pkg/my82/my82_ri_number.F |
75 |
MY82_RI_NUMBER |
_RL RiTmp (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/pp81/pp81_ri_number.F |
135 |
PP81_RI_NUMBER |
RiTmp(I,J) = RiNumber(I,J) |
|
./pkg/pp81/pp81_ri_number.F |
140 |
PP81_RI_NUMBER |
RiNumber(I,J) = p5*RiTmp(I,J) |
|
./pkg/pp81/pp81_ri_number.F |
141 |
PP81_RI_NUMBER |
& + p125*RiTmp(I-1,J) + p125*RiTmp(I+1,J) |
|
./pkg/pp81/pp81_ri_number.F |
142 |
PP81_RI_NUMBER |
& + p125*RiTmp(I,J-1) + p125*RiTmp(I,J+1) |
|
./pkg/pp81/pp81_ri_number.F |
75 |
PP81_RI_NUMBER |
_RL RiTmp (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |