Mesh3D Derived Type

  1. SELF_Mesh_3D.f90
  2. SELF_Mesh_3D
  3. Mesh3D

type, public, extends(Mesh3D_t) :: Mesh3D


Inherits

type~~mesh3d~2~~InheritsGraph type~mesh3d~2 Mesh3D c_ptr c_ptr type~mesh3d~2->c_ptr sideInfo_gpu type~mesh3d_t Mesh3D_t type~mesh3d~2->type~mesh3d_t type~semmesh SEMMesh type~mesh3d_t->type~semmesh type~domaindecomposition DomainDecomposition type~semmesh->type~domaindecomposition decomp type~domaindecomposition_t DomainDecomposition_t type~domaindecomposition->type~domaindecomposition_t

Contents

Variables

Type-Bound Procedures

Source Code

Mesh3D

Components

TypeVisibilityAttributesNameInitial
character(len=255), public, allocatable:: BCNames(:)
integer, public, pointer, dimension(:,:):: BCType
integer, public, pointer, dimension(:,:):: CGNSCornerMap
integer, public, pointer, dimension(:,:):: CGNSSideMap
type(DomainDecomposition), public :: decomp
integer, public, pointer, dimension(:,:):: elemInfo
integer, public, allocatable:: elemMaterial(:)
integer, public, pointer, dimension(:,:,:,:):: globalNodeIDs
character(len=SELF_MESH_MATNAME_LENGTH), public, allocatable:: materialNames(:)
integer, public :: nBCs
integer, public :: nCornerNodes
integer, public :: nElem
integer, public :: nGeo
integer, public :: nGlobalElem
integer, public :: nMaterials =0
integer, public :: nNodes
integer, public :: nSides
integer, public :: nUniqueNodes
integer, public :: nUniqueSides
real(kind=prec), public, pointer, dimension(:,:,:,:,:):: nodeCoords
integer, public :: quadrature
integer, public, pointer, dimension(:,:,:):: sideInfo
type(c_ptr), public :: sideInfo_gpu
integer, public, pointer, dimension(:,:):: sideMap

Type-Bound Procedures

procedure, public :: Free => Free_Mesh3D

  • public subroutine Free_Mesh3D(this)

    Arguments

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

procedure, public :: Init => Init_Mesh3D

  • public subroutine Init_Mesh3D(this, nGeo, nElem, nSides, nNodes, nBCs)

    Arguments

    TypeIntentOptionalAttributesName
    class(Mesh3D), intent(inout) :: this
    integer, intent(in) :: nGeo
    integer, intent(in) :: nElem
    integer, intent(in) :: nSides
    integer, intent(in) :: nNodes
    integer, intent(in) :: nBCs

generic, public :: PeriodicStructuredMesh => UniformPeriodicMesh_Mesh3D_t

  • public subroutine UniformPeriodicMesh_Mesh3D_t(this, nxPerTile, nyPerTile, nzPerTile, nTileX, nTileY, nTileZ, dx, dy, dz, comm)

    Create a fully triply-periodic structured hexahedral mesh and store it in SELF's unstructured mesh format. Element geometry and ordering are identical to UniformStructuredMesh; the only difference is connectivity. The faces on the six domain boundaries are wired as interior faces whose neighbor is the element on the opposite side of the domain. This realises the triply periodic box T^3 = [0,Lx] x [0,Ly] x [0,Lz] required by, e.g., the Arnold-Beltrami-Childress (ABC) flow benchmark.

    Read more…

    Arguments

    TypeIntentOptionalAttributesName
    class(Mesh3D_t), intent(out) :: this
    integer, intent(in) :: nxPerTile
    integer, intent(in) :: nyPerTile
    integer, intent(in) :: nzPerTile
    integer, intent(in) :: nTileX
    integer, intent(in) :: nTileY
    integer, intent(in) :: nTileZ
    real(kind=prec), intent(in) :: dx
    real(kind=prec), intent(in) :: dy
    real(kind=prec), intent(in) :: dz
    integer, intent(in), optional :: comm

procedure, public :: Read_HOHQMesh => Read_HOHQMesh_Mesh3D_t

  • public subroutine Read_HOHQMesh_Mesh3D_t(this, meshFile, comm)

    Reader for HOHQMesh 3-D (hexahedral) text mesh files in the ISM and ISM-MM formats, as written by HOHQMesh's WriteISMHexMeshFile (Source/3DSource/Mesh3DOutputMethods.f90). Unlike the 2-D writer, the 3-D writer emits NO format header line: the first line is always the count line "nNodes nElems polyOrder". The two variants differ only in the per-element corner-node line: * ISM : 8 corner-node ids * ISM-MM : 8 corner-node ids followed by a material-name string The variant is auto-detected from the presence of the 9th token.

    Read more…

    Arguments

    TypeIntentOptionalAttributesName
    class(Mesh3D_t), intent(out) :: this
    character, intent(in) :: meshFile
    integer, intent(in), optional :: comm

procedure, public :: Read_HOPr => Read_HOPr_Mesh3D_t

  • public subroutine Read_HOPr_Mesh3D_t(this, meshFile, comm)

    Arguments

    TypeIntentOptionalAttributesName
    class(Mesh3D_t), intent(out) :: this
    character, intent(in) :: meshFile
    integer, intent(in), optional :: comm

procedure, public :: RecalculateFlip => RecalculateFlip_Mesh3D_t

procedure, public :: ResetBoundaryConditionType => ResetBoundaryConditionType_Mesh3D_t

  • public subroutine ResetBoundaryConditionType_Mesh3D_t(this, bcid)

    This method can be used to reset all of the boundary elements boundary condition type to the desired value.

    Read more…

    Arguments

    TypeIntentOptionalAttributesName
    class(Mesh3D_t), intent(inout) :: this
    integer, intent(in) :: bcid

generic, public :: StructuredMesh => UniformStructuredMesh_Mesh3D_t

  • public subroutine UniformStructuredMesh_Mesh3D_t(this, nxPerTile, nyPerTile, nzPerTile, nTileX, nTileY, nTileZ, dx, dy, dz, bcids, comm)

    Create a structured mesh and store it in SELF's unstructured mesh format. The mesh is created in tiles of size (tnx,tny,tnz). Tiling is used to determine the element ordering.

    Read more…

    Arguments

    TypeIntentOptionalAttributesName
    class(Mesh3D_t), intent(out) :: this
    integer, intent(in) :: nxPerTile
    integer, intent(in) :: nyPerTile
    integer, intent(in) :: nzPerTile
    integer, intent(in) :: nTileX
    integer, intent(in) :: nTileY
    integer, intent(in) :: nTileZ
    real(kind=prec), intent(in) :: dx
    real(kind=prec), intent(in) :: dy
    real(kind=prec), intent(in) :: dz
    integer, intent(in) :: bcids(1:6)
    integer, intent(in), optional :: comm

procedure, public :: UpdateDevice => UpdateDevice_Mesh3D

  • public subroutine UpdateDevice_Mesh3D(this)

    Arguments

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

procedure, public :: Write_Mesh => Write_Mesh3D_t

  • public subroutine Write_Mesh3D_t(this, meshFile)

    Arguments

    TypeIntentOptionalAttributesName
    class(Mesh3D_t), intent(inout) :: this
    character, intent(in) :: meshFile

Source Code

  type,extends(Mesh3D_t) :: Mesh3D
    type(c_ptr) :: sideInfo_gpu

  contains
    procedure,public :: Init => Init_Mesh3D
    procedure,public :: Free => Free_Mesh3D
    procedure,public :: UpdateDevice => UpdateDevice_Mesh3D

  endtype Mesh3D