flux1d_Burgers1D_t Function

  1. SELF_Burgers1D_t.f90
  2. self_Burgers1D_t
  3. flux1d_Burgers1D_t

public pure function flux1d_Burgers1D_t(this, s, dsdx) result(flux)

Arguments

TypeIntentOptionalAttributesName
class(Burgers1D_t), intent(in) :: this
real(kind=prec), intent(in) :: s(1:this%solution%nvar)
real(kind=prec), intent(in) :: dsdx(1:this%solution%nvar)

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


Contents

Source Code

flux1d_Burgers1D_t

Source Code

  pure function flux1d_Burgers1D_t(this,s,dsdx) result(flux)
    class(Burgers1D_t),intent(in) :: this
    real(prec),intent(in) :: s(1:this%solution%nvar)
    real(prec),intent(in) :: dsdx(1:this%solution%nvar)
    real(prec) :: flux(1:this%solution%nvar)

    flux(1) = 0.5_prec*s(1)*s(1)-this%nu*dsdx(1)

  endfunction flux1d_Burgers1D_t