| File |
Line number |
Procedure |
Code |
|
./pkg/ggl90/ggl90_calc.F |
129 |
GGL90_CALC |
GGL90mixingLength(I,J,K) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
179 |
GGL90_CALC |
GGL90mixingLength(I,J,K) = |
|
./pkg/ggl90/ggl90_calc.F |
182 |
GGL90_CALC |
GGL90mixingLength(I,J,K) = MIN(GGL90mixingLength(I,J,K), |
|
./pkg/ggl90/ggl90_calc.F |
185 |
GGL90_CALC |
GGL90mixingLength(I,J,K) = MAX(GGL90mixingLength(I,J,K), |
|
./pkg/ggl90/ggl90_calc.F |
188 |
GGL90_CALC |
KappaM = GGL90ck*GGL90mixingLength(I,J,K)*SQRTTKE |
|
./pkg/ggl90/ggl90_calc.F |
192 |
GGL90_CALC |
& *SQRTTKE/GGL90mixingLength(I,J,K) |
|
./pkg/ggl90/ggl90_calc.F |
308 |
GGL90_CALC |
& /GGL90mixingLength(I,J,K) |
|
./pkg/ggl90/ggl90_calc.F |
363 |
GGL90_CALC |
KappaM = GGL90ck*GGL90mixingLength(I,J,K)* |
|
./pkg/ggl90/ggl90_calc.F |
88 |
GGL90_CALC |
_RL GGL90mixingLength(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |