complete_support_map Subroutine

public subroutine complete_support_map(comm, equi, mesh, mesh_staggered, vol, qsupp_fwd, qsupp_bwd, psupp_fwd, psupp_bwd)

Completes the operators for the support operator method - Turns map matrices qsupp into parallel gradient matrices - Establishes parallel divergence matrices psupp

Arguments

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

MPI communicator
class(equilibrium_t), intent(inout) :: equi

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

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

Mesh at toroidally staggered (fwd) position
real(kind=FP), intent(in), dimension(mesh%get_n_points()) :: vol

Flux box volumes
type(csrmat_t), intent(inout) :: qsupp_fwd

Map matrix on input, parallel gradient matrix on output (fwd direction)
type(csrmat_t), intent(inout) :: qsupp_bwd

Map matrix on input, parallel gradient matrix on output (bwd direction)
type(csrmat_t), intent(out), allocatable :: psupp_fwd

Parallel divergence matrix (fwd direction)
type(csrmat_t), intent(out), allocatable :: psupp_bwd

Parallel divergence matrix (bwd direction)

Calls

proc~~complete_support_map~~CallsGraph proc~complete_support_map complete_support_map btor btor proc~complete_support_map->btor interface~exchange_mesh_mpi mesh_cart_t%exchange_mesh_mpi proc~complete_support_map->interface~exchange_mesh_mpi interface~get_n_points mesh_cart_t%get_n_points proc~complete_support_map->interface~get_n_points interface~get_phi mesh_cart_t%get_phi proc~complete_support_map->interface~get_phi interface~get_spacing_f mesh_cart_t%get_spacing_f proc~complete_support_map->interface~get_spacing_f interface~get_x mesh_cart_t%get_x proc~complete_support_map->interface~get_x interface~get_y mesh_cart_t%get_y proc~complete_support_map->interface~get_y interface~getdata_fwdbwdplane getdata_fwdbwdplane proc~complete_support_map->interface~getdata_fwdbwdplane proc~csr_transpose~2 csr_transpose proc~complete_support_map->proc~csr_transpose~2 proc~get_communicator get_communicator proc~complete_support_map->proc~get_communicator proc~trace trace proc~complete_support_map->proc~trace proc~sort_row sort_row proc~csr_transpose~2->proc~sort_row destroy destroy proc~trace->destroy initialize initialize proc~trace->initialize integrate integrate proc~trace->integrate proc~get_stderr get_stderr proc~trace->proc~get_stderr proc~handle_error handle_error proc~trace->proc~handle_error none~handle_error error_handler_t%handle_error proc~handle_error->none~handle_error

Called by

proc~~complete_support_map~~CalledByGraph proc~complete_support_map complete_support_map program~test_diffusion test_diffusion program~test_diffusion->proc~complete_support_map