FDS Source: add outputs for B1%T_IGN and B1%BURN_DURATION

Author: ericvmueller

Source/data.f90

@@ -1608,6 +1608,17 @@ SUBROUTINE DEFINE_OUTPUT_QUANTITIES
 OUTPUT_QUANTITY(-80)%UNITS= 'kW/m2'
 OUTPUT_QUANTITY(-80)%SHORT_NAME = 'hrrpua_O2'
 
+! Fire spread
+OUTPUT_QUANTITY(-90)%NAME = 'IGNITION TIME'
+OUTPUT_QUANTITY(-90)%UNITS = 's'
+OUTPUT_QUANTITY(-90)%SHORT_NAME = 't_ig'
+OUTPUT_QUANTITY(-90)%PART_APPROPRIATE = .FALSE.
+
+OUTPUT_QUANTITY(-91)%NAME = 'BURN DURATION'
+OUTPUT_QUANTITY(-91)%UNITS = 's'
+OUTPUT_QUANTITY(-91)%SHORT_NAME = 't_b'
+OUTPUT_QUANTITY(-91)%PART_APPROPRIATE = .FALSE.
+
 ! Condensation
 OUTPUT_QUANTITY(-100)%NAME = 'CONDENSATION HEAT FLUX'
 OUTPUT_QUANTITY(-100)%UNITS= 'kW/m2'

Source/dump.f90

@@ -9254,6 +9254,10 @@ REAL(EB) FUNCTION SOLID_PHASE_OUTPUT(INDX,Y_INDEX,Z_INDEX,PART_INDEX,OPT_WALL_IN
       IF (SF%INCLUDE_BOUNDARY_PROP2_TYPE) SOLID_PHASE_OUTPUT = B2%Y_O2_ITER
    CASE(80) ! OXIDATIVE HRRPUA
       SOLID_PHASE_OUTPUT = B1%Q_DOT_O2_PP*0.001_EB
+   CASE(90) ! IGNITION TIME
+      SOLID_PHASE_OUTPUT = B1%T_IGN
+   CASE(91) ! BURN DURATION
+      SOLID_PHASE_OUTPUT = B1%BURN_DURATION
 
    CASE(100) ! CONDENSATION HEAT FLUX
       SOLID_PHASE_OUTPUT = B1%Q_CONDENSE * 0.001_EB