5.4. GLOOPT, Global Options

      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)