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