modg_1d_heat_oneDim_numFlux Subroutine

  1. atl_modg_1d_heat_kernel_module.f90
  2. atl_modg_1d_heat_kernel_module
  3. modg_1d_heat_oneDim_numFlux

private subroutine modg_1d_heat_oneDim_numFlux(equation, facedata, scheme, faces, faceDir, elem_len)

Numerical flux calculation for the Heat equation across the faces in a single spatial direction.

Arguments

TypeIntentOptionalAttributesName
type(atl_Equations_type), intent(in) :: equation

The equation you solve.
type(atl_facedata_type), intent(inout) :: facedata

The face state if the equation
type(atl_modg_1d_scheme_type), intent(in) :: scheme

Parameters of the modal dg scheme
type(tem_faceIterator_type), intent(in) :: faces

The faces to calculate the fluxes for.
integer, intent(in) :: faceDir

The spatial direction of the faces you calc the fluxes for, use the following: 1 --> x direction.
real(kind=rk), intent(in) :: elem_len

Length of the element

Called by

proc~~modg_1d_heat_onedim_numflux~~CalledByGraph proc~modg_1d_heat_onedim_numflux modg_1d_heat_oneDim_numFlux proc~atl_modg_1d_heat_numflux atl_modg_1d_heat_numFlux proc~atl_modg_1d_heat_numflux->proc~modg_1d_heat_onedim_numflux proc~compute_rhs_cubes_modg_1d compute_rhs_cubes_modg_1d proc~compute_rhs_cubes_modg_1d->proc~atl_modg_1d_heat_numflux proc~compute_rhs_cubes compute_rhs_cubes proc~compute_rhs_cubes->proc~compute_rhs_cubes_modg_1d interface~atl_compute_rhs atl_compute_rhs interface~atl_compute_rhs->proc~compute_rhs_cubes

Contents

Variables


Variables

TypeVisibilityAttributesNameInitial
real(kind=rk), private :: leftModalCoeff(1,equation%varSys%nScalars)
real(kind=rk), private :: rightModalCoeff(1,equation%varSys%nScalars)
real(kind=rk), private :: leftModalCoeffDiff(1,equation%varSys%nScalars)
real(kind=rk), private :: rightModalCoeffDiff(1,equation%varSys%nScalars)
real(kind=rk), private :: Numflux1(1,equation%varSys%nScalars)
real(kind=rk), private :: Numflux2(1,equation%varSys%nScalars)
integer, private :: iside
integer, private :: left_neighbor
integer, private :: right_neighbor
integer, private :: iVar
real(kind=rk), private :: outerNormalLeft
real(kind=rk), private :: outerNormalRight
real(kind=rk), private :: Const
real(kind=rk), private :: C_IP
real(kind=rk), private :: therm_diff