Symbol Description Uses
gTKE 10



File Line number Procedure Code
./pkg/ggl90/ggl90_calc.F 126 GGL90_CALC
         gTKE(I,J,K)              = 0. _d 0
./pkg/ggl90/ggl90_calc.F 195 GGL90_CALC
         gTKE(I,J,K) = GGL90TKE(I,J,K,bi,bj) 
./pkg/ggl90/ggl90_calc.F 246 GGL90_CALC
          gTKE(i,j,k)=gTKE(i,j,k)
./pkg/ggl90/ggl90_calc.F 327 GGL90_CALC
        gTKE(I,J,kSurf) = MAX(GGL90TKEmin,GGL90m2*uStarSquare)
./pkg/ggl90/ggl90_calc.F 331 GGL90_CALC
        gTKE(I,J,kBottom) = gTKE(I,J,kBottom) 
./pkg/ggl90/ggl90_calc.F 340 GGL90_CALC
     U     gTKE,
./pkg/ggl90/ggl90_calc.F 349 GGL90_CALC
         GGL90TKE(I,J,K,bi,bj) = MAX( gTKE(I,J,K), GGL90TKEmin ) 
./pkg/ggl90/ggl90_calc.F 93 GGL90_CALC
      _RL     gTKE             (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)