| File |
Line number |
Procedure |
Code |
|
./pkg/ggl90/ggl90_calc.F |
192 |
GGL90_CALC |
KappaM = GGL90ck*GGL90mixingLength(I,J,K)*SQRTTKE |
|
./pkg/ggl90/ggl90_calc.F |
193 |
GGL90_CALC |
KappaE(I,J,K) = KappaM*GGL90alpha |
|
./pkg/ggl90/ggl90_calc.F |
201 |
GGL90_CALC |
& + KappaM*verticalShear |
|
./pkg/ggl90/ggl90_calc.F |
202 |
GGL90_CALC |
& - KappaM*Nsquare/TKEPrandtlNumber(I,J,K) |
|
./pkg/ggl90/ggl90_calc.F |
367 |
GGL90_CALC |
KappaM = GGL90ck*GGL90mixingLength(I,J,K)* |
|
./pkg/ggl90/ggl90_calc.F |
369 |
GGL90_CALC |
KappaH = KappaM/TKEPrandtlNumber(I,J,K) |
|
./pkg/ggl90/ggl90_calc.F |
371 |
GGL90_CALC |
KappaM = MAX(KappaM,viscAr) |
|
./pkg/ggl90/ggl90_calc.F |
374 |
GGL90_CALC |
GGL90viscAr(I,J,K,bi,bj) = MIN(KappaM,GGL90viscMax) |
|
./pkg/ggl90/ggl90_calc.F |
81 |
GGL90_CALC |
_RL KappaM, KappaH |