| File |
Line number |
Procedure |
Code |
|
./pkg/ggl90/ggl90_calc.F |
191 |
GGL90_CALC |
KappaM(i,j) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
424 |
GGL90_CALC |
KappaM(i,j) = GGL90ck*GGL90mixingLength(i,j,k)*SQRTTKE(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
425 |
GGL90_CALC |
GGL90visctmp(i,j,k) = MAX(KappaM(i,j),diffKrNrS(k)) |
|
./pkg/ggl90/ggl90_calc.F |
429 |
GGL90_CALC |
KappaM(i,j) = MAX(KappaM(i,j),viscArNr(k)) * maskC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
474 |
GGL90_CALC |
IDEMIX_RiNumber = MAX( KappaM(i,j)*Nsquare(i,j,k), 0. _d 0)/ |
|
./pkg/ggl90/ggl90_calc.F |
499 |
GGL90_CALC |
KappaH = KappaM(i,j)/TKEPrandtlNumber(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
500 |
GGL90_CALC |
KappaE(i,j,k) = GGL90alpha * KappaM(i,j) * maskC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
509 |
GGL90_CALC |
& + KappaM(i,j)*verticalShear(i,j) |
|
./pkg/ggl90/ggl90_calc.F |
82 |
GGL90_CALC |
_RL KappaM(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |