deriveKE Subroutine

  1. mus_derQuan_module.f90
  2. mus_derQuan_module
  3. deriveKE

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

Calculate kinetic energy from density and velocity in auxField This routine sets the function Pointer for kinetic energy calcualtion and calls the generice get Element from PDF routine

The interface has to comply to the abstract interface tem_varSys_proc_element.

Arguments

TypeIntentOptionalAttributesName
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

Calls

proc~~deriveke~~CallsGraph proc~deriveke deriveKE auxfield auxfield proc~deriveke->auxfield levelpointer levelpointer proc~deriveke->levelpointer proc~tem_levelof tem_LevelOf proc~deriveke->proc~tem_levelof

Contents

Variables


Variables

TypeVisibilityAttributesNameInitial
integer, private :: statePos

Function pointer to perform specific operation.
integer, private :: iElem

Function pointer to perform specific operation.
integer, private :: iLevel

Function pointer to perform specific operation.
integer, private :: elemOff

Function pointer to perform specific operation.
type(mus_varSys_data_type), private, pointer:: fPtr
integer, private :: dens_pos
integer, private :: vel_pos(3)
real(kind=rk), private :: rho
real(kind=rk), private :: vel(3)