twopointflux3d_ECDGModel3D_t Function

  1. SELF_ECDGModel3D_t.f90
  2. SELF_ECDGModel3D_t
  3. twopointflux3d_ECDGModel3D_t

public pure function twopointflux3d_ECDGModel3D_t(this, sL, sR) result(flux)

Entropy-conserving two-point flux function (3-D). flux(ivar, d) is the d-th physical component (d=1:x, d=2:y, d=3:z). Override in concrete models. Stub returns zero.

Arguments

TypeIntentOptionalAttributesName
class(ECDGModel3D_t), intent(in) :: this
real(kind=prec), intent(in) :: sL(1:this%nvar)
real(kind=prec), intent(in) :: sR(1:this%nvar)

Return Value real(kind=prec)(1:this%nvar,1:3)


Contents

Source Code

twopointflux3d_ECDGModel3D_t

Source Code

  pure function twopointflux3d_ECDGModel3D_t(this,sL,sR) result(flux)
    !! Entropy-conserving two-point flux function (3-D).
    !! flux(ivar, d) is the d-th physical component (d=1:x, d=2:y, d=3:z).
    !! Override in concrete models. Stub returns zero.
    implicit none
    class(ECDGModel3D_t),intent(in) :: this
    real(prec),intent(in) :: sL(1:this%nvar)
    real(prec),intent(in) :: sR(1:this%nvar)
    real(prec) :: flux(1:this%nvar,1:3)

    flux = 0.0_prec
    if(.false.) flux(1,1) = flux(1,1)+sL(1)+sR(1) ! suppress unused-argument warning

  endfunction twopointflux3d_ECDGModel3D_t