SELF_DGModel2D_t Module

  1. SELF_DGModel2D_t.f90
  2. SELF_DGModel2D_t

Uses

  • module~~self_dgmodel2d_t~~UsesGraph module~self_dgmodel2d_t SELF_DGModel2D_t module~self_supportroutines SELF_SupportRoutines module~self_dgmodel2d_t->module~self_supportroutines module~self_hdf5 SELF_HDF5 module~self_dgmodel2d_t->module~self_hdf5 module~self_boundaryconditions SELF_BoundaryConditions module~self_dgmodel2d_t->module~self_boundaryconditions FEQParse FEQParse module~self_dgmodel2d_t->FEQParse module~self_geometry_2d SELF_Geometry_2D module~self_dgmodel2d_t->module~self_geometry_2d module~self_mesh_2d SELF_Mesh_2D module~self_dgmodel2d_t->module~self_mesh_2d module~self_metadata SELF_Metadata module~self_dgmodel2d_t->module~self_metadata module~self_transferplan_2d SELF_TransferPlan_2D module~self_dgmodel2d_t->module~self_transferplan_2d module~self_mappedvector_2d~2 SELF_MappedVector_2D module~self_dgmodel2d_t->module~self_mappedvector_2d~2 HDF5 HDF5 module~self_dgmodel2d_t->HDF5 module~self_model SELF_Model module~self_dgmodel2d_t->module~self_model module~self_mappedscalar_2d SELF_MappedScalar_2D module~self_dgmodel2d_t->module~self_mappedscalar_2d iso_fortran_env iso_fortran_env module~self_supportroutines->iso_fortran_env module~self_constants SELF_Constants module~self_supportroutines->module~self_constants module~self_hdf5->HDF5 module~self_hdf5->iso_fortran_env module~self_hdf5->module~self_constants mpi mpi module~self_hdf5->mpi module~self_boundaryconditions->module~self_supportroutines module~self_boundaryconditions->module~self_metadata iso_c_binding iso_c_binding module~self_boundaryconditions->iso_c_binding module~self_geometry_2d->module~self_supportroutines module~self_geometry_2d->module~self_mesh_2d module~self_geometry_2d->module~self_constants module~self_data SELF_Data module~self_geometry_2d->module~self_data module~self_vector_2d SELF_Vector_2D module~self_geometry_2d->module~self_vector_2d module~self_scalar_2d SELF_Scalar_2D module~self_geometry_2d->module~self_scalar_2d module~self_tensor_2d SELF_Tensor_2D module~self_geometry_2d->module~self_tensor_2d module~self_lagrange~3 SELF_Lagrange module~self_geometry_2d->module~self_lagrange~3 module~self_mesh_2d_t SELF_Mesh_2D_t module~self_mesh_2d->module~self_mesh_2d_t module~self_metadata->module~self_hdf5 module~self_metadata->HDF5 module~self_quadtreemesh_2d SELF_QuadTreeMesh_2D module~self_transferplan_2d->module~self_quadtreemesh_2d module~self_transferplan_2d->module~self_constants module~self_transferplan_2d->module~self_lagrange~3 module~self_solutiontransfer_2d SELF_SolutionTransfer_2D module~self_transferplan_2d->module~self_solutiontransfer_2d module~self_mappedvector_2d_t SELF_MappedVector_2D_t module~self_mappedvector_2d~2->module~self_mappedvector_2d_t module~self_model->module~self_supportroutines module~self_model->module~self_hdf5 module~self_model->FEQParse module~self_model->module~self_metadata module~self_model->HDF5 module~self_mappedscalar_2d_t SELF_MappedScalar_2D_t module~self_mappedscalar_2d->module~self_mappedscalar_2d_t module~self_quadtreemesh_2d->module~self_mesh_2d module~self_quadtreemesh_2d->module~self_constants module~self_quadtreemesh_2d->module~self_lagrange~3 module~self_refinementprimitives_2d SELF_RefinementPrimitives_2D module~self_quadtreemesh_2d->module~self_refinementprimitives_2d module~self_mappedscalar_2d_t->FEQParse module~self_mappedscalar_2d_t->module~self_geometry_2d module~self_mappedscalar_2d_t->module~self_mesh_2d module~self_mappedscalar_2d_t->module~self_constants module~self_mappedscalar_2d_t->iso_c_binding module~self_mappedscalar_2d_t->module~self_scalar_2d module~self_mappedscalar_2d_t->module~self_tensor_2d module~self_mappedscalar_2d_t->module~self_lagrange~3 module~self_domaindecomposition~2 SELF_DomainDecomposition module~self_mappedscalar_2d_t->module~self_domaindecomposition~2 module~self_constants->iso_fortran_env module~self_constants->iso_c_binding module~self_data->module~self_hdf5 module~self_data->FEQParse module~self_data->module~self_metadata module~self_data->HDF5 module~self_data->module~self_constants module~self_data->iso_c_binding module~self_data->module~self_lagrange~3 module~self_vector_2d_t SELF_Vector_2D_t module~self_vector_2d->module~self_vector_2d_t module~self_scalar_2d->module~self_constants module~self_scalar_2d->iso_c_binding module~self_scalar_2d_t SELF_Scalar_2D_t module~self_scalar_2d->module~self_scalar_2d_t module~self_tensor_2d_t SELF_Tensor_2D_t module~self_tensor_2d->module~self_tensor_2d_t module~self_lagrange~3->iso_fortran_env module~self_lagrange~3->module~self_constants module~self_lagrange~3->iso_c_binding module~self_lagrange_t SELF_Lagrange_t module~self_lagrange~3->module~self_lagrange_t module~self_mesh_2d_t->module~self_supportroutines module~self_mesh_2d_t->module~self_hdf5 module~self_mesh_2d_t->HDF5 module~self_mesh_2d_t->module~self_constants module~self_mesh_2d_t->iso_c_binding module~self_mesh_2d_t->module~self_lagrange~3 module~self_mesh_2d_t->module~self_domaindecomposition~2 module~self_mesh SELF_Mesh module~self_mesh_2d_t->module~self_mesh module~self_quadrature SELF_Quadrature module~self_mesh_2d_t->module~self_quadrature module~self_solutiontransfer_2d->module~self_constants module~self_solutiontransfer_2d->module~self_lagrange~3 module~self_mappedvector_2d_t->FEQParse module~self_mappedvector_2d_t->module~self_geometry_2d module~self_mappedvector_2d_t->module~self_mesh_2d module~self_mappedvector_2d_t->module~self_constants module~self_mappedvector_2d_t->iso_c_binding module~self_mappedvector_2d_t->module~self_vector_2d module~self_mappedvector_2d_t->module~self_tensor_2d module~self_mappedvector_2d_t->module~self_lagrange~3 module~self_mappedvector_2d_t->module~self_domaindecomposition~2 module~self_refinementprimitives_2d->module~self_constants module~self_refinementprimitives_2d->module~self_lagrange~3 module~self_vector_2d_t->module~self_hdf5 module~self_vector_2d_t->FEQParse module~self_vector_2d_t->module~self_metadata module~self_vector_2d_t->HDF5 module~self_vector_2d_t->module~self_constants module~self_vector_2d_t->iso_c_binding module~self_vector_2d_t->module~self_data module~self_vector_2d_t->module~self_lagrange~3 module~self_datapool SELF_DataPool module~self_vector_2d_t->module~self_datapool module~self_domaindecomposition_t SELF_DomainDecomposition_t module~self_domaindecomposition~2->module~self_domaindecomposition_t module~self_scalar_2d_t->module~self_hdf5 module~self_scalar_2d_t->FEQParse module~self_scalar_2d_t->module~self_metadata module~self_scalar_2d_t->HDF5 module~self_scalar_2d_t->module~self_constants module~self_scalar_2d_t->iso_c_binding module~self_scalar_2d_t->module~self_data module~self_scalar_2d_t->module~self_lagrange~3 module~self_scalar_2d_t->module~self_datapool module~self_tensor_2d_t->module~self_hdf5 module~self_tensor_2d_t->FEQParse module~self_tensor_2d_t->module~self_metadata module~self_tensor_2d_t->HDF5 module~self_tensor_2d_t->module~self_constants module~self_tensor_2d_t->iso_c_binding module~self_tensor_2d_t->module~self_data module~self_tensor_2d_t->module~self_lagrange~3 module~self_tensor_2d_t->module~self_datapool module~self_lagrange_t->module~self_supportroutines module~self_lagrange_t->module~self_hdf5 module~self_lagrange_t->HDF5 module~self_lagrange_t->iso_fortran_env module~self_lagrange_t->module~self_constants module~self_lagrange_t->iso_c_binding module~self_lagrange_t->module~self_quadrature module~self_mesh->module~self_constants module~self_mesh->iso_c_binding module~self_mesh->module~self_domaindecomposition~2 module~self_quadrature->iso_fortran_env module~self_quadrature->module~self_constants module~self_datapool->module~self_constants module~self_domaindecomposition_t->module~self_supportroutines module~self_domaindecomposition_t->module~self_constants module~self_domaindecomposition_t->iso_c_binding module~self_domaindecomposition_t->mpi module~self_domaindecomposition_t->module~self_lagrange~3

Used by

  • module~~self_dgmodel2d_t~~UsedByGraph module~self_dgmodel2d_t SELF_DGModel2D_t module~self_dgmodel2d~2 SELF_DGModel2D module~self_dgmodel2d~2->module~self_dgmodel2d_t module~self_amrcontroller_2d SELF_AMRController_2D module~self_amrcontroller_2d->module~self_dgmodel2d_t module~self_dgmodel2d SELF_DGModel2D module~self_dgmodel2d->module~self_dgmodel2d_t module~self_ecdgmodel2d_t SELF_ECDGModel2D_t module~self_ecdgmodel2d_t->module~self_dgmodel2d~2 module~self_linearshallowwater2d_t self_LinearShallowWater2D_t module~self_linearshallowwater2d_t->module~self_dgmodel2d~2 module~self_nulldgmodel2d_t self_NullDGModel2D_t module~self_nulldgmodel2d_t->module~self_dgmodel2d~2 module~self_advection_diffusion_2d_t self_advection_diffusion_2d_t module~self_advection_diffusion_2d_t->module~self_dgmodel2d~2 module~self_lineareuler2d_t self_LinearEuler2D_t module~self_lineareuler2d_t->module~self_dgmodel2d~2 module~self_lineareuler2d_pml_t self_LinearEuler2D_PML_t module~self_lineareuler2d_pml_t->module~self_dgmodel2d~2 module~self_lineareuler2d_pml_t->module~self_lineareuler2d_t module~self_lineareuler2d_pml self_LinearEuler2D_PML module~self_lineareuler2d_pml->module~self_lineareuler2d_pml_t module~self_lineareuler2d_pml~2 self_LinearEuler2D_PML module~self_lineareuler2d_pml~2->module~self_lineareuler2d_pml_t module~self_lineareuler2d self_LinearEuler2D module~self_lineareuler2d->module~self_lineareuler2d_t module~self_ecdgmodel2d SELF_ECDGModel2D module~self_ecdgmodel2d->module~self_ecdgmodel2d_t module~self_ecdgmodel2d~2 SELF_ECDGModel2D module~self_ecdgmodel2d~2->module~self_ecdgmodel2d_t module~self_ecadvection2d SELF_ECAdvection2D module~self_ecadvection2d->module~self_ecdgmodel2d_t module~self_ecadvection2d_t SELF_ECAdvection2D_t module~self_ecadvection2d->module~self_ecadvection2d_t module~self_linearshallowwater2d~2 self_LinearShallowWater2D module~self_linearshallowwater2d~2->module~self_linearshallowwater2d_t module~self_esatmo2d SELF_ESAtmo2D module~self_esatmo2d->module~self_ecdgmodel2d_t module~self_esatmo2d_t SELF_ESAtmo2D_t module~self_esatmo2d->module~self_esatmo2d_t module~self_linearshallowwater2d self_LinearShallowWater2D module~self_linearshallowwater2d->module~self_linearshallowwater2d_t module~self_nulldgmodel2d self_NullDGModel2D module~self_nulldgmodel2d->module~self_nulldgmodel2d_t module~self_nulldgmodel2d~2 self_NullDGModel2D module~self_nulldgmodel2d~2->module~self_nulldgmodel2d_t module~self_advection_diffusion_2d self_advection_diffusion_2d module~self_advection_diffusion_2d->module~self_advection_diffusion_2d_t module~self_advection_diffusion_2d~2 self_advection_diffusion_2d module~self_advection_diffusion_2d~2->module~self_advection_diffusion_2d_t module~self_lineareuler2d~2 self_LinearEuler2D module~self_lineareuler2d~2->module~self_lineareuler2d_t module~self_ecadvection2d_t->module~self_ecdgmodel2d module~self_esatmo2d_t->module~self_ecdgmodel2d module~self_ecadvection2d~2 SELF_ECAdvection2D module~self_ecadvection2d~2->module~self_ecadvection2d_t module~self_esatmo2d~2 SELF_ESAtmo2D module~self_esatmo2d~2->module~self_esatmo2d_t

Contents

Derived Types

Subroutines


Derived Types

type, public, extends(Model) :: DGModel2D_t

Components

TypeVisibilityAttributesNameInitial
type(MappedScalar2D), public :: dSdt
real(kind=prec), public :: dt
real(kind=prec), public :: entropy
type(MappedVector2D), public :: flux
type(MappedScalar2D), public :: fluxDivergence
type(SEMQuad), public, pointer:: geometry=> null()
logical, public :: gradient_enabled =.false.
type(BoundaryConditionList), public :: hyperbolicBCs
integer, public :: ioIterate =0
type(Mesh2D), public, pointer:: mesh=> null()
integer, public :: nstepped =0
integer, public :: nvar
type(BoundaryConditionList), public :: parabolicBCs

Pre-regrid copy of the solution, held between StageSolutionForTransfer and ApplyTransferPlan so that Regrid is free to release the storage it was read from. The base implementation stages on the host; the GPU backend overrides both procedures and stages device-side instead, leaving this unallocated.
logical, public :: prescribed_bcs_enabled =.true.
type(MappedScalar2D), public :: solution
type(MappedVector2D), public :: solutionGradient
type(MappedScalar2D), public :: source
real(kind=prec), public :: t
logical, public :: tecplot_enabled =.true.
procedure(SELF_timeIntegrator), public, pointer:: timeIntegrator=> Euler_timeIntegrator
real(kind=prec), public, allocatable:: transferStage(:,:,:,:)
type(MappedScalar2D), public :: workSol

Type-Bound Procedures

procedure, public :: AdditionalFree => AdditionalFree_Model
procedure, public :: AdditionalInit => AdditionalInit_Model
procedure, public :: AdditionalOutput => AdditionalOutput_Model
procedure, public :: ApplyTransferPlan => ApplyTransferPlan_DGModel2D_t
procedure, public :: BoundaryFlux => BoundaryFlux_DGModel2D_t
procedure, public :: CalculateEntropy => CalculateEntropy_DGModel2D_t
procedure, public :: CalculateSolutionGradient => CalculateSolutionGradient_DGModel2D_t
procedure, public :: CalculateTendency => CalculateTendency_DGModel2D_t
procedure, public :: Euler_timeIntegrator
procedure, public :: FluxMethod => fluxmethod_DGModel2D_t
procedure, public :: ForwardStep => ForwardStep_Model
procedure, public :: Free => Free_DGModel2D_t
procedure, public :: GetSimulationTime
procedure, public :: IncrementIOCounter
procedure, public :: Init => Init_DGModel2D_t
procedure, public :: LowStorageRK2_timeIntegrator
procedure, public :: LowStorageRK3_timeIntegrator
procedure, public :: LowStorageRK4_timeIntegrator
procedure, public :: MapBoundaryConditions => MapBoundaryConditions_DGModel2D_t
procedure, public :: PostStepHook => PostStepHook_Model
procedure, public :: PreStepHook => PreStepHook_Model
procedure, public :: PreTendencyHook => PreTendencyHook_Model
procedure, public :: PrintType => PrintType_Model
procedure, public :: ReadModel => Read_DGModel2D_t
procedure, public :: Regrid => Regrid_DGModel2D_t
procedure, public :: ReportEntropy => ReportEntropy_Model
procedure, public :: ReportMetrics => ReportMetrics_DGModel2D_t
procedure, public :: ReportUserMetrics => ReportUserMetrics_Model
procedure, public :: SetBoundaryCondition => setboundarycondition_DGModel2D_t
procedure, public :: SetGradientBoundaryCondition => setgradientboundarycondition_DGModel2D_t
procedure, public :: SetMetadata => SetMetadata_DGModel2D_t
procedure, public :: SetNumberOfVariables => SetNumberOfVariables_Model
procedure, public :: SetSimulationTime
generic, public :: SetSolution => SetSolutionFromChar_DGModel2D_t, SetSolutionFromEqn_DGModel2D_t
procedure, private :: SetSolutionFromChar_DGModel2D_t
procedure, private :: SetSolutionFromEqn_DGModel2D_t
generic, public :: SetTimeIntegrator => SetTimeIntegrator_withChar
procedure, public :: SourceMethod => sourcemethod_DGModel2D_t
procedure, public :: StageSolutionForTransfer => StageSolutionForTransfer_DGModel2D_t
procedure, public :: UpdateGRK2 => UpdateGRK2_DGModel2D_t
procedure, public :: UpdateGRK3 => UpdateGRK3_DGModel2D_t
procedure, public :: UpdateGRK4 => UpdateGRK4_DGModel2D_t
procedure, public :: UpdateSolution => UpdateSolution_DGModel2D_t
procedure, public :: WriteModel => Write_DGModel2D_t
procedure, public :: WriteTecplot => WriteTecplot_DGModel2D_t
procedure, public :: entropy_func => entropy_func_Model
procedure, public :: flux1D => flux1d_Model
procedure, public :: flux2D => flux2d_Model
procedure, public :: flux3D => flux3d_Model
procedure, public :: riemannflux1d => riemannflux1d_Model
procedure, public :: riemannflux2d => riemannflux2d_Model
procedure, public :: riemannflux3d => riemannflux3d_Model
procedure, public :: source1d => source1d_Model
procedure, public :: source2d => source2d_Model
procedure, public :: source3d => source3d_Model

Subroutines

public subroutine ApplyTransferPlan_DGModel2D_t(this, plan, interp, eFirst, eLast, uGlobal)

Transfer the staged pre-regrid solution onto the regridded mesh through plan, filling the rank-local element range [eFirst,eLast] of the new solution.

Read more…

Arguments

TypeIntentOptionalAttributesName
class(DGModel2D_t), intent(inout) :: this
type(TransferPlan2D), intent(in), target:: plan
type(Lagrange), intent(in) :: interp
integer, intent(in) :: eFirst
integer, intent(in) :: eLast
real(kind=prec), intent(in), optional :: uGlobal(:,:,:,:)

public subroutine BoundaryFlux_DGModel2D_t(this)

Arguments

TypeIntentOptionalAttributesName
class(DGModel2D_t), intent(inout) :: this

public subroutine CalculateEntropy_DGModel2D_t(this)

Arguments

TypeIntentOptionalAttributesName
class(DGModel2D_t), intent(inout) :: this

public subroutine CalculateSolutionGradient_DGModel2D_t(this)

Arguments

TypeIntentOptionalAttributesName
class(DGModel2D_t), intent(inout) :: this

public subroutine CalculateTendency_DGModel2D_t(this)

Arguments

TypeIntentOptionalAttributesName
class(DGModel2D_t), intent(inout) :: this

public subroutine Free_DGModel2D_t(this)

Arguments

TypeIntentOptionalAttributesName
class(DGModel2D_t), intent(inout) :: this

public subroutine Init_DGModel2D_t(this, mesh, geometry)

Arguments

TypeIntentOptionalAttributesName
class(DGModel2D_t), intent(out) :: this
type(Mesh2D), intent(in), target:: mesh
type(SEMQuad), intent(in), target:: geometry

public subroutine MapBoundaryConditions_DGModel2D_t(this)

Scan the mesh sideInfo and populate the elements/sides arrays for each registered boundary condition.

Arguments

TypeIntentOptionalAttributesName
class(DGModel2D_t), intent(inout) :: this

public subroutine Read_DGModel2D_t(this, fileName)

Arguments

TypeIntentOptionalAttributesName
class(DGModel2D_t), intent(inout) :: this
character, intent(in) :: fileName

public subroutine Regrid_DGModel2D_t(this, mesh, geometry)

Rebind a live model to a new mesh/geometry pair (AMR regrid). The mesh-sized solution storage is reallocated and the boundary-condition registrations and maps are rebuilt for the new mesh, while everything that is not mesh-sized is preserved: the time state (t, dt, entropy, IO counter), the time-integrator selection, configuration flags, and any model-specific parameters (Init is intent(out) and would reset all of these). nvar/nstepped are unchanged - the model solves the same equations on a new mesh.

Read more…

Arguments

TypeIntentOptionalAttributesName
class(DGModel2D_t), intent(inout) :: this
type(Mesh2D), intent(in), target:: mesh
type(SEMQuad), intent(in), target:: geometry

public subroutine ReportMetrics_DGModel2D_t(this)

Base method for reporting the entropy of a model to stdout. Only override this procedure if additional reporting is needed. Alternatively, if you think additional reporting would be valuable for all models, open a pull request with modifications to this base method.

Arguments

TypeIntentOptionalAttributesName
class(DGModel2D_t), intent(inout) :: this

public subroutine SetMetadata_DGModel2D_t(this)

Arguments

TypeIntentOptionalAttributesName
class(DGModel2D_t), intent(inout) :: this

public subroutine SetSolutionFromChar_DGModel2D_t(this, eqnChar)

Arguments

TypeIntentOptionalAttributesName
class(DGModel2D_t), intent(inout) :: this
character, intent(in) :: eqnChar(1:this%solution%nVar)

public subroutine SetSolutionFromEqn_DGModel2D_t(this, eqn)

Arguments

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

public subroutine StageSolutionForTransfer_DGModel2D_t(this)

Preserve the current solution ahead of a regrid, so that Regrid may release the storage it lives in. Pair with ApplyTransferPlan, which consumes the staged copy:

Read more…

Arguments

TypeIntentOptionalAttributesName
class(DGModel2D_t), intent(inout) :: this

public subroutine UpdateGRK2_DGModel2D_t(this, m)

Arguments

TypeIntentOptionalAttributesName
class(DGModel2D_t), intent(inout) :: this
integer, intent(in) :: m

public subroutine UpdateGRK3_DGModel2D_t(this, m)

Arguments

TypeIntentOptionalAttributesName
class(DGModel2D_t), intent(inout) :: this
integer, intent(in) :: m

public subroutine UpdateGRK4_DGModel2D_t(this, m)

Arguments

TypeIntentOptionalAttributesName
class(DGModel2D_t), intent(inout) :: this
integer, intent(in) :: m

public subroutine UpdateSolution_DGModel2D_t(this, dt)

Computes a solution update as , where dt is either provided through the interface or taken as the Model's stored time step size (model % dt)

Arguments

TypeIntentOptionalAttributesName
class(DGModel2D_t), intent(inout) :: this
real(kind=prec), intent(in), optional :: dt

public subroutine WriteTecplot_DGModel2D_t(this, filename)

Arguments

TypeIntentOptionalAttributesName
class(DGModel2D_t), intent(inout) :: this
character, intent(in), optional :: filename

public subroutine Write_DGModel2D_t(this, fileName)

Arguments

TypeIntentOptionalAttributesName
class(DGModel2D_t), intent(inout) :: this
character, intent(in), optional :: fileName

public subroutine fluxmethod_DGModel2D_t(this)

Arguments

TypeIntentOptionalAttributesName
class(DGModel2D_t), intent(inout) :: this

public subroutine setboundarycondition_DGModel2D_t(this)

Apply registered boundary conditions for the solution. Each boundary condition method loops over its own boundary faces.

Arguments

TypeIntentOptionalAttributesName
class(DGModel2D_t), intent(inout) :: this

public subroutine setgradientboundarycondition_DGModel2D_t(this)

Apply registered boundary conditions for the solution gradient. Each boundary condition method loops over its own boundary faces.

Arguments

TypeIntentOptionalAttributesName
class(DGModel2D_t), intent(inout) :: this

public subroutine sourcemethod_DGModel2D_t(this)

Arguments

TypeIntentOptionalAttributesName
class(DGModel2D_t), intent(inout) :: this