| File |
Line number |
Procedure |
Code |
|
./pkg/my82/my82_calc.F |
103 |
MY82_CALC |
RiTmp = MIN(RiNumber(I,J),RiMax) |
|
./pkg/my82/my82_calc.F |
104 |
MY82_CALC |
btmp = beta1+beta4*RiTmp |
|
./pkg/my82/my82_calc.F |
107 |
MY82_CALC |
RiFlux =( btmp - SQRT(btmp*btmp - 4. _d 0 *beta2*beta3*RiTmp) ) |
|
./pkg/my82/my82_calc.F |
64 |
MY82_CALC |
_RL RiFlux, RiTmp |
|
./pkg/my82/my82_ri_number.F |
130 |
MY82_RI_NUMBER |
RiTmp(I,J) = RiNumber(I,J) |
|
./pkg/my82/my82_ri_number.F |
135 |
MY82_RI_NUMBER |
RiNumber(I,J) = p5*RiTmp(I,J) |
|
./pkg/my82/my82_ri_number.F |
136 |
MY82_RI_NUMBER |
& + p125*RiTmp(I-1,J) + p125*RiTmp(I+1,J) |
|
./pkg/my82/my82_ri_number.F |
137 |
MY82_RI_NUMBER |
& + p125*RiTmp(I,J-1) + p125*RiTmp(I,J+1) |
|
./pkg/my82/my82_ri_number.F |
69 |
MY82_RI_NUMBER |
_RL RiTmp (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/pp81/pp81_ri_number.F |
133 |
PP81_RI_NUMBER |
RiTmp(I,J) = RiNumber(I,J) |
|
./pkg/pp81/pp81_ri_number.F |
138 |
PP81_RI_NUMBER |
RiNumber(I,J) = p5*RiTmp(I,J) |
|
./pkg/pp81/pp81_ri_number.F |
139 |
PP81_RI_NUMBER |
& + p125*RiTmp(I-1,J) + p125*RiTmp(I+1,J) |
|
./pkg/pp81/pp81_ri_number.F |
140 |
PP81_RI_NUMBER |
& + p125*RiTmp(I,J-1) + p125*RiTmp(I,J+1) |
|
./pkg/pp81/pp81_ri_number.F |
73 |
PP81_RI_NUMBER |
_RL RiTmp (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |