| Symbol | Description | Uses |
| verticalShear | (squared) vertical shear of horizontal velocity | 4 |
| File | Line number | Procedure | Code |
| ./pkg/ggl90/ggl90_calc.F | 402 | GGL90_CALC |
verticalShear = tempU*tempU + tempV*tempV |
| ./pkg/ggl90/ggl90_calc.F | 403 | GGL90_CALC |
RiNumber = MAX(Nsquare(i,j,k),0. _d 0)/(verticalShear+GGL90eps) |
| ./pkg/ggl90/ggl90_calc.F | 427 | GGL90_CALC |
& + KappaM*verticalShear |
| ./pkg/ggl90/ggl90_calc.F | 80 | GGL90_CALC |
_RL verticalShear |