steady_mod.F90

Go to the documentation of this file.

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

  real(DP) :: tauss(ldimt1), txnext(ldimt1) 
  integer :: nsskip
  LOGICAL :: ifskip, ifmodp, ifssvt, ifstst(ldimt1) &
    ,                 ifexvt, ifextr(ldimt1)
  real(DP) :: dvnnh1, dvnnsm, dvnnl2, dvnnl8 &
    , dvdfh1, dvdfsm, dvdfl2, dvdfl8 &
    , dvprh1, dvprsm, dvprl2, dvprl8

end module steady