SetSolutionFromEqn_DGModel1D_t Subroutine

  1. SELF_DGModel1D_t.f90
  2. SELF_DGModel1D_t
  3. SetSolutionFromEqn_DGModel1D_t

public subroutine SetSolutionFromEqn_DGModel1D_t(this, eqn)

Arguments

TypeIntentOptionalAttributesName
class(DGModel1D_t), intent(inout) :: this
type(EquationParser), intent(in) :: eqn(1:this%solution%nVar)

Contents

Source Code

SetSolutionFromEqn_DGModel1D_t

Source Code

  subroutine SetSolutionFromEqn_DGModel1D_t(this,eqn)
    implicit none
    class(DGModel1D_t),intent(inout) :: this
    type(EquationParser),intent(in) :: eqn(1:this%solution%nVar)
    ! Local
    integer :: iVar

    ! Copy the equation parser
    do iVar = 1,this%solution%nVar
      call this%solution%SetEquation(ivar,eqn(iVar)%equation)
    enddo

    call this%solution%SetInteriorFromEquation(this%t)
    call this%solution%BoundaryInterp()

  endsubroutine SetSolutionFromEqn_DGModel1D_t