Calculates the total magnetic field
function total_mag_field()
!! author: J. Morris (UKAEA)
!!
!! Calculates the total magnetic field
! Module variables
use physics_variables, only : bt, bp
! Return value
real(dp) :: total_mag_field
total_mag_field = sqrt(bt**2 + bp**2)
!! \begin{equation} B_{tot} = \sqrt{B_T^2 + B_p^2} \end{equation}
end function total_mag_field