FDS Source: move particle B2 flag such that all classes inherit the O…

…XPYRO variables
firemodels · Aug 14, 2024 · db370a1 · db370a1
1 parent 2b32bb1
commit db370a1
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/Source/read.f90 b/Source/read.f90
@@ -6189,7 +6189,6 @@ SUBROUTINE PROC_PART
          ML => MATERIAL(NN)
          IF ( ANY(ML%N_O2>0._EB) ) OXPYRO_MODEL = .TRUE.
       ENDDO
-      IF (OXPYRO_MODEL) LPC%INCLUDE_BOUNDARY_PROP2_TYPE = .TRUE.
 
    ENDIF THERMALLY_THICK_IF
 
@@ -6267,6 +6266,10 @@ SUBROUTINE PROC_PART
 
 ENDDO PART_LOOP
 
+! If we use OXPYRO_MODEL, allocate necessary boundary information for all particle classes
+
+IF (OXPYRO_MODEL) LAGRANGIAN_PARTICLE_CLASS(1:N_LAGRANGIAN_CLASSES)%INCLUDE_BOUNDARY_PROP2_TYPE = .TRUE.
+
 END SUBROUTINE PROC_PART