From de8536769d3feb10f8601b87800583a4443f1d35 Mon Sep 17 00:00:00 2001 From: marcosvanella Date: Thu, 27 May 2021 12:17:19 -0400 Subject: [PATCH] FDS Source : Remove TWO_D single mesh conditional in UNKZ MPI exchange. --- Source/ccib.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Source/ccib.f90 b/Source/ccib.f90 index b9146a62bf6..9cfa8a2d78e 100644 --- a/Source/ccib.f90 +++ b/Source/ccib.f90 @@ -15991,7 +15991,7 @@ SUBROUTINE FILL_UNKZ_GUARDCELLS IF (EVACUATION_ONLY(NM)) CYCLE DO NOM=1,NMESHES IF (EVACUATION_ONLY(NOM)) CYCLE - IF (.NOT.(TWO_D .AND. NMESHES==1) .AND. .NOT.MESHES(NM)%CONNECTED_MESH(NOM)) CYCLE + IF (.NOT.TWO_D .AND. .NOT.MESHES(NM)%CONNECTED_MESH(NOM)) CYCLE M3 => MESHES(NM)%OMESH(NOM) IF (N_MPI_PROCESSES>1 .AND. NM/=NOM .AND. PROCESS(NOM)/=MY_RANK .AND. MESHES(NM)%CONNECTED_MESH(NOM)) THEN N_REQ0 = N_REQ0 + 1