Skip to content

Commit f860e69

Browse files
committed
Update m_ibm.fpp
1 parent c2b78bd commit f860e69

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

src/simulation/m_ibm.fpp

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -85,14 +85,14 @@ contains
8585

8686
integer :: i, j, k
8787

88-
!$acc update device(ib_markers%sf)
88+
!$acc update device(ib_markers%sf, levelset%sf, levelset_norm%sf)
8989

9090
! Get neighboring IB variables from other processors
9191
call s_mpi_sendrecv_ib_buffers(ib_markers, gp_layers)
9292

9393
call s_find_num_ghost_points()
9494

95-
!$acc update device(num_inner_gps)
95+
!$acc update device(num_gps, num_inner_gps)
9696
@:ALLOCATE_GLOBAL(ghost_points(num_gps))
9797
@:ALLOCATE_GLOBAL(inner_points(num_inner_gps))
9898

0 commit comments

Comments
 (0)