Symbol Description Uses
KappaE (local) diffusivity parameter for TKE (eq.15) 7


File Line number Procedure Code
./pkg/ggl90/ggl90_calc.F 138 GGL90_CALC 
         KappaE(i,j,k)            = 0. _d 0
./pkg/ggl90/ggl90_calc.F 418 GGL90_CALC 
         KappaE(i,j,k) = GGL90alpha * KappaM * maskC(i,j,k,bi,bj)
./pkg/ggl90/ggl90_calc.F 469 GGL90_CALC 
     &        *.5 _d 0*(KappaE(i,j, k )+KappaE(i,j,km1))
./pkg/ggl90/ggl90_calc.F 489 GGL90_CALC 
     &        *.5 _d 0*(KappaE(i,j,k)+KappaE(i,j,kp1))
./pkg/ggl90/ggl90_calc.F 95 GGL90_CALC 
      _RL     KappaE           (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)