Symbol Description Uses
kSurf vertical indices of domain boundaries 6


File Line number Procedure Code
./pkg/ggl90/ggl90_calc.F 129 GGL90_CALC 
      kSurf = 1
./pkg/ggl90/ggl90_calc.F 509 GGL90_CALC 
      kp1 = MIN(Nr,kSurf+1)
./pkg/ggl90/ggl90_calc.F 520 GGL90_CALC 
        GGL90TKE(i,j,kSurf,bi,bj) = maskC(i,j,kSurf,bi,bj)
./pkg/ggl90/ggl90_calc.F 523 GGL90_CALC 
     &               - a(i,j,kp1)*GGL90TKE(i,j,kSurf,bi,bj)
./pkg/ggl90/ggl90_calc.F 77 GGL90_CALC 
      INTEGER i, j, k, kp1, km1, kSurf, kBottom