MappedVector3D_t Derived Type

  1. SELF_MappedVector_3D_t.f90
  2. SELF_MappedVector_3D_t
  3. MappedVector3D_t

type, public, extends(Vector3D) :: MappedVector3D_t


Inherits

type~~mappedvector3d_t~~InheritsGraph type~mappedvector3d_t MappedVector3D_t type~semhex SEMHex type~mappedvector3d_t->type~semhex geometry type~vector3d Vector3D type~mappedvector3d_t->type~vector3d type~semhex->type~vector3d x, nHat, xMesh type~tensor3d Tensor3D type~semhex->type~tensor3d dxds, dsdx type~lagrange Lagrange type~semhex->type~lagrange meshToModel type~scalar3d Scalar3D type~semhex->type~scalar3d nScale, J type~vector3d_t Vector3D_t type~vector3d->type~vector3d_t c_ptr c_ptr type~vector3d->c_ptr interior_gpu, boundary_gpu, extBoundary_gpu, avgBoundary_gpu, boundaryNormal_gpu type~tensor3d->c_ptr interior_gpu, boundary_gpu, extBoundary_gpu type~tensor3d_t Tensor3D_t type~tensor3d->type~tensor3d_t type~self_dataobj SELF_DataObj type~vector3d_t->type~self_dataobj type~lagrange->c_ptr qWeights_gpu, iMatrix_gpu, dMatrix_gpu, dgMatrix_gpu, dSplitMatrix_gpu, bMatrix_gpu, mortarR_gpu, mortarP_gpu type~lagrange_t Lagrange_t type~lagrange->type~lagrange_t type~scalar3d->c_ptr interior_gpu, boundary_gpu, boundarynormal_gpu, extBoundary_gpu, avgBoundary_gpu type~scalar3d_t Scalar3D_t type~scalar3d->type~scalar3d_t type~tensor3d_t->type~self_dataobj type~self_dataobj->type~lagrange interp type~metadata Metadata type~self_dataobj->type~metadata meta EquationParser EquationParser type~self_dataobj->EquationParser eqn type~scalar3d_t->type~self_dataobj

Inherited by

type~~mappedvector3d_t~~InheritedByGraph type~mappedvector3d_t MappedVector3D_t type~mappedvector3d MappedVector3D type~mappedvector3d->type~mappedvector3d_t type~mappedvector3d~2 MappedVector3D type~mappedvector3d~2->type~mappedvector3d_t type~dgmodel3d_t DGModel3D_t type~dgmodel3d_t->type~mappedvector3d solutionGradient, flux type~esatmo3d_t ESAtmo3D_t type~esatmo3d_t->type~mappedvector3d diffFlux type~ecdgmodel3d ECDGModel3D type~esatmo3d_t->type~ecdgmodel3d type~dgmodel3d DGModel3D type~dgmodel3d->type~dgmodel3d_t type~esatmo3d~2 ESAtmo3D type~esatmo3d~2->type~esatmo3d_t type~dgmodel3d~2 DGModel3D type~dgmodel3d~2->type~dgmodel3d_t type~esatmo3d ESAtmo3D type~esatmo3d->type~esatmo3d_t type~elementset3d ElementSet3D type~elementset3d->type~dgmodel3d model type~nulldgmodel3d_t NullDGModel3D_t type~nulldgmodel3d_t->type~dgmodel3d type~lineareuler3d_t LinearEuler3D_t type~lineareuler3d_t->type~dgmodel3d type~ecdgmodel3d_t ECDGModel3D_t type~ecdgmodel3d_t->type~dgmodel3d type~advection_diffusion_3d_t advection_diffusion_3d_t type~advection_diffusion_3d_t->type~dgmodel3d type~multisetmodel3d_t MultiSetModel3D_t type~multisetmodel3d_t->type~elementset3d sets type~nulldgmodel3d NullDGModel3D type~nulldgmodel3d->type~nulldgmodel3d_t type~lineareuler3d~2 LinearEuler3D type~lineareuler3d~2->type~lineareuler3d_t type~nulldgmodel3d~2 NullDGModel3D type~nulldgmodel3d~2->type~nulldgmodel3d_t type~lineareuler3d LinearEuler3D type~lineareuler3d->type~lineareuler3d_t type~ecdgmodel3d->type~ecdgmodel3d_t type~ecdgmodel3d~2 ECDGModel3D type~ecdgmodel3d~2->type~ecdgmodel3d_t type~advection_diffusion_3d advection_diffusion_3d type~advection_diffusion_3d->type~advection_diffusion_3d_t type~advection_diffusion_3d~2 advection_diffusion_3d type~advection_diffusion_3d~2->type~advection_diffusion_3d_t type~multisetmodel3d MultiSetModel3D type~multisetmodel3d->type~multisetmodel3d_t type~ecadvection3d_t ECAdvection3D_t type~ecadvection3d_t->type~ecdgmodel3d type~multisetmodel3d~2 MultiSetModel3D type~multisetmodel3d~2->type~multisetmodel3d_t type~ecadvection3d ECAdvection3D type~ecadvection3d->type~ecadvection3d_t type~ecadvection3d~2 ECAdvection3D type~ecadvection3d~2->type~ecadvection3d_t

Contents

Variables

Type-Bound Procedures

Source Code

MappedVector3D_t

Components

TypeVisibilityAttributesNameInitial
integer, public :: M
integer, public :: N
integer(kind=c_size_t), public :: alloc_avgBoundary =0
integer(kind=c_size_t), public :: alloc_boundary =0
integer(kind=c_size_t), public :: alloc_boundaryNormal =0
integer(kind=c_size_t), public :: alloc_extBoundary =0
integer(kind=c_size_t), public :: alloc_interior =0
real(kind=prec), public, allocatable, dimension(:,:,:,:,:,:):: anisoMortarBuff
real(kind=prec), public, pointer, contiguous, dimension(:,:,:,:,:,:):: avgBoundary
type(c_ptr), public :: avgBoundary_gpu
character(len=3), public :: backend ="gpu"
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() is unchanged while Resize can reuse the storage across an adaptation epoch. Nothing should index the pools directly.
type(c_ptr), public :: boundaryNormal_gpu

Bytes currently allocated for each device buffer, so Resize can reuse them (Stage 6b).
type(c_ptr), public :: boundary_gpu
type(EquationParser), public, allocatable:: eqn(:)
real(kind=prec), public, pointer, contiguous, dimension(:,:,:,:,:,:):: extBoundary
type(c_ptr), public :: extBoundary_gpu
type(SEMHex), public, pointer:: geometry=> null()
logical, public :: geometry_associated =.false.
real(kind=prec), public, pointer, contiguous, dimension(:,:,:,:,:,:):: interior
type(c_ptr), public :: interior_gpu
type(Lagrange), public, pointer:: interp
type(Metadata), public, allocatable:: meta(:)
real(kind=prec), public, allocatable, dimension(:,:,:,:,:,:):: mortarBuff
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 :: AnisoMortarExchange => AnisoMortarExchange_MappedVector3D_t

  • public subroutine AnisoMortarExchange_MappedVector3D_t(this, mesh)

    Fills the extBoundary attribute on all faces participating in an anisotropic mortar interface; vector analogue of the scalar AnisoMortarExchange (see MappedScalar3D_t for the algorithm description).

    Arguments

    TypeIntentOptionalAttributesName
    class(MappedVector3D_t), intent(inout) :: this
    type(Mesh3D), intent(inout) :: mesh

procedure, public :: AnisoMortarFluxCollect => AnisoMortarFluxCollect_MappedVector3D_t

procedure, private :: ApplyFlip => ApplyFlip_MappedVector3D_t

procedure, public :: AssociateGeometry => AssociateGeometry_MappedVector3D_t

procedure, public :: AverageSides => AverageSides_Vector3D

procedure, public :: BoundaryInterp => BoundaryInterp_Vector3D

generic, public :: Curl => Curl_Vector3D_t

  • public subroutine Curl_Vector3D_t(this, curlf)

    Arguments

    TypeIntentOptionalAttributesName
    class(Vector3D_t), intent(in) :: this
    real(kind=prec), intent(out) :: curlf(1:this%N+1,1:this%N+1,1:this%N+1,1:this%nelem,1:this%nvar,1:3)

procedure, public :: DissociateGeometry => DissociateGeometry_MappedVector3D_t

generic, public :: Divergence => Divergence_Vector3D_t, Divergence_Vector3D

  • public subroutine Divergence_Vector3D_t(this, df)

    Arguments

    TypeIntentOptionalAttributesName
    class(Vector3D_t), intent(in) :: this
    real(kind=prec), intent(out) :: df(1:this%N+1,1:this%N+1,1:this%N+1,1:this%nelem,1:this%nvar)

  • public subroutine Divergence_Vector3D(this, df)

    Arguments

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

procedure, public :: Free => Free_Vector3D

  • public subroutine Free_Vector3D(this)

    Arguments

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

generic, public :: Gradient => Gradient_Vector3D_t, Gradient_Vector3D

  • public subroutine Gradient_Vector3D_t(this, df)

    Arguments

    TypeIntentOptionalAttributesName
    class(Vector3D_t), intent(in) :: this
    real(kind=prec), intent(out) :: df(1:this%N+1,1:this%N+1,1:this%N+1,1:this%nelem,1:this%nvar,1:3,1:3)

  • public subroutine Gradient_Vector3D(this, df)

    Arguments

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

generic, public :: GridInterp => GridInterp_Vector3D_t, GridInterp_Vector3D

  • public subroutine GridInterp_Vector3D_t(this, f)

    Arguments

    TypeIntentOptionalAttributesName
    class(Vector3D_t), intent(in) :: this
    real(kind=prec), intent(out) :: f(1:this%M+1,1:this%M+1,1:this%M+1,1:this%nelem,1:this%nvar,1:3)

    (Output) Array of function values, defined on the target grid

  • public subroutine GridInterp_Vector3D(this, f)

    Arguments

    TypeIntentOptionalAttributesName
    class(Vector3D), intent(inout) :: this
    type(c_ptr), intent(inout) :: f

procedure, public :: Init => Init_Vector3D

  • public subroutine Init_Vector3D(this, interp, nVar, nElem)

    Arguments

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

procedure, private :: MPIAnisoMortarExchangeAsync => MPIAnisoMortarExchangeAsync_MappedVector3D_t

  • public subroutine MPIAnisoMortarExchangeAsync_MappedVector3D_t(this, mesh)

    Posts the point-to-point messages required for anisotropic mortar interfaces whose big and small elements reside on different ranks; vector analogue of the scalar MPIAnisoMortarExchangeAsync with one message per direction component.

    Arguments

    TypeIntentOptionalAttributesName
    class(MappedVector3D_t), intent(inout) :: this
    type(Mesh3D), intent(inout) :: mesh

procedure, private :: MPIAnisoMortarFluxAsync => MPIAnisoMortarFluxAsync_MappedVector3D_t

  • public subroutine MPIAnisoMortarFluxAsync_MappedVector3D_t(this, mesh)

    Posts the one-directional messages for AnisoMortarFluxCollect : each remote small face sends its boundaryNormal trace to the big face's rank.

    Arguments

    TypeIntentOptionalAttributesName
    class(MappedVector3D_t), intent(inout) :: this
    type(Mesh3D), intent(inout) :: mesh

procedure, private :: MPIExchangeAsync => MPIExchangeAsync_MappedVector3D_t

procedure, private :: MPIMortarExchangeAsync => MPIMortarExchangeAsync_MappedVector3D_t

  • public subroutine MPIMortarExchangeAsync_MappedVector3D_t(this, mesh)

    Posts the point-to-point messages required for mortar interfaces whose big and small elements reside on different ranks; vector analogue of the scalar MPIMortarExchangeAsync with one message per direction component.

    Arguments

    TypeIntentOptionalAttributesName
    class(MappedVector3D_t), intent(inout) :: this
    type(Mesh3D), intent(inout) :: mesh

procedure, private :: MPIMortarFluxAsync => MPIMortarFluxAsync_MappedVector3D_t

  • public subroutine MPIMortarFluxAsync_MappedVector3D_t(this, mesh)

    Posts the one-directional messages for MortarFluxCollect : each remote small face sends its boundaryNormal trace to the big face's rank.

    Arguments

    TypeIntentOptionalAttributesName
    class(MappedVector3D_t), intent(inout) :: this
    type(Mesh3D), intent(inout) :: mesh

procedure, public :: MapArrays => MapArrays_Vector3D_t

  • public subroutine MapArrays_Vector3D_t(this, Np, nVar, nElem)

    Size the backing pools for (Np,nVar,nElem) and remap the public arrays onto them at the exact logical shape. See SELF_DataPool for why this is done with pointer remapping rather than by over-allocating the element dimension.

    Arguments

    TypeIntentOptionalAttributesName
    class(Vector3D_t), intent(inout) :: this
    integer, intent(in) :: Np
    integer, intent(in) :: nVar
    integer, intent(in) :: nElem

generic, public :: MappedDGDivergence => MappedDGDivergence_MappedVector3D_t

  • public subroutine MappedDGDivergence_MappedVector3D_t(this, df)

    Computes the divergence of a 3-D vector using the weak form On input, the attribute of the vector is assigned and the attribute is set to the physical directions of the vector. This method will project the vector onto the contravariant basis vectors.

    Arguments

    TypeIntentOptionalAttributesName
    class(MappedVector3D_t), intent(in) :: this
    real(kind=prec), intent(out) :: df(1:this%N+1,1:this%N+1,1:this%N+1,1:this%nelem,1:this%nvar)

procedure, private :: MappedDGDivergence_MappedVector3D_t

  • public subroutine MappedDGDivergence_MappedVector3D_t(this, df)

    Computes the divergence of a 3-D vector using the weak form On input, the attribute of the vector is assigned and the attribute is set to the physical directions of the vector. This method will project the vector onto the contravariant basis vectors.

    Arguments

    TypeIntentOptionalAttributesName
    class(MappedVector3D_t), intent(in) :: this
    real(kind=prec), intent(out) :: df(1:this%N+1,1:this%N+1,1:this%N+1,1:this%nelem,1:this%nvar)

generic, public :: MappedDivergence => MappedDivergence_MappedVector3D_t

procedure, private :: MappedDivergence_MappedVector3D_t

procedure, public :: MortarExchange => MortarExchange_MappedVector3D_t

  • public subroutine MortarExchange_MappedVector3D_t(this, mesh)

    Fills the extBoundary attribute on all faces participating in a 2:1 nonconforming (mortar) interface; vector analogue of the scalar MortarExchange (see MappedScalar3D_t for the algorithm description).

    Arguments

    TypeIntentOptionalAttributesName
    class(MappedVector3D_t), intent(inout) :: this
    type(Mesh3D), intent(inout) :: mesh

procedure, public :: MortarFluxCollect => MortarFluxCollect_MappedVector3D_t

  • public subroutine MortarFluxCollect_MappedVector3D_t(this, mesh)

    Replaces the big-face boundaryNormal trace on each mortar interface with the L2 projection of the four small faces' boundaryNormal traces.

    Read more…

    Arguments

    TypeIntentOptionalAttributesName
    class(MappedVector3D_t), intent(inout) :: this
    type(Mesh3D), intent(inout) :: mesh

procedure, public :: Resize => Resize_MappedVector3D_t

  • public subroutine Resize_MappedVector3D_t(this, interp, nVar, nElem)

    Rebind to a new element count, reusing storage where it fits (AMR Stage 6b). See Resize_MappedScalar3D_t for why the mortar staging buffer is invalidated rather than resized.

    Arguments

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

procedure, public :: SetDescription => SetDescription_DataObj

  • public subroutine SetDescription_DataObj(this, ivar, description)

    Set the description of the ivar-th variable

    Arguments

    TypeIntentOptionalAttributesName
    class(SELF_DataObj), intent(inout) :: this
    integer, intent(in) :: ivar
    character, intent(in) :: description

generic, public :: SetEquation => SetEquation_DataObj, SetEquation_Vector3D_t

  • public subroutine SetEquation_DataObj(this, ivar, eqnChar)

    Sets the equation parser for the ivar-th variable

    Arguments

    TypeIntentOptionalAttributesName
    class(SELF_DataObj), intent(inout) :: this
    integer, intent(in) :: ivar
    character, intent(in) :: eqnChar

  • public subroutine SetEquation_Vector3D_t(this, idir, ivar, eqnChar)

    Sets the equation parser for the idir direction and ivar-th variable

    Arguments

    TypeIntentOptionalAttributesName
    class(Vector3D_t), intent(inout) :: this
    integer, intent(in) :: idir
    integer, intent(in) :: ivar
    character, intent(in) :: eqnChar

procedure, public :: SetInteriorFromEquation => SetInteriorFromEquation_MappedVector3D_t

  • public subroutine SetInteriorFromEquation_MappedVector3D_t(this, geometry, time)

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

    Arguments

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

procedure, public :: SetName => SetName_DataObj

  • public subroutine SetName_DataObj(this, ivar, name)

    Set the name of the ivar-th variable

    Arguments

    TypeIntentOptionalAttributesName
    class(SELF_DataObj), intent(inout) :: this
    integer, intent(in) :: ivar
    character, intent(in) :: name

procedure, public :: SetUnits => SetUnits_DataObj

  • public subroutine SetUnits_DataObj(this, ivar, units)

    Set the units of the ivar-th variable

    Arguments

    TypeIntentOptionalAttributesName
    class(SELF_DataObj), intent(inout) :: this
    integer, intent(in) :: ivar
    character, intent(in) :: units

procedure, public :: SideExchange => SideExchange_MappedVector3D_t

procedure, public :: UpdateDevice => UpdateDevice_Vector3D

procedure, public :: UpdateHost => UpdateHost_Vector3D

generic, public :: WriteHDF5 => WriteHDF5_MPI_Vector3D_t, WriteHDF5_Vector3D_t

  • public subroutine WriteHDF5_MPI_Vector3D_t(this, fileId, group, elemoffset, nglobalelem)

    Arguments

    TypeIntentOptionalAttributesName
    class(Vector3D_t), intent(in) :: this
    integer(kind=HID_T), intent(in) :: fileId
    character, intent(in) :: group
    integer, intent(in) :: elemoffset
    integer, intent(in) :: nglobalelem

  • public subroutine WriteHDF5_Vector3D_t(this, fileId, group)

    Arguments

    TypeIntentOptionalAttributesName
    class(Vector3D_t), intent(in) :: this
    integer(kind=HID_T), intent(in) :: fileId
    character, intent(in) :: group

Source Code

  type,extends(Vector3D),public :: MappedVector3D_t

    ! Mortar exchange work array, allocated on first use for meshes with 2:1
    ! nonconforming interfaces; same slot layout as MappedScalar3D_t%mortarBuff with a
    ! trailing direction index. MortarFluxCollect stages the boundaryNormal integrand
    ! in direction slot 1.
    real(prec),allocatable,dimension(:,:,:,:,:,:) :: mortarBuff
    ! Anisotropic mortar work array; the slot layout of MappedScalar3D_t%anisoMortarBuff
    ! with a trailing direction index. AnisoMortarFluxCollect stages the boundaryNormal
    ! integrand in direction slot 1.
    real(prec),allocatable,dimension(:,:,:,:,:,:) :: anisoMortarBuff

    logical :: geometry_associated = .false.
    type(SEMHex),pointer :: geometry => null()
  contains

    procedure,public :: AssociateGeometry => AssociateGeometry_MappedVector3D_t
    procedure,public :: DissociateGeometry => DissociateGeometry_MappedVector3D_t

    procedure,public :: SideExchange => SideExchange_MappedVector3D_t
    procedure,public :: MortarExchange => MortarExchange_MappedVector3D_t
    procedure,private :: MPIMortarExchangeAsync => MPIMortarExchangeAsync_MappedVector3D_t
    procedure,public :: MortarFluxCollect => MortarFluxCollect_MappedVector3D_t
    procedure,private :: MPIMortarFluxAsync => MPIMortarFluxAsync_MappedVector3D_t
    procedure,public :: AnisoMortarExchange => AnisoMortarExchange_MappedVector3D_t
    procedure,private :: MPIAnisoMortarExchangeAsync => MPIAnisoMortarExchangeAsync_MappedVector3D_t
    procedure,public :: AnisoMortarFluxCollect => AnisoMortarFluxCollect_MappedVector3D_t
    procedure,private :: MPIAnisoMortarFluxAsync => MPIAnisoMortarFluxAsync_MappedVector3D_t

    generic,public :: MappedDivergence => MappedDivergence_MappedVector3D_t
    procedure,private :: MappedDivergence_MappedVector3D_t

    generic,public :: MappedDGDivergence => MappedDGDivergence_MappedVector3D_t
    procedure,private :: MappedDGDivergence_MappedVector3D_t

    procedure,private :: MPIExchangeAsync => MPIExchangeAsync_MappedVector3D_t
    procedure,private :: ApplyFlip => ApplyFlip_MappedVector3D_t

    procedure,public :: Resize => Resize_MappedVector3D_t

    procedure,public :: SetInteriorFromEquation => SetInteriorFromEquation_MappedVector3D_t

    !procedure,public :: WriteTecplot => WriteTecplot_MappedVector3D_t

  endtype MappedVector3D_t