FDS Source: lower undefined value for T_IGN so it can be cast to four bytes for smv output

Author: ericvmueller

Source/read.f90

@@ -9409,9 +9409,9 @@ SUBROUTINE PROC_SURF_2
    ! Ignition Time
 
    SF%T_IGN = T_BEGIN
-   IF (SF%TMP_IGN<50000._EB)                    SF%T_IGN = HUGE(T_END)
-   IF (SF%PYROLYSIS_MODEL==PYROLYSIS_PREDICTED) SF%T_IGN = HUGE(T_END)
-   IF (SF%VEG_LSET_SPREAD)                      SF%T_IGN = HUGE(T_END)
+   IF (SF%TMP_IGN<50000._EB)                    SF%T_IGN = 1.E6_EB
+   IF (SF%PYROLYSIS_MODEL==PYROLYSIS_PREDICTED) SF%T_IGN = 1.E6_EB
+   IF (SF%VEG_LSET_SPREAD)                      SF%T_IGN = 1.E6_EB
 
    ! Species Arrays and Method of Mass Transfer (SPECIES_BC_INDEX)
 

Source/vege.f90

@@ -513,7 +513,7 @@ SUBROUTINE LEVEL_SET_FIRESPREAD(T,DT,NM)
                DO IW=1,CUT_FACE(ICF)%NFACE ! All CC_INBOUNDARY CFACES on this cell.
                   CFA => CFACE(CUT_FACE(ICF)%CFACE_INDEX(IW))
                   B1  => BOUNDARY_PROP1(CFA%B1_INDEX)
-                  IF (PHI_LS(IIG,JJG)>=0._EB .AND. B1%T_IGN>1.E5_EB) CALL IGNITE_GRID_CELL
+                  IF (PHI_LS(IIG,JJG)>=0._EB .AND. B1%T_IGN>9.E5_EB) CALL IGNITE_GRID_CELL
                   B2 => BOUNDARY_PROP2(CFA%B2_INDEX)
                   B2%PHI_LS = PHI_LS(IIG,JJG)
                ENDDO
@@ -530,7 +530,7 @@ SUBROUTINE LEVEL_SET_FIRESPREAD(T,DT,NM)
             IW = CELL(IC)%WALL_INDEX(-3)
             WC => WALL(IW)
             B1 => BOUNDARY_PROP1(WC%B1_INDEX)
-            IF (PHI_LS(IIG,JJG)>=0._EB .AND. B1%T_IGN>1.E5_EB) CALL IGNITE_GRID_CELL
+            IF (PHI_LS(IIG,JJG)>=0._EB .AND. B1%T_IGN>9.E5_EB) CALL IGNITE_GRID_CELL
             B2 => BOUNDARY_PROP2(WC%B2_INDEX)
             B2%PHI_LS = PHI_LS(IIG,JJG)
          ENDDO