applySrc_injectionPS

public subroutine applySrc_injectionPS(fun, inState, outState, neigh, auxField, nPdfSize, iLevel, varSys, time, phyConvFac, derVarPos)

Update state with source variable "injection" Similar to derive routine but it updates the state whereas derive is used for tracking

This subroutine's interface must match the abstract interface definition proc_apply_source in derived/mus_source_type_module.f90 in order to be callable via applySrc function pointer.

Type	Intent		Name
class(mus_source_op_type),	intent(in)	::	fun	Description of method to apply source terms
real(kind=rk),	intent(in)	::	inState(:)	input pdf vector
real(kind=rk),	intent(inout)	::	outState(:)	output pdf vector
integer,	intent(in)	::	neigh(:)	connectivity Array corresponding to state vector
real(kind=rk),	intent(in)	::	auxField(:)	auxField array
integer,	intent(in)	::	nPdfSize	number of elements in state Array
integer,	intent(in)	::	iLevel	current level
type(tem_varSys_type),	intent(in)	::	varSys	variable system
type(tem_time_type),	intent(in)	::	time	Point in time at which to evaluate the variable.
type(mus_convertFac_type),	intent(in)	::	phyConvFac	Physics conversion factor for current level
type(mus_derVarPos_type),	intent(in)	::	derVarPos(:)	position of derived quantities in varsys

Type	Visibility	Attributes		Name
type(mus_varSys_data_type),	private,	pointer	::	fPtr
type(mus_scheme_type),	private,	pointer	::	scheme
real(kind=rk),	private		::	luaRes(fun%elemLvl(iLevel)%nElems)
real(kind=rk),	private		::	transVel(fun%elemLvl(iLevel)%nElems*3)
real(kind=rk),	private		::	local_vel(3)
real(kind=rk),	private,	allocatable	::	linkwise_luaRes(:)
integer,	private		::	iElem
integer,	private		::	nElems
integer,	private		::	iDir
integer,	private		::	posInTotal
integer,	private		::	iField
integer,	private		::	depField
integer,	private		::	nScalars
integer,	private		::	QQ
integer,	private		::	nInputStates
integer,	private		::	trans_varPos