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 |