From 533a83f7b6fd5833e5205a7cd53c50654af32904 Mon Sep 17 00:00:00 2001 From: mcgratta Date: Wed, 15 Nov 2023 10:45:29 -0500 Subject: [PATCH] FDS Source: Issue #12231. Fix bug in HT3D when using only one MPI process --- Source/init.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Source/init.f90 b/Source/init.f90 index ebe55cef2cf..4698c84a23a 100644 --- a/Source/init.f90 +++ b/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)