parallel_divergence_supp Subroutine

public subroutine parallel_divergence_supp(comm, mesh, mesh_staggered, psupp_fwd, psupp_bwd, u, du)

Parallel divergence (from staggered to full mesh)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: comm

MPI communicator

type(mesh_cart_t), intent(in) :: mesh

Mesh

type(mesh_cart_t), intent(in) :: mesh_staggered

Mesh at toroidally staggered (fwd) position

type(csrmat_t), intent(in) :: psupp_fwd

Parallel divergence matrix (fwd direction)

type(csrmat_t), intent(in) :: psupp_bwd

Parallel divergence matrix (fwd direction)

real(kind=FP), intent(in), dimension(mesh_staggered%get_n_points()) :: u

Variable u on staggered grid

real(kind=FP), intent(out), dimension(mesh%get_n_points()) :: du

Parallel divergence of u on full grid