| File |
Line number |
Procedure |
Code |
|
./pkg/ggl90/ggl90_calc.F |
471 |
GGL90_CALC |
RiNumber = MAX(Nsquare(i,j,k),0. _d 0) |
|
./pkg/ggl90/ggl90_calc.F |
476 |
GGL90_CALC |
prTemp = MIN(5.*RiNumber, 6.6 _d 0*IDEMIX_RiNumber) |
|
./pkg/ggl90/ggl90_calc.F |
487 |
GGL90_CALC |
RiNumber = MAX(Nsquare(i,j,k),0. _d 0) |
|
./pkg/ggl90/ggl90_calc.F |
490 |
GGL90_CALC |
IF ( RiNumber .GE. 0.2 _d 0 ) prTemp = 5. _d 0 * RiNumber |
|
./pkg/ggl90/ggl90_calc.F |
89 |
GGL90_CALC |
_RL RiNumber |
|
./pkg/my82/my82_calc.F |
103 |
MY82_CALC |
RiTmp = MIN(RiNumber(I,J),RiMax) |
|
./pkg/my82/my82_calc.F |
66 |
MY82_CALC |
_RL RiNumber(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/my82/my82_calc.F |
99 |
MY82_CALC |
O RiNumber, GH, GM, |
|
./pkg/my82/my82_ri_number.F |
121 |
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 |
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 |
48 |
MY82_RI_NUMBER |
_RL RiNumber (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./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 |
125 |
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 |
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 |
50 |
PP81_RI_NUMBER |
_RL RiNumber(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |