| File |
Line number |
Procedure |
Code |
|
./pkg/ggl90/ggl90_calc.F |
188 |
GGL90_CALC |
KappaM = GGL90ck*GGL90mixingLength(I,J,K)*SQRTTKE |
|
./pkg/ggl90/ggl90_calc.F |
189 |
GGL90_CALC |
KappaE(I,J,K) = KappaM*GGL90alpha |
|
./pkg/ggl90/ggl90_calc.F |
197 |
GGL90_CALC |
& + KappaM*verticalShear |
|
./pkg/ggl90/ggl90_calc.F |
198 |
GGL90_CALC |
& - KappaM*Nsquare/TKEPrandtlNumber(I,J,K) |
|
./pkg/ggl90/ggl90_calc.F |
363 |
GGL90_CALC |
KappaM = GGL90ck*GGL90mixingLength(I,J,K)* |
|
./pkg/ggl90/ggl90_calc.F |
365 |
GGL90_CALC |
KappaH = KappaM/TKEPrandtlNumber(I,J,K) |
|
./pkg/ggl90/ggl90_calc.F |
367 |
GGL90_CALC |
KappaM = MAX(KappaM,viscAr) |
|
./pkg/ggl90/ggl90_calc.F |
370 |
GGL90_CALC |
GGL90viscAr(I,J,K,bi,bj) = MIN(KappaM,GGL90viscMax) |
|
./pkg/ggl90/ggl90_calc.F |
80 |
GGL90_CALC |
_RL KappaM, KappaH |