! -*-f90-*- (for Emacs) vim:set filetype=fortran: (for vim) ! ! Initialisation parameters for shock tube problem. ! &init_pars cvsid='$Id$' xyz0 = -3.7, 0.0, 0.0, ! first corner of box xyz1 = 6.3, 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=1.0e3, rho_right=1.0, widthlnrho=0.03 / &entropy_init_pars initss='xjump', ss_left=-2.46, ss_right=0.306, widthss=0.03 /