Symbol Description Uses
wsSq 4


File Line number Procedure Code
./pkg/exf/exf_wind.F 116 EXF_WIND 
           wsSq = uwind(i,j,bi,bj)*uwind(i,j,bi,bj)
./pkg/exf/exf_wind.F 118 EXF_WIND 
           IF ( wsSq .NE. 0. _d 0 ) THEN
./pkg/exf/exf_wind.F 119 EXF_WIND 
             wsLoc(i,j) = SQRT(wsSq)
./pkg/exf/exf_wind.F 60 EXF_WIND 
      _RL     wsSq