| Symbol | Description | Uses |
| hFac | Fraction of cell in vertical which is open i.e how | 4 |
| File | Line number | Procedure | Code |
| ./pkg/ggl90/ggl90_calc.F | 109 | GGL90_CALC |
_RL hFac |
| ./pkg/ggl90/ggl90_calc.F | 381 | GGL90_CALC |
hFac = min(.5 _d 0,_hFacC(i,j,k-1,bi,bj) ) + |
| ./pkg/ggl90/ggl90_calc.F | 384 | GGL90_CALC |
if ( hFac .ne. 0.0 ) |
| ./pkg/ggl90/ggl90_calc.F | 385 | GGL90_CALC |
& gTKE(i,j) = -recip_drC(k)*recip_rA(i,j,bi,bj)/hFac |