derive_density Subroutine

subroutine derive_density(fun, varSys, elempos, time, tree, n, nDofs, res)

derive density variables


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(:)

TreeID of the element to get the variable for.

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) :: n

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.

The first dimension are the n requested entries and the second dimension are the components of this variable. Third dimension are the degrees of freedom.



integer, public :: iElem
integer, public :: iComp
integer, public :: iDof
integer, public :: pos
integer, public :: input_varPos
integer, public :: inVar_nComp
real(kind=rk), public :: dens
type(solver_type), public, pointer:: fPtr