getShearRateTensor_acoustic_incomp Function

private pure function getShearRateTensor_acoustic_incomp(subset, omega, layout, rho0) result(S)

This routine calculates shear rate tensor (i.e. strain rate tensor) by acoustic scaling (i.e. CE analysis)

Arguments

TypeIntentOptionalAttributesName
real(kind=rk), intent(in) :: subset(:)
real(kind=rk), intent(in) :: omega
type(mus_scheme_layout_type), intent(in) :: layout
real(kind=rk), intent(in) :: rho0

Return Value real(kind=rk)(3,3)


Calls

proc~~getshearratetensor_acoustic_incomp~~CallsGraph proc~getshearratetensor_acoustic_incomp getShearRateTensor_acoustic_incomp proc~getequilibriumincomp getEquilibriumIncomp proc~getshearratetensor_acoustic_incomp->proc~getequilibriumincomp proc~convprepost convPrePost proc~getshearratetensor_acoustic_incomp->proc~convprepost proc~secondmom secondMom proc~getshearratetensor_acoustic_incomp->proc~secondmom

Called by

proc~~getshearratetensor_acoustic_incomp~~CalledByGraph proc~getshearratetensor_acoustic_incomp getShearRateTensor_acoustic_incomp interface~getshearratetensor_acoustic getShearRateTensor_acoustic interface~getshearratetensor_acoustic->proc~getshearratetensor_acoustic_incomp

Contents


Variables

TypeVisibilityAttributesNameInitial
real(kind=rk), private :: rho
real(kind=rk), private :: vel(3)
real(kind=rk), private :: strain(6)
real(kind=rk), private :: fTmp(layout%fStencil%QQ)
real(kind=rk), private :: fEq(layout%fStencil%QQ)
real(kind=rk), private :: fNeq(layout%fStencil%QQ)
integer, private :: iDir