From c1a5b5bbcd7fbb1301f923b720e2e4859d13e922 Mon Sep 17 00:00:00 2001
From: Hodges <jhodges@jensenhughes.com>
Date: Mon, 28 Jul 2025 15:22:29 -0400
Subject: [PATCH] FDS Source: add mpi barrier between
 INITIALIZE_BACK_WALL_EXCHANGE calls

---
 Source/main.f90 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/Source/main.f90 b/Source/main.f90
index 465a8a07ee6..a03c3e5acc5 100644
--- a/Source/main.f90
+++ b/Source/main.f90
@@ -276,6 +276,7 @@ PROGRAM FDS
 ! done, there is no need to exchange all HT3D cells. The second call reduces the size of the exchange arrays.
 
 CALL INITIALIZE_BACK_WALL_EXCHANGE(1)
+CALL MPI_BARRIER(MPI_COMM_WORLD,IERR)
 CALL INITIALIZE_BACK_WALL_EXCHANGE(2)
 
 IF (MY_RANK==0 .AND. VERBOSE) CALL VERBOSE_PRINTOUT('Completed INITIALIZE_BACK_WALL_EXCHANGE')