Init_DGModel1D_t Subroutine

  1. SELF_DGModel1D_t.f90
  2. SELF_DGModel1D_t
  3. Init_DGModel1D_t

public subroutine Init_DGModel1D_t(this, mesh, geometry)

Arguments

TypeIntentOptionalAttributesName
class(DGModel1D_t), intent(out) :: this
type(Mesh1D), intent(in), target:: mesh
type(Geometry1D), intent(in), target:: geometry

Called by

proc~~init_dgmodel1d_t~~CalledByGraph proc~init_dgmodel1d_t Init_DGModel1D_t proc~init_dgmodel1d Init_DGModel1D proc~init_dgmodel1d->proc~init_dgmodel1d_t

Contents

Source Code

Init_DGModel1D_t

Source Code

  subroutine Init_DGModel1D_t(this,mesh,geometry)
    implicit none
    class(DGModel1D_t),intent(out) :: this
    type(Mesh1D),intent(in),target :: mesh
    type(Geometry1D),intent(in),target :: geometry

    this%mesh => mesh
    this%geometry => geometry
    call this%SetNumberOfVariables()

    call this%solution%Init(geometry%x%interp,this%nvar,this%mesh%nElem)
    call this%workSol%Init(geometry%x%interp,this%nvar,this%mesh%nElem)
    call this%dSdt%Init(geometry%x%interp,this%nvar,this%mesh%nElem)
    call this%solutionGradient%Init(geometry%x%interp,this%nvar,this%mesh%nElem)
    call this%flux%Init(geometry%x%interp,this%nvar,this%mesh%nElem)
    call this%source%Init(geometry%x%interp,this%nvar,this%mesh%nElem)
    call this%fluxDivergence%Init(geometry%x%interp,this%nvar,this%mesh%nElem)

    call this%solution%AssociateGeometry(geometry)
    call this%solutionGradient%AssociateGeometry(geometry)
    call this%flux%AssociateGeometry(geometry)
    call this%fluxDivergence%AssociateGeometry(geometry)

    call this%hyperbolicBCs%Init()
    call this%parabolicBCs%Init()

    call this%AdditionalInit()

    call this%MapBoundaryConditions()

    call this%SetMetadata()

  endsubroutine Init_DGModel1D_t