| File |
Line number |
Procedure |
Code |
|
./pkg/ggl90/ggl90_calc.F |
152 |
GGL90_CALC |
SQRTTKE(i,j,1) = SQRT( GGL90TKE(i,j,1,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
173 |
GGL90_CALC |
SQRTTKE(i,j,k)=SQRT( GGL90TKE(i,j,k,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
193 |
GGL90_CALC |
& SQRTTKE(i,j,k)/SQRT( MAX(Nsquare(i,j,k),GGL90eps) ) |
|
./pkg/ggl90/ggl90_calc.F |
411 |
GGL90_CALC |
KappaM = GGL90ck*GGL90mixingLength(i,j,k)*SQRTTKE(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
422 |
GGL90_CALC |
& *SQRTTKE(i,j,k)*rMixingLength(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
500 |
GGL90_CALC |
& + implDissFac*deltaTggl90*GGL90ceps*SQRTTKE(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
86 |
GGL90_CALC |
_RL SQRTTKE(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |