| Symbol | Description | Uses |
| kSurf | vertical indices of domain boundaries | 11 |
| File | Line number | Procedure | Code |
| ./pkg/ggl90/ggl90_calc.F | 143 | GGL90_CALC |
kSurf = 1 |
| ./pkg/ggl90/ggl90_calc.F | 629 | GGL90_CALC |
kp1 = MIN(Nr,kSurf+1) |
| ./pkg/ggl90/ggl90_calc.F | 640 | GGL90_CALC |
GGL90TKE(i,j,kSurf,bi,bj) = maskC(i,j,kSurf,bi,bj) |
| ./pkg/ggl90/ggl90_calc.F | 643 | GGL90_CALC |
& - a3d(i,j,kp1)*GGL90TKE(i,j,kSurf,bi,bj) |
| ./pkg/ggl90/ggl90_calc.F | 78 | GGL90_CALC |
INTEGER i, j, k, kp1, km1, kSurf, kBottom |
| ./pkg/ggl90/ggl90_calc.F | 790 | GGL90_CALC |
kp1 = MIN(Nr,kSurf+1) |
| ./pkg/ggl90/ggl90_calc.F | 794 | GGL90_CALC |
surf_flx_tke(i,j) =(GGL90TKE(i,j,kSurf,bi,bj)- |
| ./pkg/ggl90/ggl90_calc.F | 796 | GGL90_CALC |
& *recip_drF(kSurf)*recip_hFacC(i,j,kSurf,bi,bj) |
| ./pkg/ggl90/ggl90_calc.F | 803 | GGL90_CALC |
k=kSurf |