SEMQuad Derived Type

  1. SELF_Geometry_2D.f90
  2. SELF_Geometry_2D
  3. SEMQuad

type, public :: SEMQuad


Contents

Variables

Type-Bound Procedures

Source Code

SEMQuad

Components

TypeVisibilityAttributesNameInitial
type(Scalar2D), public :: J
type(Tensor2D), public :: dsdx
type(Tensor2D), public :: dxds
integer, public :: nElem
type(Vector2D), public :: nHat
type(Scalar2D), public :: nScale
type(Vector2D), public :: x

Type-Bound Procedures

procedure, private :: CalculateContravariantBasis => CalculateContravariantBasis_SEMQuad

procedure, public :: CalculateMetricTerms => CalculateMetricTerms_SEMQuad

procedure, public :: Free => Free_SEMQuad

  • public subroutine Free_SEMQuad(myGeom)

    Arguments

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

procedure, public :: GenerateFromMesh => GenerateFromMesh_SEMQuad

procedure, public :: Init => Init_SEMQuad

  • public subroutine Init_SEMQuad(myGeom, interp, nElem)

    Arguments

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

procedure, public :: WriteTecplot => WriteTecplot_SEMQuad

  • public subroutine WriteTecplot_SEMQuad(this, filename)

    Arguments

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

Source Code

  type,public :: SEMQuad
    type(Vector2D) :: x ! Physical positions
    type(Tensor2D) :: dxds ! Covariant basis vectors
    type(Tensor2D) :: dsdx ! Contavariant basis vectors
    type(Vector2D) :: nHat ! Normal Vectors pointing across coordinate lines
    type(Scalar2D) :: nScale ! Boundary scale
    type(Scalar2D) :: J ! Jacobian of the transformation
    integer :: nElem
  contains

    procedure,public :: Init => Init_SEMQuad
    procedure,public :: Free => Free_SEMQuad
    procedure,public :: GenerateFromMesh => GenerateFromMesh_SEMQuad
    procedure,public :: CalculateMetricTerms => CalculateMetricTerms_SEMQuad
    procedure,private :: CalculateContravariantBasis => CalculateContravariantBasis_SEMQuad
    procedure,public :: WriteTecplot => WriteTecplot_SEMQuad

  endtype SEMQuad