fillCoarser_compactd3q19 Subroutine

public subroutine fillCoarser_compactd3q19(method, fieldProp, tLevelDesc, level, sState, snSize, tState, tnSize, tAuxField, layout, nTargets, targetList, physics, time, varSys, derVarPos)

No comment yet!

This subroutine's interface must match the abstract interface definition intpRoutine in intp/mus_interpolate_header_module.f90 in order to be callable via do_intp function pointer.

Arguments

TypeIntentOptionalAttributesName
class(mus_interpolation_method_type), intent(in) :: method
type(mus_field_prop_type), intent(in), target:: fieldProp(:)

Array of field properties (fluid or species)

type(tem_levelDesc_type), intent(in) :: tLevelDesc

level descriptor on target level

integer, intent(in) :: level

my refinement level

real(kind=rk), intent(in) :: sState(:)

State vector of SOURCE FLUID elements

integer, intent(in) :: snSize
real(kind=rk), intent(inout) :: tState(:)

State vector of TARGET GHOST elements

integer, intent(in) :: tnSize
real(kind=rk), intent(inout) :: tAuxField(:)

AuxField variable to fill on target GHOST elements

type(mus_scheme_layout_type), intent(in) :: layout

the layout used

integer, intent(in) :: nTargets

List of target elements ( their position in depSource list )

integer, intent(in) :: targetList(nTargets)
type(mus_physics_type), intent(in) :: physics

physics type to convert lattice to physics SI unit and vice versa

type(tem_time_type), intent(in) :: time

time required to compute viscosity on target element barycenter

type(tem_varSys_type), intent(in) :: varSys

scheme variable system

type(mus_derVarPos_type), intent(in) :: derVarPos(:)

position of all derive variable in varSys for all fields


Calls

proc~~fillcoarser_compactd3q19~~CallsGraph proc~fillcoarser_compactd3q19 fillCoarser_compactd3q19 proc~calc_moments calc_moments proc~fillcoarser_compactd3q19->proc~calc_moments

Contents


Variables

TypeVisibilityAttributesNameInitial
integer, private :: sourceLevel
integer, private :: targetLevel
integer, private :: pos
integer, private :: iElem
integer, private :: indElem
integer, private :: ii
real(kind=rk), private :: fEq(QQ)
real(kind=rk), private :: fNeq(QQ)
real(kind=rk), private :: rho
real(kind=rk), private :: vel(3)
real(kind=rk), private :: S(6)
real(kind=rk), private :: omegaSource
real(kind=rk), private :: omegaTarget
real(kind=rk), private :: pFac
real(kind=rk), private :: vFac
real(kind=rk), private :: sFac
real(kind=rk), private :: toS
real(kind=rk), private :: toNeq
real(kind=rk), private :: sss
real(kind=rk), private :: mom(1:10,4)
integer, private :: src
integer, private :: iS
real(kind=rk), private :: usq
real(kind=rk), private :: usqn
real(kind=rk), private :: usqn_o2
real(kind=rk), private :: coeff_1
real(kind=rk), private :: coeff_2
real(kind=rk), private :: ui1
real(kind=rk), private :: ui3
real(kind=rk), private :: ui10
real(kind=rk), private :: ui11
real(kind=rk), private :: ui12
real(kind=rk), private :: ui13
real(kind=rk), private :: fac_1
real(kind=rk), private :: fac_2
real(kind=rk), private :: fac_3
real(kind=rk), private :: fac_4
real(kind=rk), private :: fac_9
real(kind=rk), private :: fac_10
real(kind=rk), private :: fac_11
real(kind=rk), private :: fac_12
real(kind=rk), private :: fac_13
real(kind=rk), private :: sum1_1
real(kind=rk), private :: sum1_2
real(kind=rk), private :: sum2_1
real(kind=rk), private :: sum2_2
real(kind=rk), private :: sum3_1
real(kind=rk), private :: sum3_2
real(kind=rk), private :: sum4_1
real(kind=rk), private :: sum4_2
real(kind=rk), private :: sum9_1
real(kind=rk), private :: sum9_2
real(kind=rk), private :: sum10_1
real(kind=rk), private :: sum10_2
real(kind=rk), private :: sum11_1
real(kind=rk), private :: sum11_2
real(kind=rk), private :: sum12_1
real(kind=rk), private :: sum12_2
real(kind=rk), private :: sum13_1
real(kind=rk), private :: sum13_2
real(kind=rk), private :: a0
real(kind=rk), private :: axx
real(kind=rk), private :: ayy
real(kind=rk), private :: azz
real(kind=rk), private :: axy
real(kind=rk), private :: ayz
real(kind=rk), private :: axz
real(kind=rk), private :: b0
real(kind=rk), private :: bxx
real(kind=rk), private :: byy
real(kind=rk), private :: bzz
real(kind=rk), private :: bxy
real(kind=rk), private :: byz
real(kind=rk), private :: bxz
real(kind=rk), private :: c0
real(kind=rk), private :: cxx
real(kind=rk), private :: cyy
real(kind=rk), private :: czz
real(kind=rk), private :: cxy
real(kind=rk), private :: cyz
real(kind=rk), private :: cxz
real(kind=rk), private :: P
real(kind=rk), private :: Q
real(kind=rk), private :: R
real(kind=rk), private :: Pa
real(kind=rk), private :: Qa
real(kind=rk), private :: Ra
real(kind=rk), private :: Pb
real(kind=rk), private :: Qb
real(kind=rk), private :: Rb
real(kind=rk), private :: Pc
real(kind=rk), private :: Qc
real(kind=rk), private :: Rc
type(mus_fluid_type), private, pointer:: fluid
integer, private :: nScalars
real(kind=rk), private, allocatable:: momBuf(:,:)