Merge pull request #14552 from mcgratta/master

FDS Source: Adjust area in SURFACE DENSITY

Author: mcgratta

Source/dump.f90

@@ -8919,6 +8919,7 @@ REAL(EB) FUNCTION SOLID_PHASE_OUTPUT(INDX,Y_INDEX,Z_INDEX,PART_INDEX,OPT_WALL_IN
             SOLID_PHASE_OUTPUT = 0._EB
          ENDIF
       ENDIF
+      SOLID_PHASE_OUTPUT = SOLID_PHASE_OUTPUT*B1%AREA_ADJUST
       IF (INDX==26) SOLID_PHASE_OUTPUT = SOLID_PHASE_OUTPUT/SF%SURFACE_DENSITY
 
    CASE(27) ! SOLID DENSITY