mms_diffusion_circular_m Module

MMS Solutions and Sources for diffusion model in circular geometry

Uses

- circular_equilibrium_m
- constants_m
- error_handling_grillix_m
- screen_io_m
- params_diffusion_m
- precision_grillix_m
- equilibrium_m
- status_codes_grillix_m

Contents

Functions

mms_sol_diffusion_circular mms_source_diffusion_circular

Functions

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

MMS solution

Arguments

Type	Intent	Optional	Attributes		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_diffusion_circular(equi, x, y, z, t, charfun, penval)

Source corresponding to MMS solution

Arguments

Type	Intent	Optional	Attributes		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)			::	charfun	Value of characteristic function (penalisation)
real(kind=GP),	intent(in)			::	penval	Value that solution shall be penalised to

Return Value real(kind=gp)