FDS Source: Fix MINIMUM_BURNOUT_TIME

Author: mcgratta

Source/wall.f90

@@ -3537,7 +3537,9 @@ SUBROUTINE PYROLYSIS(N_MATS,MATL_INDEX,SURF_INDEX,IIG,JJG,KKG,TMP_S,TMP_F,Y_O2_F
 
    ! Optional limiting of mass loss rate based on specified fuel burnout time
 
-   IF (SF%MINIMUM_BURNOUT_TIME<1.E5_EB) RHO_DOT = MIN(RHO_DOT,SF%LAYER_DENSITY(LAYER_INDEX)/SF%MINIMUM_BURNOUT_TIME)
+   IF (SF%MINIMUM_BURNOUT_TIME<1.E5_EB) THEN
+      RHO_DOT_REAC(1:ML%N_REACTIONS) = MIN(RHO_DOT_REAC(1:ML%N_REACTIONS),SF%LAYER_DENSITY(LAYER_INDEX)/SF%MINIMUM_BURNOUT_TIME)
+   ENDIF
 
    REACTION_LOOP_2:DO J=1,ML%N_REACTIONS