Symbol Description Uses
KappaE 7


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