MODULE cycvar
USE kindef
IMPLICIT NONE
SAVE
INTEGER (INT4) :: NCYCLE, IDTCAL, MTSTEP, ITSTEP, JTSTEP, KTSTEP
INTEGER (INT4) :: NCYBEG, NRSCYC, MDELS, JDELS
REAL (REAL8) :: TIMB, TIME, DLTB, DLTH, DLTE, DLTMIN, DLTMAX
REAL (REAL8) :: DTFRAC, SSSTEP, SSSTAB, DRSTAB, VLSTAB, DVSTAB
REAL (REAL8) :: DLTHOL, CSSTEP, DTMIN
INTEGER (INT4) :: FCTSTEP
INTEGER (INT4) :: NCYCLEEUL, IDTCALEUL, MTSTEPEUL, ITSTEPEUL, JTSTEPEUL,
KTSTEPEUL
INTEGER (INT4) :: NCYBEGEUL, NRSCYCEUL, MDELSEUL, JDELSEUL
REAL (REAL8) :: TIMBEUL, TIMEEUL, DLTBEUL, DLTHEUL, DLTEEUL, DLTMINEUL, DLTMAXEUL
REAL (REAL8) :: DTFRACEUL, SSSTEPEUL, SSSTABEUL, DRSTABEUL, VLSTABEUL,
DVSTABEUL
REAL (REAL8) :: DLTHOLEUL, CSSTEPEUL, DTMINEUL
| NCYCLE | Current cycle number |
| IDTCAL | Not available |
| MTSTEP | Part number controlling timestep |
| ITSTEP | I-index controlling timestep |
| JTSTEP | J-index controlling timestep |
| KTSTEP | Not used in 2D |
| NCYBEG | Starting cycle for current segment of calculation |
| NRSCYC | Cycle number for which SAVE file is to be loaded (passed to GETRST) |
| TIMB | Time at beginning of cycle: t(n) |
| TIME | Time at end of cycle: t(n+1) |
| DLTB | Timestep from t(n-1/2) to t(n+1/2) |
| DLTH | Timestep from t(n) to t(n+1) |
| DLTE | Timestep from t(n+1/2) to t(n+3/2) |
| DLTMIN | Minimum timestep |
| DLTMAX | Maximum timestep |
| DTFRAC | Timestep stability factor |
| SSSTEP | Stability timestep |
| SSSTAB | Soundspeed in cell controlling timestep |
| DRSTAB | Cell dimension in cell controlling timestep |
| VLSTAB | Cell velocity in cell controlling timestep |
| DVSTAB | Cell divergence in cell controlling timestep |
| DLTHOL | Previous timestep, DLTH |