mod_source_ffhd Module

Module for handling split source terms (split from the fluxes)

Uses

- mod_physics_vars
- mod_variables
- mod_global_parameters
Help

Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.

Variables

Type	Visibility	Attributes		Name		Initial
integer,	public		::	sourcesplit	=	0	How to apply dimensional splitting to the source terms, see defaulting to sfs
integer,	public,	parameter	::	sourcesplit_sf	=	1
integer,	public,	parameter	::	sourcesplit_sfs	=	0
integer,	public,	parameter	::	sourcesplit_ssf	=	2
integer,	public,	parameter	::	sourcesplit_ssfss	=	3

Subroutines

public subroutine add_split_source(prior)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(in)			::	prior

public subroutine addsource_compact(qdt, dtfactor, qtC, wCTprim1, wCTprim2, wCTprim3, qt, wnew, x, dx, qsourcesplit)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	qdt
real(kind=dp),	intent(in)			::	dtfactor
real(kind=dp),	intent(in)			::	qtC
real(kind=dp),	intent(in)			::	wCTprim1(nw_phys,3)
real(kind=dp),	intent(in)			::	wCTprim2(nw_phys,3)
real(kind=dp),	intent(in)			::	wCTprim3(nw_phys,3)
real(kind=dp),	intent(in)			::	qt
real(kind=dp),	intent(inout)			::	wnew(nw_phys)
real(kind=dp),	intent(in)			::	x(1:ndim)
real(kind=dp),	intent(in)			::	dx(1:ndim)
logical,	intent(in)			::	qsourcesplit

public subroutine addsource_local(qdt, dtfactor, qtC, wCT, wCTprim, qt, wnew, x, dr, qsourcesplit)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	qdt
real(kind=dp),	intent(in)			::	dtfactor
real(kind=dp),	intent(in)			::	qtC
real(kind=dp),	intent(in)			::	wCT(nw_phys)
real(kind=dp),	intent(in)			::	wCTprim(nw_phys)
real(kind=dp),	intent(in)			::	qt
real(kind=dp),	intent(inout)			::	wnew(nw_phys)
real(kind=dp),	intent(in)			::	x(1:ndim)
real(kind=dp),	intent(in)			::	dr(ndim)
logical,	intent(in)			::	qsourcesplit

public subroutine addsource_nonlocal(qdt, dtfactor, qtC, wCTprim, qt, wnew, x, dx, idir, qsourcesplit)

gradient of temperature:

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	qdt
real(kind=dp),	intent(in)			::	dtfactor
real(kind=dp),	intent(in)			::	qtC
real(kind=dp),	intent(in)			::	wCTprim(nw_phys,5)
real(kind=dp),	intent(in)			::	qt
real(kind=dp),	intent(inout)			::	wnew(nw_phys)
real(kind=dp),	intent(in)			::	x(1:ndim)
real(kind=dp),	intent(in)			::	dx(1:ndim)
integer,	intent(in)			::	idir
logical,	intent(in)			::	qsourcesplit

public pure subroutine to_primitive(u)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(inout)			::	u(nw_phys)