MODULE gloopt USE kindef IMPLICIT NONE SAVE INTEGER (INT4) :: NETTYP, NTALG, IFMULT, NELPMX, NELOVF, NHRVER INTEGER (INT4) :: IFSMLS, IFDIMS, IFCUT, IFDIV, IFFOR, IFDEV INTEGER (INT4) :: IFDEN, IFSPHA, IFSPHD, IFVISS, IFALLQ, IFSMLD INTEGER (INT4) :: IFNOD, IFSPHK, NTMSTP, NLQEXP, IDENUP, IFSUB, IFREADSUB REAL (REAL8) :: GRAVX, GRAVY, GRAVZ, QQUAD, QLIN, CHOUR, CTANG REAL (REAL8) :: RADCUT, VELCUT, SSPCUT, FVCUT, RHOCUT, PRESCUT, VELLIM REAL (REAL8) :: RELAX, VTSF, RHOMN, SPHDLT, VELCOR, SSPMAX REAL (REAL8) :: QQUADS, QLINS, QCORRS, SMLFAC, RHOMAX, TEMLIM, JOITOL END MODULE gloopt
NETTYP | Type of Energy Transport (ALE/Euler) |
NTALG | Type of Mass Transport algorithm (Euler) |
GRAVX | X-component of gravity |
GRAVY | Y-component of gravity |
QQUAD | Quadratic viscosity coefficient |
QLIN | Linear viscosity coefficient |
CHOUR | Hourglass viscosity coefficient |
CTANG | Anti-tangle constant |
RADCUT | Radius cutoff (axial symmetry only) |
VELCUT | Velocity minimum cutoff |
SSPCUT | Soundspeed minimum cutoff |
FVCUT | Covered volume fraction cutoff(rezone) |
VELLIM | Velocity maximum limit |
RELAX | Relaxation parameter (quasi-static damping) |