mms_source_diffusion Function

public function mms_source_diffusion(equi, x, y, z, t, charfun, penval)

Source corresponding to MMS solution

Arguments

Type IntentOptional 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)


Contents