Symbol Description Uses
kSurf 4


File Line number Procedure Code
./pkg/ggl90/ggl90_calc.F 117 GGL90_CALC 
      kSurf = 1
./pkg/ggl90/ggl90_calc.F 331 GGL90_CALC 
        gTKE(I,J,kSurf) = MAX(GGL90TKEsurfMin,GGL90m2*uStarSquare)
./pkg/ggl90/ggl90_calc.F 332 GGL90_CALC 
     &                     *maskC(I,J,kSurf,bi,bj)
./pkg/ggl90/ggl90_calc.F 77 GGL90_CALC 
      INTEGER I, J, K, Kp1, Km1, kSurf, kBottom