Merge pull request firemodels#12236 from mcgratta/master

FDS Source: Issue firemodels#12231. Fix bug related to HT1D on one MPI process
mcgratta · Nov 16, 2023 · b4ba663 · b4ba663
2 parents 6585727 + 930db7c
commit b4ba663
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Source/main.f90 b/Source/main.f90
@@ -2151,7 +2151,7 @@ SUBROUTINE INITIALIZE_BACK_WALL_EXCHANGE
 
 DO NM=LOWER_MESH_INDEX,UPPER_MESH_INDEX
    DO NOM=1,NMESHES
-      IF (PROCESS(NM)==PROCESS(NOM)) CYCLE
+      IF (NM==NOM) CYCLE
       OS => MESHES(NM)%OMESH(NOM)%WALL_SEND_BUFFER
       IF (OS%N_ITEMS>0) ALLOCATE(OS%ITEM_INDEX(OS%N_ITEMS_DIM))
       IF (OS%N_ITEMS>0) ALLOCATE(OS%SURF_INDEX(OS%N_ITEMS_DIM))