parallel_diffusion_supp Subroutine

public subroutine parallel_diffusion_supp(comm, mesh, mesh_staggered, qsupp_fwd, qsupp_bwd, 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) :: qsupp_fwd

Parallel gradient matrix (fwd direction)
type(csrmat_t), intent(in) :: qsupp_bwd

Parallel gradient matrix (fwd direction)
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%get_n_points()) :: u

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

Parallel diffusion