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

Calls

proc~~parallel_diffusion_supp~~CallsGraph proc~parallel_diffusion_supp parallel_diffusion_supp proc~parallel_divergence_supp parallel_divergence_supp proc~parallel_diffusion_supp->proc~parallel_divergence_supp proc~parallel_gradient_supp parallel_gradient_supp proc~parallel_diffusion_supp->proc~parallel_gradient_supp interface~get_n_points mesh_cart_t%get_n_points proc~parallel_divergence_supp->interface~get_n_points interface~getdata_fwdbwdplane getdata_fwdbwdplane proc~parallel_divergence_supp->interface~getdata_fwdbwdplane proc~csr_times_vec csr_times_vec proc~parallel_divergence_supp->proc~csr_times_vec proc~parallel_gradient_supp->interface~get_n_points proc~parallel_gradient_supp->interface~getdata_fwdbwdplane proc~parallel_gradient_supp->proc~csr_times_vec

Called by

proc~~parallel_diffusion_supp~~CalledByGraph proc~parallel_diffusion_supp parallel_diffusion_supp program~test_diffusion test_diffusion program~test_diffusion->proc~parallel_diffusion_supp