From dd2ee962d23244e0bd2fd7ccc44d7d6c787bd7e3 Mon Sep 17 00:00:00 2001
From: Anand <anand@Anands-MacBook-Pro.local>
Date: Tue, 30 Jul 2024 00:16:53 +0530
Subject: [PATCH] IBM bug

---
 src/simulation/m_ibm.fpp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/simulation/m_ibm.fpp b/src/simulation/m_ibm.fpp
index ff15247fd0..a0fa597297 100644
--- a/src/simulation/m_ibm.fpp
+++ b/src/simulation/m_ibm.fpp
@@ -98,7 +98,7 @@ contains
         ! Get neighboring IB variables from other processors
         call s_mpi_sendrecv_ib_buffers(ib_markers, gp_layers)
 
-        !$acc update host(ib_markers)
+        !$acc update host(ib_markers%sf)
 
         call s_find_num_ghost_points()