Symbol Description Uses
wsSq 4


File Line number Procedure Code
./pkg/exf/exf_wind.F 48 EXF_WIND 
      _RL     wsSq
./pkg/exf/exf_wind.F 80 EXF_WIND 
           wsSq = uwind(i,j,bi,bj)*uwind(i,j,bi,bj)
./pkg/exf/exf_wind.F 82 EXF_WIND 
           IF ( wsSq .NE. 0. _d 0 ) THEN
./pkg/exf/exf_wind.F 83 EXF_WIND 
             wsLoc(i,j) = SQRT(wsSq)