Merge pull request #14994 from ericvmueller/master

FDS Source: incorporate wind adjustment factor in U_LS/V_LS output qu…

Author: ericvmueller

Source/vege.f90

@@ -451,6 +451,10 @@ SUBROUTINE LEVEL_SET_FIRESPREAD(T,DT,NM)
          UMF_Y = UMF_TMP * V_LS(IIG,JJG) * 60.0_EB
          UMF_MAG = SQRT(UMF_X**2 + UMF_Y**2)
 
+         ! Adjust wind for output slices
+         U_LS(IIG,JJG) = UMF_TMP * U_LS(IIG,JJG)
+         V_LS(IIG,JJG) = UMF_TMP * V_LS(IIG,JJG)
+
          ! Compute wind factor affecting spread rate R(U) = R_0*(1+WIND_FACTOR)
 
          IF (SF%I_RAMP_LS_WIND>0) THEN