mms_source_neutrals_parmom

public function mms_source_neutrals_parmom(equi, x, y, z, t, chi, epsinv, neutrals_parmom_pen, k_iz_o, k_rec_o)

MMS source for Neutrals parallel momentum equation

Type	Intent		Name
class(equilibrium_t),	intent(in)	::	equi	Equilibrium
real(kind=GP),	intent(in)	::	x	x-coordinate
real(kind=GP),	intent(in)	::	y	y-coordinate
real(kind=GP),	intent(in)	::	z	Axial coordinate z (represented by toroidal coordinate)
real(kind=GP),	intent(in)	::	t	Time
real(kind=GP),	intent(in)	::	chi	Value of characteristc function of penalisation
real(kind=GP),	intent(in)	::	epsinv	Inverse of penalisation epsilon
real(kind=GP),	intent(in)	::	neutrals_parmom_pen	Target value to be penalised towards
type(rate_coeff_neutrals_t),	intent(in)	::	k_iz_o	Ionization rate coefficient object
type(rate_coeff_neutrals_t),	intent(in)	::	k_rec_o	Recombination rate coefficient object