tstep_mod.F90

Go to the documentation of this file.

module tstep
  use kinds, only : dp
  use size_m
  implicit none

  real(DP) :: time,timef,fintim,timeio &
    ,dt,dtlag(10),dtinit,dtinvm,courno,ctarg &
    ,ab(10),bd(10),abmsh(10) &
    ,avdiff(ldimt1),avtran(ldimt1),volfld(0:ldimt1) &
    ,tolrel,tolabs,tolhdf,tolpdf,tolev,tolnl,prelax &
    ,tolps,tolhs,tolhr,tolhv,tolht(ldimt1),tolhe &
    ,vnrmh1,vnrmsm,vnrml2,vnrml8,vmean &
    ,tnrmh1(ldimt),tnrmsm(ldimt),tnrml2(ldimt) &
    ,tnrml8(ldimt),tmean(ldimt)


  real(DP) :: re_cell = 0._dp !>

  integer :: ifield,imesh,istep,nsteps,iostep,lastep,iocomm &
    ,instep &
    ,nab,nbd,nbdinp,ntaubd &
    ,nmxh,nmxp,nmxe,nmxnl,ninter &
    ,nelfld(0:ldimt1) &
    ,nconv,nconv_max, ntdump

  real(DP) :: pi, betag, gtheta
  LOGICAL :: ifprnt,if_full_pres

  real(DP) :: lyap(3,lpert)

end module tstep