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