#pragma acc parallel loop present(phi[:ny_tot][:nx_tot], send_buf[:NX_GLOB+2*NGHOST], recv_buf[NX_GLOB+2*NGHOST]) for (i = ibeg; i <= iend; i++) send_buf[i]