From 59fa254b6c21bc7f12443704589585b002c01bc2 Mon Sep 17 00:00:00 2001 From: haochey Date: Thu, 30 Jan 2025 17:18:41 -0500 Subject: [PATCH] Update levelset_norm to devices --- src/simulation/m_ibm.fpp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/simulation/m_ibm.fpp b/src/simulation/m_ibm.fpp index 387b92764..21f6bb27f 100644 --- a/src/simulation/m_ibm.fpp +++ b/src/simulation/m_ibm.fpp @@ -81,6 +81,8 @@ contains integer :: i, j, k !$acc update device(ib_markers%sf) + !$acc update device(levelset%sf) + !$acc update device(levelset_norm%sf) ! Get neighboring IB variables from other processors call s_mpi_sendrecv_ib_buffers(ib_markers, gp_layers) @@ -208,7 +210,7 @@ contains ! Calculate velocity of ghost cell if (gp%slip) then - norm = levelset_norm%sf(gp%loc(1), gp%loc(2), gp%loc(3), gp%ib_patch_id, 1:3) + norm(1:3) = levelset_norm%sf(gp%loc(1), gp%loc(2), gp%loc(3), gp%ib_patch_id, 1:3) buf = sqrt(sum(norm**2)) norm = norm/buf vel_norm_IP = sum(vel_IP*norm)*norm