File |
Line number |
Procedure |
Code |
./pkg/ggl90/ggl90_calc.F |
192 |
GGL90_CALC |
verticalShear(i,j) = 0. _d 0 |
./pkg/ggl90/ggl90_calc.F |
442 |
GGL90_CALC |
verticalShear(i,j) = ( |
./pkg/ggl90/ggl90_calc.F |
458 |
GGL90_CALC |
verticalShear(i,j) = tempU*tempU + tempV*tempV |
./pkg/ggl90/ggl90_calc.F |
469 |
GGL90_CALC |
verticalShear(i,j) = verticalShear(i,j) |
./pkg/ggl90/ggl90_calc.F |
472 |
GGL90_CALC |
& /(verticalShear(i,j)+GGL90eps) |
./pkg/ggl90/ggl90_calc.F |
488 |
GGL90_CALC |
& /(verticalShear(i,j)+GGL90eps) |
./pkg/ggl90/ggl90_calc.F |
509 |
GGL90_CALC |
& + KappaM(i,j)*verticalShear(i,j) |
./pkg/ggl90/ggl90_calc.F |
81 |
GGL90_CALC |
_RL verticalShear(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |