Symbol Description Uses
kSurf vertical indices of domain boundaries 6


File Line number Procedure Code
./pkg/ggl90/ggl90_calc.F 130 GGL90_CALC 
      kSurf = 1
./pkg/ggl90/ggl90_calc.F 510 GGL90_CALC 
      kp1 = MIN(Nr,kSurf+1)
./pkg/ggl90/ggl90_calc.F 521 GGL90_CALC 
        GGL90TKE(i,j,kSurf,bi,bj) = maskC(i,j,kSurf,bi,bj)
./pkg/ggl90/ggl90_calc.F 524 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