riemannflux2d_Model Function

  1. SELF_Model.f90
  2. SELF_Model
  3. riemannflux2d_Model

public pure function riemannflux2d_Model(this, sL, sR, dsdx, nhat) result(flux)

Arguments

TypeIntentOptionalAttributesName
class(Model), intent(in) :: this
real(kind=prec), intent(in) :: sL(1:this%nvar)
real(kind=prec), intent(in) :: sR(1:this%nvar)
real(kind=prec), intent(in) :: dsdx(1:this%nvar,1:2)
real(kind=prec), intent(in) :: nhat(1:2)

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


Contents

Source Code

riemannflux2d_Model

Source Code

  pure function riemannflux2d_Model(this,sL,sR,dsdx,nhat) result(flux)
    class(Model),intent(in) :: this
    real(prec),intent(in) :: sL(1:this%nvar)
    real(prec),intent(in) :: sR(1:this%nvar)
    real(prec),intent(in) :: dsdx(1:this%nvar,1:2)
    real(prec),intent(in) :: nhat(1:2)
    real(prec) :: flux(1:this%nvar)

    flux = 0.0_prec
    if(.false.) then ! suppress unused-dummy-argument warnings for default implementation
      flux = sL+sR; flux(1) = flux(1)+dsdx(1,1)+nhat(1)
    endif

  endfunction riemannflux2d_Model