sources Module

Variables

Type	Visibility	Attributes		Name		Initial
logical,	private		::	krook_odd
logical,	public		::	exclude_boundary_regions
logical,	private		::	from_zero
logical,	private		::	conserve_momentum
logical,	private		::	conserve_density
integer,	private		::	ikxmax_source
real,	private		::	nu_krook
real,	public		::	tcorr_source
real,	public		::	int_krook
real,	public		::	int_proj
real,	public		::	exp_fac
logical,	public		::	qn_source_initialized
logical,	public		::	include_qn_source
logical,	private		::	debug	=	.false.
real,	public,	dimension(2, 2)	::	time_sources	=	0.
integer,	public		::	source_option_switch
integer,	public,	parameter	::	source_option_none	=	1
integer,	public,	parameter	::	source_option_krook	=	2
integer,	public,	parameter	::	source_option_projection	=	3

Subroutines

public subroutine init_sources()

Arguments

None

private subroutine read_parameters()

Arguments

None

public subroutine init_source_timeaverage()

Arguments

None

public subroutine finish_sources()

Arguments

None

public subroutine add_krook_operator(g, gke_rhs)

Arguments

Type	Intent	Optional	Attributes		Name
complex,	intent(in),		dimension(:, :, -nzgrid:, :, vmu_lo%llim_proc:), target	::	g
complex,	intent(inout),		dimension(:, :, -nzgrid:, :, vmu_lo%llim_proc:)	::	gke_rhs

public subroutine update_tcorr_krook(g)

Arguments

Type	Intent	Optional	Attributes		Name
complex,	intent(in),		dimension(:, :, -nzgrid:, :, vmu_lo%llim_proc:), target	::	g

private subroutine enforce_momentum_conservation(g_work)

Arguments

Type	Intent	Optional	Attributes		Name
complex,	intent(inout),		dimension(:, :, -nzgrid:, :, vmu_lo%llim_proc:)	::	g_work

private subroutine enforce_density_conservation(g_work)

Arguments

Type	Intent	Optional	Attributes		Name
complex,	intent(inout),		dimension(:, -nzgrid:, :, vmu_lo%llim_proc:)	::	g_work

public subroutine project_out_zero(gold, gnew)

Arguments

Type	Intent	Optional	Attributes		Name
complex,	intent(in),		dimension(:, :, -nzgrid:, :, vmu_lo%llim_proc:)	::	gold
complex,	intent(inout),		dimension(:, :, -nzgrid:, :, vmu_lo%llim_proc:)	::	gnew

public subroutine init_quasineutrality_source()

Arguments

None

public subroutine update_quasineutrality_source()

Arguments

None