Merge pull request firemodels#12232 from mcgratta/master

FDS Source: Issue firemodels#12231. Fix bug in HT3D when using only one MPI pro…

Source/init.f90

@@ -3617,7 +3617,7 @@ SUBROUTINE FIND_WALL_BACK_INDICES(NM)
 
 DO N=1,M%N_NEIGHBORING_MESHES
    NOM = M%NEIGHBORING_MESH(N)
-   IF (PROCESS(NOM)==MY_RANK) CYCLE
+   IF (NM==NOM) CYCLE
    M4 => MESHES(NOM)
    IF ((M%XS>=M4%XF .OR. M%XF<=M4%XS) .AND. (M%YS>=M4%YF .OR. M%YF<=M4%YS) .AND. (M%ZS>=M4%ZF .OR. M%ZF<=M4%ZS)) CYCLE
    OS => M%OMESH(NOM)%WALL_RECV_BUFFER
@@ -3654,7 +3654,7 @@ SUBROUTINE FIND_WALL_BACK_INDICES(NM)
 
 DO N=1,M%N_NEIGHBORING_MESHES
    NOM = M%NEIGHBORING_MESH(N)
-   IF (PROCESS(NOM)==MY_RANK) CYCLE
+   IF (NM==NOM) CYCLE
    M4 => MESHES(NOM)
    OS => M%OMESH(NOM)%THIN_WALL_RECV_BUFFER
    DO IC=1,CELL_COUNT(NOM)