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 | Coordinates of four corners of cell I,J at t(n+1) |
UXi | Velocity components of four corners of cell I,J at t(n+1/2) |
| 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 |