SetSolutionFromChar_DGModel1D_t Subroutine

  1. SELF_DGModel1D_t.f90
  2. SELF_DGModel1D_t
  3. SetSolutionFromChar_DGModel1D_t

public subroutine SetSolutionFromChar_DGModel1D_t(this, eqnChar)

Arguments

TypeIntentOptionalAttributesName
class(DGModel1D_t), intent(inout) :: this
character(len=SELF_EQUATION_LENGTH), intent(in) :: eqnChar(1:this%solution%nVar)

Contents

Source Code

SetSolutionFromChar_DGModel1D_t

Source Code

  subroutine SetSolutionFromChar_DGModel1D_t(this,eqnChar)
    implicit none
    class(DGModel1D_t),intent(inout) :: this
    character(LEN=SELF_EQUATION_LENGTH),intent(in) :: eqnChar(1:this%solution%nVar)
    ! Local
    integer :: iVar

    do iVar = 1,this%solution%nVar
      print*,iVar,eqnChar(iVar)
      call this%solution%SetEquation(ivar,eqnChar(iVar))
    enddo

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

  endsubroutine SetSolutionFromChar_DGModel1D_t