! -*-f90-*- (for Emacs) vim:set filetype=fortran: (for vim) ! ! Initialisation parameters for shock tube problem. ! &init_pars cvsid='$Id$' xyz0 = -4.0, 0.0, 0.0, ! first corner of box xyz1 = 6.0, 1.0, 1.0, ! box size lperi = F , T , T, ! periodic direction? lwrite_ic = T / &eos_init_pars / &hydro_init_pars / &density_init_pars initlnrho='xjump', rho_left=10.0, rho_right=1.0, widthlnrho=0.03 / &entropy_init_pars initss='xjump', ss_left=-0.615, ss_right=0.306, widthss=0.03 /