| File |
Line number |
Procedure |
Code |
|
./pkg/my82/my82_calc.F |
101 |
MY82_CALC |
O RiNumber, GH, GM, |
|
./pkg/my82/my82_calc.F |
105 |
MY82_CALC |
RiTmp = MIN(RiNumber(I,J),RiMax) |
|
./pkg/my82/my82_calc.F |
68 |
MY82_CALC |
_RL RiNumber(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/my82/my82_ri_number.F |
127 |
MY82_RI_NUMBER |
RiNumber(I,J) = -buoyFreq(I,J)/max(vertShear(I,J),epsilon) |
|
./pkg/my82/my82_ri_number.F |
12 |
MY82_RI_NUMBER |
O RiNumber, buoyFreq, vertShear, |
|
./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 |
54 |
MY82_RI_NUMBER |
_RL RiNumber (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/ggl90/ggl90_calc.F |
173 |
GGL90_CALC |
RiNumber = MAX(Nsquare,0. _d 0)/(verticalShear+GGL90eps) |
|
./pkg/ggl90/ggl90_calc.F |
176 |
GGL90_CALC |
IF ( RiNumber .GE. 0.2 ) prTemp = 5.0 * RiNumber |
|
./pkg/ggl90/ggl90_calc.F |
84 |
GGL90_CALC |
_RL RiNumber |
|
./pkg/pp81/pp81_calc.F |
63 |
PP81_CALC |
_RL RiNumber(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/pp81/pp81_calc.F |
73 |
PP81_CALC |
O RiNumber, |
|
./pkg/pp81/pp81_calc.F |
77 |
PP81_CALC |
IF ( RiNumber(I,J) .LT. RiLimit ) THEN |
|
./pkg/pp81/pp81_calc.F |
81 |
PP81_CALC |
denom = 1.0 + PPalpha*RiNumber(I,J) |
|
./pkg/pp81/pp81_ri_number.F |
127 |
PP81_RI_NUMBER |
RiNumber(I,J) = buoyFreq/max(RiFlux,epsilon) |
|
./pkg/pp81/pp81_ri_number.F |
12 |
PP81_RI_NUMBER |
O RiNumber, |
|
./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 |
52 |
PP81_RI_NUMBER |
_RL RiNumber(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |