| File |
Line number |
Procedure |
Code |
|
./pkg/ggl90/ggl90_calc.F |
140 |
GGL90_CALC |
GGL90mixingLength(i,j,k) = GGL90mixingLengthMin |
|
./pkg/ggl90/ggl90_calc.F |
192 |
GGL90_CALC |
GGL90mixingLength(i,j,k) = SQRTTWO * |
|
./pkg/ggl90/ggl90_calc.F |
205 |
GGL90_CALC |
GGL90mixingLength(i,j,k) = MIN(GGL90mixingLength(i,j,k), |
|
./pkg/ggl90/ggl90_calc.F |
214 |
GGL90_CALC |
GGL90mixingLength(i,j,k) = MAX(GGL90mixingLength(i,j,k), |
|
./pkg/ggl90/ggl90_calc.F |
216 |
GGL90_CALC |
rMixingLength(i,j,k) = 1. _d 0 / GGL90mixingLength(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
228 |
GGL90_CALC |
GGL90mixingLength(i,j,k) = MIN(GGL90mixingLength(i,j,k), |
|
./pkg/ggl90/ggl90_calc.F |
237 |
GGL90_CALC |
GGL90mixingLength(i,j,k) = MAX(GGL90mixingLength(i,j,k), |
|
./pkg/ggl90/ggl90_calc.F |
239 |
GGL90_CALC |
rMixingLength(i,j,k) = 1. _d 0 / GGL90mixingLength(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
256 |
GGL90_CALC |
GGL90mixingLength(i,j,k) = MIN(GGL90mixingLength(i,j,k), |
|
./pkg/ggl90/ggl90_calc.F |
257 |
GGL90_CALC |
& GGL90mixingLength(i,j,k-1)+drF(k-1)) |
|
./pkg/ggl90/ggl90_calc.F |
263 |
GGL90_CALC |
GGL90mixingLength(i,j,Nr) = MIN(GGL90mixingLength(i,j,Nr), |
|
./pkg/ggl90/ggl90_calc.F |
270 |
GGL90_CALC |
GGL90mixingLength(i,j,k) = MIN(GGL90mixingLength(i,j,k), |
|
./pkg/ggl90/ggl90_calc.F |
271 |
GGL90_CALC |
& GGL90mixingLength(i,j,k+1)+drF(k)) |
|
./pkg/ggl90/ggl90_calc.F |
279 |
GGL90_CALC |
GGL90mixingLength(i,j,k) = MAX(GGL90mixingLength(i,j,k), |
|
./pkg/ggl90/ggl90_calc.F |
281 |
GGL90_CALC |
rMixingLength(i,j,k) = 1. _d 0 / GGL90mixingLength(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
291 |
GGL90_CALC |
mxLength_Dn(i,j,k) = MIN(GGL90mixingLength(i,j,k), |
|
./pkg/ggl90/ggl90_calc.F |
298 |
GGL90_CALC |
GGL90mixingLength(i,j,Nr) = MIN(GGL90mixingLength(i,j,Nr), |
|
./pkg/ggl90/ggl90_calc.F |
305 |
GGL90_CALC |
GGL90mixingLength(i,j,k) = MIN(GGL90mixingLength(i,j,k), |
|
./pkg/ggl90/ggl90_calc.F |
306 |
GGL90_CALC |
& GGL90mixingLength(i,j,k+1)+drF(k)) |
|
./pkg/ggl90/ggl90_calc.F |
314 |
GGL90_CALC |
GGL90mixingLength(i,j,k) = MIN(GGL90mixingLength(i,j,k), |
|
./pkg/ggl90/ggl90_calc.F |
316 |
GGL90_CALC |
tmpmlx = SQRT( GGL90mixingLength(i,j,k)*mxLength_Dn(i,j,k) ) |
|
./pkg/ggl90/ggl90_calc.F |
411 |
GGL90_CALC |
KappaM = GGL90ck*GGL90mixingLength(i,j,k)*SQRTTKE(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
667 |
GGL90_CALC |
CALL DIAGNOSTICS_FILL( GGL90mixingLength,'GGL90Lmx', |
|
./pkg/ggl90/ggl90_calc.F |
92 |
GGL90_CALC |
_RL GGL90mixingLength(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |