SELF_MappedScalar_2D Module

  1. SELF_MappedScalar_2D.f90
  2. SELF_MappedScalar_2D

Uses

  • module~~self_mappedscalar_2d~2~~UsesGraph module~self_mappedscalar_2d~2 SELF_MappedScalar_2D module~self_mappedscalar_2d_t SELF_MappedScalar_2D_t module~self_mappedscalar_2d~2->module~self_mappedscalar_2d_t iso_c_binding iso_c_binding module~self_mappedscalar_2d~2->iso_c_binding module~self_scalar_2d SELF_Scalar_2D module~self_mappedscalar_2d~2->module~self_scalar_2d module~self_gpuinterfaces SELF_GPUInterfaces module~self_mappedscalar_2d~2->module~self_gpuinterfaces module~self_gpu SELF_GPU module~self_mappedscalar_2d~2->module~self_gpu module~self_mappedscalar_2d_t->iso_c_binding module~self_mappedscalar_2d_t->module~self_scalar_2d module~self_mesh_2d SELF_Mesh_2D module~self_mappedscalar_2d_t->module~self_mesh_2d module~self_constants SELF_Constants module~self_mappedscalar_2d_t->module~self_constants module~self_tensor_2d SELF_Tensor_2D module~self_mappedscalar_2d_t->module~self_tensor_2d FEQParse FEQParse module~self_mappedscalar_2d_t->FEQParse module~self_geometry_2d SELF_Geometry_2D module~self_mappedscalar_2d_t->module~self_geometry_2d module~self_lagrange~3 SELF_Lagrange 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_scalar_2d->iso_c_binding module~self_scalar_2d->module~self_constants module~self_scalar_2d_t SELF_Scalar_2D_t module~self_scalar_2d->module~self_scalar_2d_t module~self_gpuinterfaces->iso_c_binding module~self_gpuinterfaces->module~self_gpu module~self_gpu->iso_c_binding module~self_gpu_enums~2 SELF_GPU_enums module~self_gpu->module~self_gpu_enums~2 module~self_mesh_2d_t SELF_Mesh_2D_t module~self_mesh_2d->module~self_mesh_2d_t module~self_constants->iso_c_binding iso_fortran_env iso_fortran_env module~self_constants->iso_fortran_env module~self_tensor_2d_t SELF_Tensor_2D_t module~self_tensor_2d->module~self_tensor_2d_t module~self_geometry_2d->module~self_scalar_2d module~self_geometry_2d->module~self_mesh_2d module~self_geometry_2d->module~self_constants module~self_geometry_2d->module~self_tensor_2d module~self_geometry_2d->module~self_lagrange~3 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_supportroutines SELF_SupportRoutines module~self_geometry_2d->module~self_supportroutines module~self_lagrange~3->iso_c_binding module~self_lagrange~3->module~self_constants module~self_lagrange~3->iso_fortran_env module~self_lagrange_t SELF_Lagrange_t module~self_lagrange~3->module~self_lagrange_t module~self_domaindecomposition_t SELF_DomainDecomposition_t module~self_domaindecomposition~2->module~self_domaindecomposition_t module~self_scalar_2d_t->iso_c_binding module~self_scalar_2d_t->module~self_constants module~self_scalar_2d_t->FEQParse module~self_scalar_2d_t->module~self_lagrange~3 module~self_hdf5 SELF_HDF5 module~self_scalar_2d_t->module~self_hdf5 module~self_scalar_2d_t->module~self_data module~self_metadata SELF_Metadata module~self_scalar_2d_t->module~self_metadata module~self_datapool SELF_DataPool module~self_scalar_2d_t->module~self_datapool HDF5 HDF5 module~self_scalar_2d_t->HDF5 module~self_gpu_enums~2->iso_c_binding module~self_hdf5->module~self_constants module~self_hdf5->iso_fortran_env module~self_hdf5->HDF5 mpi mpi module~self_hdf5->mpi module~self_mesh_2d_t->iso_c_binding module~self_mesh_2d_t->module~self_constants module~self_mesh_2d_t->module~self_lagrange~3 module~self_mesh_2d_t->module~self_domaindecomposition~2 module~self_mesh_2d_t->module~self_hdf5 module~self_mesh_2d_t->module~self_supportroutines module~self_mesh_2d_t->HDF5 module~self_quadrature SELF_Quadrature module~self_mesh_2d_t->module~self_quadrature module~self_mesh SELF_Mesh module~self_mesh_2d_t->module~self_mesh module~self_data->iso_c_binding module~self_data->module~self_constants module~self_data->FEQParse module~self_data->module~self_lagrange~3 module~self_data->module~self_hdf5 module~self_data->module~self_metadata module~self_data->HDF5 module~self_vector_2d_t SELF_Vector_2D_t module~self_vector_2d->module~self_vector_2d_t module~self_tensor_2d_t->iso_c_binding module~self_tensor_2d_t->module~self_constants module~self_tensor_2d_t->FEQParse module~self_tensor_2d_t->module~self_lagrange~3 module~self_tensor_2d_t->module~self_hdf5 module~self_tensor_2d_t->module~self_data module~self_tensor_2d_t->module~self_metadata module~self_tensor_2d_t->module~self_datapool module~self_tensor_2d_t->HDF5 module~self_supportroutines->module~self_constants module~self_supportroutines->iso_fortran_env module~self_lagrange_t->iso_c_binding module~self_lagrange_t->module~self_constants module~self_lagrange_t->module~self_hdf5 module~self_lagrange_t->iso_fortran_env module~self_lagrange_t->module~self_supportroutines module~self_lagrange_t->HDF5 module~self_lagrange_t->module~self_quadrature module~self_domaindecomposition_t->iso_c_binding module~self_domaindecomposition_t->module~self_constants module~self_domaindecomposition_t->module~self_lagrange~3 module~self_domaindecomposition_t->module~self_supportroutines module~self_domaindecomposition_t->mpi module~self_metadata->module~self_hdf5 module~self_metadata->HDF5 module~self_datapool->module~self_constants module~self_vector_2d_t->iso_c_binding module~self_vector_2d_t->module~self_constants module~self_vector_2d_t->FEQParse module~self_vector_2d_t->module~self_lagrange~3 module~self_vector_2d_t->module~self_hdf5 module~self_vector_2d_t->module~self_data module~self_vector_2d_t->module~self_metadata module~self_vector_2d_t->module~self_datapool module~self_vector_2d_t->HDF5 module~self_quadrature->module~self_constants module~self_quadrature->iso_fortran_env module~self_mesh->iso_c_binding module~self_mesh->module~self_constants module~self_mesh->module~self_domaindecomposition~2

Contents

Interfaces

Derived Types

Subroutines


Interfaces

interface

  • public subroutine ContravariantWeight_2D_gpu(f, dsdx, jaf, N, nvar, nel) bind(c,name="0")

    Arguments

    TypeIntentOptionalAttributesName
    type(c_ptr), value:: f
    type(c_ptr), value:: dsdx
    type(c_ptr), value:: jaf
    integer(kind=c_int), value:: N
    integer(kind=c_int), value:: nvar
    integer(kind=c_int), value:: nel

interface

  • public subroutine NormalWeight_2D_gpu(fb, nhat, nscale, fbn, N, nvar, nel) bind(c,name="0")

    Arguments

    TypeIntentOptionalAttributesName
    type(c_ptr), value:: fb
    type(c_ptr), value:: nhat
    type(c_ptr), value:: nscale
    type(c_ptr), value:: fbn
    integer(kind=c_int), value:: N
    integer(kind=c_int), value:: nvar
    integer(kind=c_int), value:: nel

Derived Types

type, public, extends(MappedScalar2D_t) :: MappedScalar2D

Components

TypeVisibilityAttributesNameInitial
integer, public :: M
integer, public :: N
integer(kind=c_size_t), public :: alloc_jas =0
real(kind=prec), public, pointer, contiguous, dimension(:,:,:,:):: avgBoundary
character(len=3), public :: backend ="cpu"
real(kind=prec), public, pointer, contiguous, dimension(:,:,:,:):: boundary
real(kind=prec), public, pointer, contiguous, dimension(:,:,:,:):: boundarynormal

High-water-mark backing store for the arrays above (AMR Stage 6b; see SELF_DataPool). The public members are pointers remapped onto the leading part of these pools at the exact logical shape, so every extent, stride and shape() stays exactly as before while Resize can reuse the storage across an adaptation epoch. Nothing should index the pools.
type(EquationParser), public, allocatable:: eqn(:)
real(kind=prec), public, pointer, contiguous, dimension(:,:,:,:):: extBoundary
type(SEMQuad), public, pointer:: geometry=> null()
logical, public :: geometry_associated =.false.
integer, public :: halo_inflight =0
integer, public :: halo_nactive =0
type(c_ptr), public :: halo_recvbuf_gpu =c_null_ptr
integer, public, allocatable:: halo_reqs(:)

Bytes currently allocated for jas_gpu, so Resize can reuse it (Stage 6b). The capacity counters for the five arrays inherited from Scalar2D are declared there.
type(c_ptr), public :: halo_sendbuf_gpu =c_null_ptr
logical, public :: halo_static_done =.false.
real(kind=prec), public, pointer, contiguous, dimension(:,:,:,:):: interior
type(Lagrange), public, pointer:: interp
type(c_ptr), public :: jas_gpu
type(Metadata), public, allocatable:: meta(:)
real(kind=prec), public, allocatable, dimension(:,:,:,:):: mortarBuff
type(c_ptr), public :: mortarBuff_gpu =c_null_ptr
integer, public :: nElem
integer, public :: nVar
real(kind=prec), public, pointer, contiguous:: pool_avgBoundary(:)=> null()
real(kind=prec), public, pointer, contiguous:: pool_boundary(:)=> null()
real(kind=prec), public, pointer, contiguous:: pool_boundarynormal(:)=> null()
real(kind=prec), public, pointer, contiguous:: pool_extBoundary(:)=> null()
real(kind=prec), public, pointer, contiguous:: pool_interior(:)=> null()

Type-Bound Procedures

procedure, public :: AssociateGeometry => AssociateGeometry_MappedScalar2D_t
procedure, public :: AverageSides => AverageSides_Scalar2D_t
procedure, public :: BoundaryInterp => BoundaryInterp_Scalar2D_t
procedure, public :: DissociateGeometry => DissociateGeometry_MappedScalar2D_t
procedure, public :: Free => Free_MappedScalar2D
generic, public :: Gradient => Gradient_Scalar2D_t
generic, public :: GridInterp => GridInterp_Scalar2D_t
procedure, public :: Init => Init_MappedScalar2D
procedure, private :: MPIMortarExchangeAsync => MPIMortarExchangeAsync_MappedScalar2D
procedure, public :: MapArrays => MapArrays_Scalar2D_t
generic, public :: MappedDGGradient => MappedDGGradient_MappedScalar2D_t, MappedDGGradient_MappedScalar2D
procedure, private :: MappedDGGradient_MappedScalar2D
generic, public :: MappedGradient => MappedGradient_MappedScalar2D_t, MappedGradient_MappedScalar2D
procedure, private :: MappedGradient_MappedScalar2D
procedure, public :: MortarExchange => MortarExchange_MappedScalar2D
procedure, public :: Resize => Resize_MappedScalar2D
procedure, public :: SetDescription => SetDescription_DataObj
generic, public :: SetEquation => SetEquation_DataObj
procedure, public :: SetInteriorFromEquation => SetInteriorFromEquation_MappedScalar2D
procedure, public :: SetName => SetName_DataObj
procedure, public :: SetUnits => SetUnits_DataObj
procedure, public :: SideExchange => SideExchange_MappedScalar2D
procedure, public :: SideExchangeFinish => SideExchangeFinish_MappedScalar2D
procedure, public :: SideExchangeStart => SideExchangeStart_MappedScalar2D
procedure, public :: UpdateDevice => UpdateDevice_Scalar2D_t
procedure, public :: UpdateHost => UpdateHost_Scalar2D_t
generic, public :: WriteHDF5 => WriteHDF5_MPI_Scalar2D_t, WriteHDF5_Scalar2D_t

Subroutines

public subroutine EnsureDeviceBuffers_MappedScalar2D(this)

Grow the device buffers to hold the current logical arrays, reusing existing allocations when the bytes already fit (AMR Stage 6b).

Arguments

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

public subroutine Free_MappedScalar2D(this)

Arguments

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

public subroutine Init_MappedScalar2D(this, interp, nVar, nElem)

Arguments

TypeIntentOptionalAttributesName
class(MappedScalar2D), intent(out) :: this
type(Lagrange), intent(in), target:: interp
integer, intent(in) :: nVar
integer, intent(in) :: nElem

public subroutine MPIMortarExchangeAsync_MappedScalar2D(this, mesh)

GPU-resident analogue of the base-class mortar message posting; messages are posted on device memory (GPU-aware MPI), following MPIExchangeAsync.

Arguments

TypeIntentOptionalAttributesName
class(MappedScalar2D), intent(inout) :: this
type(Mesh2D), intent(inout) :: mesh

public subroutine MappedDGGradient_MappedScalar2D(this, df)

Arguments

TypeIntentOptionalAttributesName
class(MappedScalar2D), intent(inout) :: this
type(c_ptr), intent(inout) :: df

public subroutine MappedGradient_MappedScalar2D(this, df)

Calculates the gradient of a function using the strong form of the gradient in mapped coordinates.

Arguments

TypeIntentOptionalAttributesName
class(MappedScalar2D), intent(inout) :: this
type(c_ptr), intent(out) :: df

public subroutine MortarExchange_MappedScalar2D(this, mesh)

GPU implementation of the mortar exchange (see the base class for the algorithm) : traces are staged, reoriented, restricted, and projected in device memory with the SELF_Mortar kernels.

Arguments

TypeIntentOptionalAttributesName
class(MappedScalar2D), intent(inout) :: this
type(Mesh2D), intent(inout) :: mesh

public subroutine Resize_MappedScalar2D(this, interp, nVar, nElem)

Rebind to a new element count, reusing host pools and device buffers where they fit (AMR Stage 6b), and without uploading zeros the way Init does.

Read more…

Arguments

TypeIntentOptionalAttributesName
class(MappedScalar2D), intent(inout) :: this
type(Lagrange), intent(in), target:: interp
integer, intent(in) :: nVar
integer, intent(in) :: nElem

public subroutine SetInteriorFromEquation_MappedScalar2D(this, geometry, time)

Sets the this % interior attribute using the eqn attribute, geometry (for physical positions), and provided simulation time.

Arguments

TypeIntentOptionalAttributesName
class(MappedScalar2D), intent(inout) :: this
type(SEMQuad), intent(in) :: geometry
real(kind=prec), intent(in) :: time

public subroutine SideExchangeFinish_MappedScalar2D(this, mesh)

Complete the aggregated halo exchange started by SideExchangeStart: wait on the persistent requests and unpack the received traces into extBoundary, applying side flips. The host blocks in MPI_Waitall (which also drives MPI progress) while previously launched device kernels continue to execute. No-op if no exchange is in flight.

Arguments

TypeIntentOptionalAttributesName
class(MappedScalar2D), intent(inout) :: this
type(Mesh2D), intent(inout) :: mesh

public subroutine SideExchangeStart_MappedScalar2D(this, mesh, nactive)

Begin the aggregated halo exchange and launch the local (same-rank) side exchange kernel.

Read more…

Arguments

TypeIntentOptionalAttributesName
class(MappedScalar2D), intent(inout) :: this
type(Mesh2D), intent(inout) :: mesh
integer, intent(in), optional :: nactive

public subroutine SideExchange_MappedScalar2D(this, mesh)

Arguments

TypeIntentOptionalAttributesName
class(MappedScalar2D), intent(inout) :: this
type(Mesh2D), intent(inout) :: mesh