Merge pull request #14124 from ericvmueller/master

FDS Source: clean up logic for FIRE ARRIVAL TIME

Author: ericvmueller

Source/vege.f90

@@ -1352,9 +1352,8 @@ SUBROUTINE COMPUTE_FIRE_SPREAD_OUTPUTS
 IF (Q(BC%IIG,BC%JJG,BC%KKG)>HRRPUVCUT) FIRE_PRESENT = .TRUE.
 
 IF (STORE_FIRE_ARRIVAL) THEN
-   IF (SF%VEG_LSET_SPREAD .AND. B1%T_IGN<9.E5_EB) THEN
-      IF (FIRE_ARRIVAL_TIME(OUTPUT_INDEX)>9.E5_EB) &
-         FIRE_ARRIVAL_TIME(OUTPUT_INDEX) = B1%T_IGN
+   IF (SF%VEG_LSET_SPREAD) THEN
+      IF (FIRE_ARRIVAL_TIME(OUTPUT_INDEX)>9.E5_EB .AND. B1%T_IGN<9.E5_EB) FIRE_ARRIVAL_TIME(OUTPUT_INDEX) = B1%T_IGN
    ELSE
       IF (FIRE_PRESENT .AND. FIRE_ARRIVAL_TIME(OUTPUT_INDEX)>9.E5_EB) FIRE_ARRIVAL_TIME(OUTPUT_INDEX) = T
       ! reset if threshold is not met for 1/100th of a second