FDS Source: minor adjustment to CHAR_DENSITY_THRESHOLD in TEST_NEW_CHAR_MODEL

Author: rmcdermo

Source/wall.f90

@@ -2888,7 +2888,7 @@ SUBROUTINE PERFORM_PYROLYSIS
 REAL(EB), DIMENSION(MAX_LPC) :: Q_DOT_PART,M_DOT_PART
 INTEGER :: ITER,MAX_ITER
 LOGICAL :: REMOVE_LAYER
-REAL(EB), PARAMETER :: M_DOT_ERROR_TOL=1.E-6_EB, CHAR_DENSITY_THRESHOLD=5.7_EB ! approx. ASH_DENSITY
+REAL(EB), PARAMETER :: M_DOT_ERROR_TOL=1.E-6_EB, CHAR_DENSITY_THRESHOLD=5._EB ! approx. ASH_DENSITY
 
 ! Get surface oxygen mass fraction