mhd_utils.F90 File Reference

Modules
module	mhd_utils
	Plasma parameters and evaluation routines.

Functions/Subroutines
pure real(r8) function, dimension(2)	brag_comb_transport (n, t, mu, bmag, lambda, me_factor)
	Evalute Braginskii transport coefficients for a combined temperature eq.
pure real(r8) function, dimension(2)	brag_elec_transport (n, t, bmag, lambda, me_factor)
	Evalute Braginskii transport coefficients for the electron fluid.
pure real(r8) function, dimension(2)	brag_ion_transport (n, t, mu, bmag, lambda)
	Evalute Braginskii transport coefficients for the ion fluid.
pure real(r8) function	elec_ion_therm_rate (te, n, mu)
	Evalute electron-ion thermalization rate.
pure real(r8) function	electron_drift_speed (j, n)
	Evalute drift velocity for Electrons.
pure real(r8) function	eta_chodura (j, t, n, m, m_factor)
	Evalute Chodura resistivity.
pure real(r8) function	eta_spitzer (t, lam)
	Evalute Spitzer resistivity.
pure real(r8) function	ion_visc (n, t, mu, lam)
	Evalute simple ion viscosity.
pure real(r8) function	log_lambda (t, n)
	Evalute ln( Lambda ).
pure real(r8) function	plasma_freq (n, m)
	Evalute plasma frequency for singly charged species.
pure real(r8) function	sound_speed (t, m)
	Evalute sound speed.

Variables
real(r8), parameter	elec_charge = 1.602176565E-19_r8
	\( q_e \) - Electron charge [C]
real(r8), parameter	elec_mass = 9.10938291E-31_r8
	\( m_e \) - Electron mass [Kg]
real(r8), parameter	ep0 = 8.854187817E-12_r8
	\( \epsilon_0 \) - Permitivity of free-space
real(r8), parameter	mu0 = pi*(4.E-7_r8)
	\( \mu_0 \) - Permeability of free-space
real(r8), parameter	proton_mass = 1.672621777E-27_r8
	\( m_p \) - Proton mass [Kg]