| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| 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 | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(SEMQuad), | intent(inout) | :: | myGeom |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(SEMQuad), | intent(inout) | :: | myGeom |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(SEMQuad), | intent(inout) | :: | myGeom |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(SEMQuad), | intent(inout) | :: | myGeom | |||
| type(Mesh2D), | intent(in) | :: | mesh |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(SEMQuad), | intent(out) | :: | myGeom | |||
| type(Lagrange), | intent(in), | pointer | :: | interp | ||
| integer, | intent(in) | :: | nElem |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(SEMQuad), | intent(inout) | :: | this | |||
| character, | intent(in) | :: | filename |
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