Routine to multiply variables if all variables have same number of components.
\verbatim -- in lua file, one can define as following: variable = {{ name = 'coeff', ncomponents = 1, vartype = "st_fun", st_fun = 0.25 }, { name = 'newVel', ncomponents = 1, vartype = "operation", operation = {kind='multiplication', input_varname={coeff, vel_mag}} } ... } \endverbatim
The interface has to comply to the abstract interface tem_varSys_module#tem_varSys_proc_element.
| 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 |
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| integer, | private | :: | iDep | ||||
| integer, | private | :: | posDepVar | ||||
| integer, | private | :: | nTotal | ||||
| real(kind=rk), | private, | allocatable | :: | input_varRes(:) |