Symbol Description Uses
KappaE 7


File Line number Procedure Code
./pkg/ggl90/ggl90_calc.F 129 GGL90_CALC 
         KappaE(I,J,K)            = 0. _d 0
./pkg/ggl90/ggl90_calc.F 193 GGL90_CALC 
         KappaE(I,J,K) = KappaM*GGL90alpha
./pkg/ggl90/ggl90_calc.F 280 GGL90_CALC 
     &        *.5*(KappaE(i,j, k )+KappaE(i,j,km1))
./pkg/ggl90/ggl90_calc.F 300 GGL90_CALC 
     &               *.5*(KappaE(i,j,k)+KappaE(i,j,kp1))
./pkg/ggl90/ggl90_calc.F 91 GGL90_CALC 
      _RL     KappaE           (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)