fix GPU bug

Author: wilfonba

src/common/m_boundary_common.fpp

@@ -1202,7 +1202,7 @@ contains
                 do i = 1, nb
                     do q = 1, nnode
                         do j = 1, buff_size
-                            pb(m+j, k, l, q, i) = pb(0, k, l, q, i)
+                            pb(m + j, k, l, q, i) = pb(0, k, l, q, i)
                             mv(m, k, l, q, i) = mv(0, k, l, q, i)
                         end do
                     end do
@@ -1262,7 +1262,7 @@ contains
 
         end if
 
-    end subroutine s_qbmm_extrapolation 
+    end subroutine s_qbmm_extrapolation
 
     subroutine s_populate_capillary_buffers(c_divs, bc_type)
 

src/simulation/m_mpi_proxy.fpp

@@ -42,9 +42,6 @@ module m_mpi_proxy
     !! immersed boundary markers, for a single computational domain boundary
     !! at the time, from the relevant neighboring processor.
 
-    !$acc declare create( ib_buff_send, ib_buff_recv)
-    !$acc declare create(c_divs_buff_send, c_divs_buff_recv)
-
     !> @name Generic flags used to identify and report MPI errors
     !> @{
     integer, private :: err_code, ierr, v_size