buffer_copy Subroutine

public subroutine buffer_copy(u_send_s, u_send_e, u, n_u, n, n_groups)

Copies the first and last four points of every line into the start and end send buffers. n is the line length, n_u the padded extent.

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(inout) :: u_send_s(SZ,4,n_groups)
real(kind=dp), intent(inout) :: u_send_e(SZ,4,n_groups)
real(kind=dp), intent(in) :: u(SZ,n_u,n_groups)
integer, intent(in) :: n_u
integer, intent(in) :: n
integer, intent(in) :: n_groups