SEMHex Derived Type

  1. SELF_Geometry_3D.f90
  2. SELF_Geometry_3D
  3. SEMHex

type, public :: SEMHex


Contents

Variables

Type-Bound Procedures

Source Code

SEMHex

Components

TypeVisibilityAttributesNameInitial
type(Scalar3D), public :: J
type(Tensor3D), public :: dsdx
type(Tensor3D), public :: dxds
integer, public :: nElem
type(Vector3D), public :: nHat
type(Scalar3D), public :: nScale
type(Vector3D), public :: x

Type-Bound Procedures

procedure, private :: CalculateContravariantBasis => CalculateContravariantBasis_SEMHex

procedure, public :: CalculateMetricTerms => CalculateMetricTerms_SEMHex

procedure, public :: Free => Free_SEMHex

  • public subroutine Free_SEMHex(myGeom)

    Arguments

    TypeIntentOptionalAttributesName
    class(SEMHex), intent(inout) :: myGeom

procedure, public :: GenerateFromMesh => GenerateFromMesh_SEMHex

procedure, public :: Init => Init_SEMHex

  • public subroutine Init_SEMHex(myGeom, interp, nElem)

    Arguments

    TypeIntentOptionalAttributesName
    class(SEMHex), intent(out) :: myGeom
    type(Lagrange), intent(in), pointer:: interp
    integer, intent(in) :: nElem

procedure, public :: WriteTecplot => WriteTecplot_SEMHex

  • public subroutine WriteTecplot_SEMHex(this, filename)

    Arguments

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

Source Code

  type,public :: SEMHex
    type(Vector3D) :: x ! Physical positions
    type(Tensor3D) :: dxds ! Covariant basis vectors
    type(Tensor3D) :: dsdx ! Contavariant basis vectors
    type(Vector3D) :: nHat ! Normal Vectors pointing across coordinate lines
    type(Scalar3D) :: nScale ! Boundary scale
    type(Scalar3D) :: J ! Jacobian of the transformation
    integer :: nElem

  contains

    procedure,public :: Init => Init_SEMHex
    procedure,public :: Free => Free_SEMHex
    procedure,public :: GenerateFromMesh => GenerateFromMesh_SEMHex
    procedure,public :: CalculateMetricTerms => CalculateMetricTerms_SEMHex
    procedure,private :: CalculateContravariantBasis => CalculateContravariantBasis_SEMHex
    procedure,public :: WriteTecplot => WriteTecplot_SEMHex

  endtype SEMHex