Symbol Description Uses
kSurf 4


File Line number Procedure Code
./pkg/ggl90/ggl90_calc.F 115 GGL90_CALC 
      kSurf = 1
./pkg/ggl90/ggl90_calc.F 327 GGL90_CALC 
        gTKE(I,J,kSurf) = MAX(GGL90TKEmin,GGL90m2*uStarSquare)
./pkg/ggl90/ggl90_calc.F 328 GGL90_CALC 
     &                     *maskC(I,J,kSurf,bi,bj)
./pkg/ggl90/ggl90_calc.F 76 GGL90_CALC 
      INTEGER I, J, K, Kp1, Km1, kSurf, kBottom