| File |
Line number |
Procedure |
Code |
|
./pkg/my82/my82_calc.F |
107 |
MY82_CALC |
RiFlux =( btmp - SQRT(btmp*btmp - 4. _d 0 *beta2*beta3*RiTmp) ) |
|
./pkg/my82/my82_calc.F |
110 |
MY82_CALC |
SHtmp = (alpha1-alpha2*RiFlux)/(1. _d 0-RiFlux) |
|
./pkg/my82/my82_calc.F |
112 |
MY82_CALC |
SM(I,J,K) = SHtmp*(beta1-beta2*RiFlux)/(beta3-beta4*RiFlux) |
|
./pkg/my82/my82_calc.F |
64 |
MY82_CALC |
_RL RiFlux, RiTmp |
|
./pkg/pp81/pp81_ri_number.F |
114 |
PP81_RI_NUMBER |
RiFlux = tempu*tempu+tempv*tempv |
|
./pkg/pp81/pp81_ri_number.F |
125 |
PP81_RI_NUMBER |
RiNumber(I,J) = buoyFreq/max(RiFlux,epsilon) |
|
./pkg/pp81/pp81_ri_number.F |
68 |
PP81_RI_NUMBER |
_RL RiFlux |