tem_evalMag_forElement Subroutine

public recursive subroutine tem_evalMag_forElement(fun, varSys, elempos, time, tree, nElems, nDofs, res)

Evaluate magnitude of any vectorial variable. In lua file, first define new variable with varType operation kind as "magnitude" and provide name of the variable from which magnitude to be derived in input_varname. If input_varname variable is not part of predefined solver variables then add also that variable via variable table.

\verbatim -- in lua file, one can define as following: variable = {{ name = 'velMag', ncomponents = 1, vartype = "operation", operation = {kind='magnitude',input_varname={'velocity'}} }, } tracking = { variable = {'velMag'}, folder = 'tracking/', shape = {kind = 'canoND', object = {origin = {3.0,3.1,3.0} } }, format = 'ascii', time = {min = 0, max = tmax, interval = 1}, } \endverbatim

The interface has to comply to the abstract interface tem_varSys_module#tem_varSys_proc_element.

Arguments

Type	Intent	Optional	Attributes		Name
class(tem_varSys_op_type),	intent(in)			::	fun	Description of the method to obtain the variables, here some preset values might be stored, like the space time function to use or the required variables.
type(tem_varSys_type),	intent(in)			::	varSys	The variable system to obtain the variable from.
integer,	intent(in)			::	elempos(:)	Position of the TreeID of the element to get the variable for in the global treeID list.
type(tem_time_type),	intent(in)			::	time	Point in time at which to evaluate the variable.
type(treelmesh_type),	intent(in)			::	tree	global treelm mesh info
integer,	intent(in)			::	nElems	Number of values to obtain for this variable (vectorized access).
integer,	intent(in)			::	nDofs	Number of degrees of freedom within an element.
real(kind=rk),	intent(out)			::	res(:)	Resulting values for the requested variable. Linearized array dimension: (n requested entries) x (nComponents of this variable) x (nDegrees of freedom) Access: (iElem-1)fun%nComponentsnDofs + (iDof-1)*fun%nComponents + iComp

Contents

Variables

iElem depVar_pos depVar_nComps offset iDof input_varRes

Variables

Type	Visibility	Attributes		Name		Initial
integer,	private		::	iElem
integer,	private		::	depVar_pos
integer,	private		::	depVar_nComps
integer,	private		::	offset
integer,	private		::	iDof
real(kind=rk),	private,	allocatable	::	input_varRes(:)