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


File Line number Procedure Code
./pkg/ggl90/ggl90_calc.F 100 GGL90_CALC 
      _RL     KappaE           (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
./pkg/ggl90/ggl90_calc.F 175 GGL90_CALC 
         KappaE(i,j,k)            = 0. _d 0
./pkg/ggl90/ggl90_calc.F 500 GGL90_CALC 
         KappaE(i,j,k) = GGL90alpha * KappaM(i,j) * maskC(i,j,k,bi,bj)
./pkg/ggl90/ggl90_calc.F 565 GGL90_CALC 
     &        *.5 _d 0*(KappaE(i,j, k )+KappaE(i,j,km1))
./pkg/ggl90/ggl90_calc.F 585 GGL90_CALC 
     &        *.5 _d 0*(KappaE(i,j,k)+KappaE(i,j,kp1))
./pkg/ggl90/ggl90_calc.F 797 GGL90_CALC 
     &        *KappaE(i,j,kp1)