Calculates total poloidal beta
See J.P. Freidberg, "Plasma physics and fusion energy", Cambridge University Press (2007) Page 270 ISBN 0521851076
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