5.8. LOCELM, Element Quantities

Module locelm includes variables for the currently calculated cell. Applicable to user subroutines types 3 and 5.

      MODULE locelm
      USE kindef
      IMPLICIT NONE
      SAVE
      INTEGER (INT4) ::    IJK, IMJMKM,  IJMKM,  IJKM,  IMJKM,  IMJMK
      INTEGER (INT4) ::   IJMK,   IIJK,   IMJK,   IMJ,   IMJM, ISTATE
      INTEGER (INT4), DIMENSION (8)   :: LELM
      INTEGER (INT4), DIMENSION (4) ::IJKA
      REAL (REAL8)   ::  XE1, XE2, XE3, XE4, YE1, YE2, YE3, YE4
      REAL (REAL8)  ::   UX1, UX2, UX3, UX4, UY1, UY2, UY3, UY4
      REAL (REAL8)  ::  YBAR,   STHETA
      REAL (REAL8)  ::  CELMAS,  CDIAG, UXB, UYB
      REAL (REAL8)  :: TAE1,TAE2,TAE3,TAE4, AREAE
      REAL (REAL8)   ::   EDIM,   DVOV,  WXROT, WYROT,  WZROT,   QOLD
      REAL (REAL8)   ::   VOLH,  URMAX,  UXBEG, UYBEG,  UZBEG
      REAL (REAL8)   ::   VDOV,   DSDE,   PSAV,  ESAV
      REAL (REAL8), DIMENSION (4),  TARGET ::  XEA,  YEA
      REAL (REAL8), DIMENSION (8)   :: XELM, YELM, ZELM
      REAL (REAL8), DIMENSION (8,3) :: AELM, BELM, CELM, UELM
      REAL (REAL8), DIMENSION (4,3) :: WELM
      END MODULE locelm
IJK

IJ index of (I,J)

IMJ

IJ index of (I-1,J)

IMJM

IJ index of (I-1,J-1)

IJKM

IJ index of (I,J-1)

XEi
YEi

Coordinates of four corners of cell I,J at t(n+1) 
(anti-clockwise from IJ) 

UXi 
UYi

Velocity components of four corners of cell I,J at t(n+1/2) 
(anti-clockwise from IJ)

YBAR

Average Y of four corners

DVOV

DV/V for cell

VDOV

(DV/DT)/V for cell

STHETA

Angle of rotation of cell

QOLD

Artificial viscosity

VOLH

Cell volume at t(n+1/2)

CELMAS

Cell mass

CDIAG

Longest diagonal of cell

EDIM

Cell dimension used to calculate timestep

UXB

X-velocity of (I,J) at start of cycle

UYB

Y-velocity of (I,J) at start of cycle

DSDE

Increment of distortional energy

TAEi

Cell area components at end of cycle

AREAE

Total cell area at end of cycle