Merge pull request #14190 from mcgratta/master

FDS Source: Issue #14189. Fix bug in particle output

Author: mcgratta

Source/devc.f90

@@ -85,7 +85,7 @@ MODULE DEVICE_VARIABLES
    REAL(EB), ALLOCATABLE, DIMENSION(:,:) :: YY_SOOT
    REAL(EB), POINTER, DIMENSION(:) :: T_E,Y_E
    INTEGER  :: N_SUBDEVICES=0,IOR,IOR_ASSUMED=0,WALL_INDEX=-1,ORDINAL,MESH,&
-               I_DEPTH,N_T_E,PROP_INDEX,ORIENTATION_INDEX=0,TRIP_DIRECTION,CTRL_INDEX=-1,N_INPUTS,SURF_INDEX=-1,&
+               I_DEPTH=-1,N_T_E,PROP_INDEX,ORIENTATION_INDEX=0,TRIP_DIRECTION,CTRL_INDEX=-1,N_INPUTS,SURF_INDEX=-1,&
                Z_INDEX=-999,Y_INDEX=-999,MATL_INDEX=-999,PART_CLASS_INDEX=0,REAC_INDEX=0,VELO_INDEX=0,&
                NO_UPDATE_DEVC_INDEX=-1,NO_UPDATE_CTRL_INDEX=-1,CFACE_INDEX=-1,FED_ACTIVITY=2,DUCT_INDEX=-1,NODE_INDEX(2)=-1,&
                N_POINTS=1,POINT=1,LINE=0,LINE_COORD_CODE=123,PIPE_INDEX=1,LP_TAG=0,&

Source/dump.f90

@@ -8691,7 +8691,7 @@ REAL(EB) FUNCTION SOLID_PHASE_OUTPUT(INDX,Y_INDEX,Z_INDEX,PART_INDEX,OPT_WALL_IN
       I_DEPTH = OPT_NODE_INDEX
    ELSE
       I_DEPTH = DV%I_DEPTH
-      IF (ONE_D%PYROLYSIS_MODEL==PYROLYSIS_PREDICTED) THEN
+      IF (ONE_D%PYROLYSIS_MODEL==PYROLYSIS_PREDICTED .OR. I_DEPTH==-1) THEN
          IF (DV%DEPTH > TWO_EPSILON_EB) THEN
             DEPTH = DV%DEPTH
          ELSE