testfunctions_m Module

Uses

Functions

public function testfun_u(equi, x, y, phi)

Test_function u

Arguments

Type	Intent	Optional	Attributes		Name
class(equilibrium_t)				::	equi
real(kind=FP),	intent(in)			::	x
real(kind=FP),	intent(in)			::	y
real(kind=FP),	intent(in)			::	phi

Return Value real(kind=fp)

public function testfun_dudrhon(equi, x, y, phi)

Gradient normal to flux surface label, via finite difference on analytic solution with small grid distance

Arguments

Type	Intent	Optional	Attributes		Name
class(equilibrium_t)				::	equi
real(kind=FP),	intent(in)			::	x
real(kind=FP),	intent(in)			::	y
real(kind=FP),	intent(in)			::	phi

Return Value real(kind=fp)

public function testfun_co(equi, x, y, phi)

Test function for polarisation coefficeint

Arguments

Type	Intent	Optional	Attributes		Name
class(equilibrium_t)				::	equi
real(kind=FP),	intent(in)			::	x
real(kind=FP),	intent(in)			::	y
real(kind=FP),	intent(in)			::	phi

Return Value real(kind=fp)

public function testfun_lambda(equi, x, y, phi)

Test function for lambda

Arguments

Type	Intent	Optional	Attributes		Name
class(equilibrium_t)				::	equi
real(kind=FP),	intent(in)			::	x
real(kind=FP),	intent(in)			::	y
real(kind=FP),	intent(in)			::	phi

Return Value real(kind=fp)

public function testfun_xi(equi, x, y, phi)

Test function for xi

Arguments

Type	Intent	Optional	Attributes		Name
class(equilibrium_t)				::	equi
real(kind=FP),	intent(in)			::	x
real(kind=FP),	intent(in)			::	y
real(kind=FP),	intent(in)			::	phi

Return Value real(kind=fp)

public function testfun_helm_u(equi, x, y, phi)

Arguments

Type	Intent	Optional	Attributes		Name
class(equilibrium_t)				::	equi
real(kind=FP),	intent(in)			::	x
real(kind=FP),	intent(in)			::	y
real(kind=FP),	intent(in)			::	phi

Return Value real(kind=fp)