Symbol Description Uses
wsSq 4


File Line number Procedure Code
./pkg/exf/exf_wind.F 49 EXF_WIND 
      _RL     wsSq
./pkg/exf/exf_wind.F 94 EXF_WIND 
           wsSq = uwind(i,j,bi,bj)*uwind(i,j,bi,bj)
./pkg/exf/exf_wind.F 96 EXF_WIND 
           IF ( wsSq .NE. 0. _d 0 ) THEN
./pkg/exf/exf_wind.F 97 EXF_WIND 
             wsLoc(i,j) = SQRT(wsSq)