beta_poloidal Function

public function beta_poloidal()

Calculates total poloidal beta

See J.P. Freidberg, "Plasma physics and fusion energy", Cambridge University Press (2007) Page 270 ISBN 0521851076

Arguments

None

Return Value real(kind=dp)


Contents

Source Code


Source Code

  function beta_poloidal()
    !! author: J. Morris (UKAEA)
    !!
    !! Calculates total poloidal beta

    ! Module variables
    use physics_variables, only : btot, bp, beta

     ! Return value
     real(dp) :: beta_poloidal

    beta_poloidal = beta * ( btot/bp )**2
    !! \begin{equation} \beta_p = \beta \left( \frac{B_{tot}}{B_p} \right)^2 \end{equation}
    !! See J.P. Freidberg, "Plasma physics and fusion energy", Cambridge University Press (2007)
    !! Page 270 ISBN 0521851076

  end function beta_poloidal