mms_braginskii_circular_m

MMS solutions and sources for braginskii model in circular geometry

Uses

- circular_equilibrium_m
- constants_m
- params_brag_numdiss_m
- error_handling_grillix_m
- screen_io_m
- params_brag_switches_m
- params_brag_pardiss_model_m
- precision_grillix_m
- equilibrium_m
- params_brag_model_m
- params_brag_buffer_m
- params_brag_boundaries_parpen_m
- status_codes_grillix_m

Functions

mms_sol_braginskii_circular_ne mms_sol_braginskii_circular_pot mms_sol_braginskii_circular_vort mms_sol_braginskii_circular_upar mms_sol_braginskii_circular_jpar mms_sol_braginskii_circular_apar mms_sol_braginskii_circular_te mms_sol_braginskii_circular_ti mms_source_braginskii_circular_continuity mms_source_braginskii_circular_vorticity mms_source_braginskii_circular_parmomentum mms_source_braginskii_circular_ohm mms_source_braginskii_circular_etemp mms_source_braginskii_circular_itemp

Functions

public function mms_sol_braginskii_circular_ne(equi, x, y, z, t)

MMS solution for electron density

Arguments

Type	Intent		Name
class(equilibrium_t)		::	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

Return Value real(kind=gp)

public function mms_sol_braginskii_circular_pot(equi, x, y, z, t)

MMS solution for electrostatic potential

Arguments

Type	Intent		Name
class(equilibrium_t)		::	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

Return Value real(kind=gp)

public function mms_sol_braginskii_circular_vort(equi, x, y, z, t)

MMS solution for generalised vorticity TODO: Boussinesq version

Arguments

Type	Intent		Name
class(equilibrium_t)		::	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

Return Value real(kind=gp)

public function mms_sol_braginskii_circular_upar(equi, x, y, z, t)

MMS solution for parallel ion velocity

Arguments

Type	Intent		Name
class(equilibrium_t)		::	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

Return Value real(kind=gp)

public function mms_sol_braginskii_circular_jpar(equi, x, y, z, t)

MMS solution for parallel current

Arguments

Type	Intent		Name
class(equilibrium_t)		::	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

Return Value real(kind=gp)

public function mms_sol_braginskii_circular_apar(equi, x, y, z, t)

MMS solution for parallel electromagnetic potential

Arguments

Type	Intent		Name
class(equilibrium_t)		::	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

Return Value real(kind=gp)

public function mms_sol_braginskii_circular_te(equi, x, y, z, t)

MMS solution for electron temperature

Arguments

Type	Intent		Name
class(equilibrium_t)		::	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

Return Value real(kind=gp)

public function mms_sol_braginskii_circular_ti(equi, x, y, z, t)

MMS solution for ion temperature

Arguments

Type	Intent		Name
class(equilibrium_t)		::	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

Return Value real(kind=gp)

public function mms_source_braginskii_circular_continuity(equi, x, y, z, t, chi, lognepen, src_ne)

MMS source for continuity equation

Arguments

Type	Intent		Name
class(equilibrium_t),	intent(inout)	::	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)	::	lognepen	Value that shall be penalised to
real(kind=GP),	intent(in)	::	src_ne	Particle source value

Return Value real(kind=gp)

public function mms_source_braginskii_circular_vorticity(equi, x, y, z, t, chi, vortpen, src_vort)

MMS source for continuity equation

Arguments

Type	Intent		Name
class(equilibrium_t),	intent(inout)	::	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)	::	vortpen	Value that shall be penalised to
real(kind=GP),	intent(in)	::	src_vort	Vorticity source value

Return Value real(kind=gp)

public function mms_source_braginskii_circular_parmomentum(equi, x, y, z, t, chi, uparpen, src_upar)

MMS source for parallel momentum equation

Arguments

Type	Intent		Name
class(equilibrium_t),	intent(inout)	::	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)	::	uparpen	Value that shall be penalised to
real(kind=GP),	intent(in)	::	src_upar	Parallel momentum source value

Return Value real(kind=gp)

public function mms_source_braginskii_circular_ohm(equi, x, y, z, t, chi, psiparpen)

MMS source for parallel momentum equation

Arguments

Type	Intent		Name
class(equilibrium_t),	intent(inout)	::	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)	::	psiparpen	Value that shall be penalised to

Return Value real(kind=gp)

public function mms_source_braginskii_circular_etemp(equi, x, y, z, t, chi, logtepen, src_te)

MMS source for electron temperature equation

Arguments

Type	Intent		Name
class(equilibrium_t),	intent(inout)	::	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)	::	logtepen	Value that shall be penalised to
real(kind=GP),	intent(in)	::	src_te	Electron temperature source value

Return Value real(kind=gp)

public function mms_source_braginskii_circular_itemp(equi, x, y, z, t, chi, logtipen, src_ti)

MMS source for ion temperature equation

Arguments

Type	Intent		Name
class(equilibrium_t),	intent(inout)	::	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)	::	logtipen	Value that shall be penalised to
real(kind=GP),	intent(in)	::	src_ti	Ion temperature source value

mms_braginskii_circular_m Module

Contents

Functions

Uses

Contents

Functions

Functions

public function mms_sol_braginskii_circular_ne(equi, x, y, z, t)

Arguments

Return Value real(kind=gp)

public function mms_sol_braginskii_circular_pot(equi, x, y, z, t)

Arguments

Return Value real(kind=gp)

public function mms_sol_braginskii_circular_vort(equi, x, y, z, t)

Arguments

Return Value real(kind=gp)

public function mms_sol_braginskii_circular_upar(equi, x, y, z, t)

Arguments

Return Value real(kind=gp)

public function mms_sol_braginskii_circular_jpar(equi, x, y, z, t)

Arguments

Return Value real(kind=gp)

public function mms_sol_braginskii_circular_apar(equi, x, y, z, t)

Arguments

Return Value real(kind=gp)

public function mms_sol_braginskii_circular_te(equi, x, y, z, t)

Arguments

Return Value real(kind=gp)

public function mms_sol_braginskii_circular_ti(equi, x, y, z, t)

Arguments

Return Value real(kind=gp)

public function mms_source_braginskii_circular_continuity(equi, x, y, z, t, chi, lognepen, src_ne)

Arguments

Return Value real(kind=gp)

public function mms_source_braginskii_circular_vorticity(equi, x, y, z, t, chi, vortpen, src_vort)

Arguments

Return Value real(kind=gp)

public function mms_source_braginskii_circular_parmomentum(equi, x, y, z, t, chi, uparpen, src_upar)

Arguments

Return Value real(kind=gp)

public function mms_source_braginskii_circular_ohm(equi, x, y, z, t, chi, psiparpen)

Arguments

Return Value real(kind=gp)

public function mms_source_braginskii_circular_etemp(equi, x, y, z, t, chi, logtepen, src_te)

Arguments

Return Value real(kind=gp)

public function mms_source_braginskii_circular_itemp(equi, x, y, z, t, chi, logtipen, src_ti)

Arguments

Return Value real(kind=gp)