| File |
Line number |
Procedure |
Code |
|
./pkg/ggl90/ggl90_calc.F |
156 |
GGL90_CALC |
SQRTTKE(i,j,1) = SQRT( GGL90TKE(i,j,1,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
166 |
GGL90_CALC |
SQRTTKE(i,j,k)=SQRT( GGL90TKE(i,j,k,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
186 |
GGL90_CALC |
& SQRTTKE(i,j,k)/SQRT( MAX(Nsquare(i,j,k),GGL90eps) ) |
|
./pkg/ggl90/ggl90_calc.F |
412 |
GGL90_CALC |
KappaM = GGL90ck*GGL90mixingLength(i,j,k)*SQRTTKE(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
423 |
GGL90_CALC |
& *SQRTTKE(i,j,k)*rMixingLength(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
501 |
GGL90_CALC |
& + implDissFac*deltaTggl90*GGL90ceps*SQRTTKE(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
87 |
GGL90_CALC |
_RL SQRTTKE(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |