mus_material_var_module Module

Kannan Masilamani
126 statements
Source File

This module provides variable to extract material variable like viscosity, omega, etc.

Uses

Subroutines

public subroutine mus_append_materialVar(varSys, solverData, schemeHeader, derVarName)

subroutine to add material variable

Arguments

Type	Intent	Optional	Attributes		Name
type(tem_varSys_type),	intent(inout)			::	varSys	global variable system
type(mus_varSys_solverData_type),	intent(in),		target	::	solverData	Contains pointer to solver data types
type(mus_scheme_header_type),	intent(in)			::	schemeHeader	identifier of the scheme
type(grw_labelarray_type),	intent(inout)			::	derVarName	array of derive physical variables

private recursive subroutine access_kineVisc_forElement(fun, varSys, elempos, time, tree, nElems, nDofs, res)

This routine returns the kinematic viscosity

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. Read more…

private recursive subroutine access_kineOmega_forElement(fun, varSys, elempos, time, tree, nElems, nDofs, res)

This routine returns the omega

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. Read more…

private recursive subroutine access_pressRef_forElement(fun, varSys, elempos, time, tree, nElems, nDofs, res)

This routine returns the reference pressure

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. Read more…