Merge pull request #12282 from drjfloyd/master

FDS Source: Issue #12279. Force ONE_D reset for PART with SF and MONO=F.
firemodels · Dec 13, 2023 · dffd951 · dffd951
2 parents bd52b8e + 8fbb309
commit dffd951
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/Source/func.f90 b/Source/func.f90
@@ -1157,7 +1157,6 @@ END SUBROUTINE ALLOCATE_BOUNDARY_COORD_ARRAYS
 
 
 SUBROUTINE ALLOCATE_BOUNDARY_ONE_D_ARRAYS
-
 TYPE(BOUNDARY_ONE_D_TYPE), POINTER :: ONE_D
 
 IF (OD_INDEX==0 .AND. M%N_BOUNDARY_ONE_D_DIM>0) THEN
@@ -1184,7 +1183,10 @@ SUBROUTINE ALLOCATE_BOUNDARY_ONE_D_ARRAYS
 
 ONE_D => M%BOUNDARY_ONE_D(OD_INDEX)
 
-IF (ONE_D%SURF_INDEX==SURF_INDEX) RETURN
+IF (ONE_D%SURF_INDEX==SURF_INDEX) THEN
+   IF (.NOT. PRESENT(LPC_INDEX)) RETURN
+   IF (LAGRANGIAN_PARTICLE_CLASS(LPC_INDEX)%MONODISPERSE) RETURN
+ENDIF
 
 ! Assume that most ONE_D arrays will have the same dimensions of the corresponding SURF_INDEX. If not, that will be adjusted later