Init_DGModel3D_t Subroutine

  1. SELF_DGModel3D_t.f90
  2. SELF_DGModel3D_t
  3. Init_DGModel3D_t

public subroutine Init_DGModel3D_t(this, mesh, geometry)

Arguments

TypeIntentOptionalAttributesName
class(DGModel3D_t), intent(out) :: this
type(Mesh3D), intent(in), target:: mesh
type(SEMHex), intent(in), target:: geometry

Called by

proc~~init_dgmodel3d_t~~CalledByGraph proc~init_dgmodel3d_t Init_DGModel3D_t proc~init_ecdgmodel3d_t Init_ECDGModel3D_t proc~init_ecdgmodel3d_t->proc~init_dgmodel3d_t proc~init_dgmodel3d Init_DGModel3D proc~init_dgmodel3d->proc~init_dgmodel3d_t proc~init_ecadvection3d Init_ECAdvection3D proc~init_ecadvection3d->proc~init_ecdgmodel3d_t

Contents

Source Code

Init_DGModel3D_t

Source Code

  subroutine Init_DGModel3D_t(this,mesh,geometry)
    implicit none
    class(DGModel3D_t),intent(out) :: this
    type(Mesh3D),intent(in),target :: mesh
    type(SEMHex),intent(in),target :: geometry
    ! Local
    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_DGModel3D_t