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 |