NVIDIA GPU fixes

MFlowCode · Mar 8, 2025 · 2422b29 · 2422b29
1 parent ccc0ebd
commit 2422b29
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/common/m_mpi_common.fpp b/src/common/m_mpi_common.fpp
@@ -23,6 +23,7 @@ module m_mpi_common
     implicit none
 
     integer, private :: err_code, ierr, v_size !<
+    !$acc declare create(v_size)
     !! Generic flags used to identify and report MPI errors
 
     real(wp), private, allocatable, dimension(:), target :: q_prims_buff_send !<
@@ -859,7 +860,7 @@ contains
                     call nvtxStartRange("RHS-COMM-SENDRECV-RDMA")
                 #:else
                     call nvtxStartRange("RHS-COMM-DEV2HOST")
-                    !$acc update host(q_prims_buff_send, ib_buff_send)
+                    !$acc update host(q_prims_buff_send)
                     call nvtxEndRange
                     call nvtxStartRange("RHS-COMM-SENDRECV-NO-RMDA")
                 #:endif