Merge pull request #12480 from ericvmueller/master

FDS Source: correct LP%MASS assignment in INITIALIZE_SINGLE_PARTICLE
firemodels · Feb 14, 2024 · 39c2e1b · 39c2e1b
2 parents 23ba964 + b624e78
commit 39c2e1b
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/Source/part.f90 b/Source/part.f90
@@ -1640,9 +1640,9 @@ SUBROUTINE INITIALIZE_SINGLE_PARTICLE
                SCALE_FACTOR=SCALE_FACTOR**3._EB
          END SELECT
 
-   END SELECT
+         IF (LP_SF%THERMAL_BC_INDEX==THERMALLY_THICK) LP%MASS = LPC%INITIAL_MASS*SCALE_FACTOR
 
-   IF (LP_SF%THERMAL_BC_INDEX==THERMALLY_THICK) LP%MASS = LPC%INITIAL_MASS*SCALE_FACTOR
+   END SELECT
 
 ELSEIF (LPC%LIQUID_DROPLET) THEN