Merge pull request #13320 from rmcdermo/master

FDS Source: move LPC B2 logical for TEST_CHAR_MASS_TRANSFER_MODEL to …

Source/read.f90

@@ -5710,8 +5710,6 @@ SUBROUTINE READ_PART
       IF (SAMPLING_FACTOR<=0) SAMPLING_FACTOR = 1
    ENDIF
 
-   IF (TEST_CHAR_MASS_TRANSFER_MODEL) LPC%INCLUDE_BOUNDARY_PROP2_TYPE = .TRUE.
-
    ! If particle class has no ID at this point, stop.
 
    IF (SURF_ID=='null') THEN
@@ -6183,6 +6181,8 @@ SUBROUTINE PROC_PART
       LPC%DENSITY = MASS/VOLUME
       LPC%INITIAL_MASS = MASS
       LPC%FTPR = FOTH*PI*LPC%DENSITY
+
+      IF (TEST_CHAR_MASS_TRANSFER_MODEL) LPC%INCLUDE_BOUNDARY_PROP2_TYPE = .TRUE.
    ENDIF
 
    ! Exclude some convective heat transfer models from being applied to a particle
@@ -6203,12 +6203,8 @@ SUBROUTINE PROC_PART
    ! Only process DROPLETs
 
    SURF_OR_SPEC: IF (LPC%SURF_INDEX==DROPLET_SURF_INDEX) THEN
-
       SS => SPECIES(LPC%Y_INDEX)
-
       IF (LPC%DENSITY < 0._EB) LPC%DENSITY = SS%DENSITY_LIQUID
-
-
    ENDIF SURF_OR_SPEC
 
    ! Adjust the evaporation rate of fuel PARTICLEs to account for difference in HoC.
@@ -6260,6 +6256,7 @@ SUBROUTINE PROC_PART
          ENDIF
       ENDDO
    ENDIF
+
 ENDDO PART_LOOP
 
 END SUBROUTINE PROC_PART