cart_to_polar Subroutine

public subroutine cart_to_polar(equi, x, y, phi, rho, theta)

Coordinate transformation from polar to Cartesian

Arguments

Type IntentOptional Attributes Name
class(equilibrium_t), intent(inout) :: equi

Equilibrium
real(kind=FP), intent(in) :: x

Cartesian coordinate x
real(kind=FP), intent(in) :: y

Cartesian coordinate y
real(kind=FP), intent(in) :: phi

Toroidal angle
real(kind=FP), intent(out) :: rho

Polar coordinate rho (normalized flux surface label)
real(kind=FP), intent(out) :: theta

Polar coordinate theta (geometric poloidal angle)

Calls

proc~~cart_to_polar~~CallsGraph proc~cart_to_polar cart_to_polar rho rho proc~cart_to_polar->rho

Called by

proc~~cart_to_polar~~CalledByGraph proc~cart_to_polar cart_to_polar proc~create_cart_map_matrix create_cart_map_matrix proc~create_cart_map_matrix->proc~cart_to_polar proc~jacobian_polar jacobian_polar proc~jacobian_polar->proc~cart_to_polar proc~create_flux_surface_average_csr create_flux_surface_average_csr proc~create_flux_surface_average_csr->proc~jacobian_polar proc~create_surface_average_csr create_surface_average_csr proc~create_surface_average_csr->proc~jacobian_polar