compute_jpar Subroutine

public subroutine compute_jpar(equi, mesh_stag, boundaries, aparv, jparv)

Computes parallel current from parallel electromagnetic potential \f[ j_\parallel = -\nabla_\perp^2 A_\parallel \f]

Arguments

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

Equilibrium

type(mesh_cart_t), intent(in) :: mesh_stag

Mesh within poloidal plane

type(boundaries_braginskii_t), intent(inout) :: boundaries
real(kind=GP), intent(in), dimension(mesh_stag%get_n_points()) :: aparv

Values of parallel electromagnetic potential

real(kind=GP), intent(out), dimension(mesh_stag%get_n_points()) :: jparv

Values of parallel current


Contents