## 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

Release 18.2 - © ANSYS, Inc. All rights reserved.