atl_pressure_getIndex Subroutine

public subroutine atl_pressure_getIndex(fun, varSys, time, iLevel, idx, idxLen, nVals, res)

call varSys%method%val(fun%inpuit_varPos(1))%get_point( & & varSys = varSys, & & point = point, & & time = time, & & tree = tree, & & nPnts = nPnts, & & res = density ) call varSys%method%val(fun%input_varPos(2))%get_point( & & varSys = varSys, & & point = point, & & time = time, & & tree = tree, & & nPnts = nPnts, & & res = momentum ) call varSys%method%val(fun%input_varPos(3))%get_point( & & varSys = varSys, & & point = point, & & time = time, & & tree = tree, & & nPnts = nPnts, & & res = energy )

Arguments

Type	Intent	Optional	Attributes		Name
class(tem_varSys_op_type),	intent(in)			::	fun	Description of the method to obtain the variables,
type(tem_varSys_type),	intent(in)			::	varSys	The variable system to obtain the variable from.
type(tem_time_type),	intent(in)			::	time	Point in time at which to evaluate the variable.
integer,	intent(in)			::	iLevel	Level on which values are requested
integer,	intent(in)			::	idx(:)	Index of points in the growing array and variable val array to return. Size: n
integer,	intent(in),	optional		::	idxLen(:)	With idx as start index in contiguous memory, idxLength defines length of each contiguous memory Size: nVals
integer,	intent(in)			::	nVals	Number of values to obtain for this variable (vectorized access).
real(kind=rk),	intent(out)			::	res(:)	Resulting values for the requested variable. Dimension: n requested entries x nComponents of this variable Access: (iElem-1)*fun%nComponents + iComp

Contents

Variables

fPtr density momentum energy

Variables

Type	Visibility	Attributes		Name		Initial
type(atl_varSys_data_type),	private,	pointer	::	fPtr
real(kind=rk),	private		::	density(nVals)
real(kind=rk),	private		::	momentum(3*nVals)
real(kind=rk),	private		::	energy(nVals)