ElementConnectivityDefinitions Module



Variables

Type Visibility Attributes Name Initial
integer, public, parameter :: NODES_PER_FACE = 4
integer, public, parameter :: NODES_PER_ELEMENT = 8
integer, public, parameter :: FACES_PER_ELEMENT = 6
integer, public, parameter :: EDGES_PER_ELEMENT = 12

axisMap gives the element local coordinate number for the two directions on each face. The coordinate numbers are given by (xi,eta,zeta) = (1,2,3). For instance, the two coordinate directions on Face 1 are (xi,zeta).

integer, public, dimension(2,6) :: axisMap = RESHAPE((/1, 3, 1, 3, 1, 2, 2, 3, 1, 2, 2, 3/), (/2, 6/))
integer, public, parameter :: normalAxis(6) = [-2, 2, -3, 1, 3, -1]
integer, public, parameter :: neighborFaces(4,6) = reshape((/3, 4, 5, 6, 3, 4, 5, 6, 1, 2, 4, 6, 1, 2, 3, 5, 1, 2, 4, 6, 1, 2, 3, 5/), (/4, 6/))
integer, public, DIMENSION(4,6) :: localFaceNode = RESHAPE((/1, 2, 6, 5, 4, 3, 7, 8, 1, 2, 3, 4, 2, 3, 7, 6, 5, 6, 7, 8, 1, 4, 8, 5/), (/4, 6/))
integer, public, DIMENSION(2,12) :: localEdgeNode = RESHAPE((/1, 2, 2, 6, 5, 6, 1, 5, 4, 3, 3, 7, 8, 7, 4, 8, 1, 4, 2, 3, 6, 7, 5, 8/), (/2, 12/))
integer, public, parameter, DIMENSION(4,4) :: sideMap = RESHAPE((/ILLEG, -1, ILLEG, -2, 1, ILLEG, -2, ILLEG, ILLEG, 2, ILLEG, 1, 2, ILLEG, -1, ILLEG/), (/4, 4/))