create_surface_average_csr Subroutine

public subroutine create_surface_average_csr(surface_average_csr, equi, mesh, polar_grid, polar_map_csr, dbgout)

Creates a matrix to surface average from Cartesian field

Arguments

Type IntentOptional Attributes Name
type(csrmat_t), intent(out), allocatable :: surface_average_csr

Zonal average matrix
class(equilibrium_t), intent(inout) :: equi

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

Cartesian mesh
type(polar_grid_t), intent(in) :: polar_grid

Polar grid
type(csrmat_t), intent(in) :: polar_map_csr

Polar map matrix in CSR format
integer, intent(in), optional :: dbgout

Specifies the number of information printed on screen

Calls

proc~~create_surface_average_csr~~CallsGraph proc~create_surface_average_csr create_surface_average_csr interface~get_drho polar_grid_t%get_drho proc~create_surface_average_csr->interface~get_drho interface~get_dtheta polar_grid_t%get_dtheta proc~create_surface_average_csr->interface~get_dtheta interface~get_nrho polar_grid_t%get_nrho proc~create_surface_average_csr->interface~get_nrho interface~get_ntheta polar_grid_t%get_ntheta proc~create_surface_average_csr->interface~get_ntheta interface~get_phi~2 polar_grid_t%get_phi proc~create_surface_average_csr->interface~get_phi~2 interface~get_rho polar_grid_t%get_rho proc~create_surface_average_csr->interface~get_rho interface~get_theta polar_grid_t%get_theta proc~create_surface_average_csr->interface~get_theta jacobian jacobian proc~create_surface_average_csr->jacobian proc~get_stdout get_stdout proc~create_surface_average_csr->proc~get_stdout proc~is_master is_master proc~create_surface_average_csr->proc~is_master proc~jacobian_polar jacobian_polar proc~create_surface_average_csr->proc~jacobian_polar proc~polar_to_cart polar_to_cart proc~create_surface_average_csr->proc~polar_to_cart proc~sort_and_sum sort_and_sum proc~create_surface_average_csr->proc~sort_and_sum mpi_comm_rank mpi_comm_rank proc~is_master->mpi_comm_rank proc~jacobian_polar->jacobian proc~cart_to_polar cart_to_polar proc~jacobian_polar->proc~cart_to_polar mag_axis_loc mag_axis_loc proc~polar_to_cart->mag_axis_loc proc~find_zero find_zero proc~polar_to_cart->proc~find_zero proc~get_stderr get_stderr proc~polar_to_cart->proc~get_stderr rho rho proc~cart_to_polar->rho func func proc~find_zero->func