5 module hydro_parameters
10 integer,
parameter::nvar=ndim+2
12 integer,
parameter::nvar=nvar
15 integer,
parameter::iu1=-1
16 integer,
parameter::iu2=+4
17 integer,
parameter::ju1=(1-ndim/2)-1*(ndim/2)
18 integer,
parameter::ju2=(1-ndim/2)+4*(ndim/2)
19 integer,
parameter::ku1=(1-ndim/3)-1*(ndim/3)
20 integer,
parameter::ku2=(1-ndim/3)+4*(ndim/3)
21 integer,
parameter::if1=1
22 integer,
parameter::if2=3
23 integer,
parameter::jf1=1
24 integer,
parameter::jf2=(1-ndim/2)+3*(ndim/2)
25 integer,
parameter::kf1=1
26 integer,
parameter::kf2=(1-ndim/3)+3*(ndim/3)
29 real(dp),
dimension(1:MAXBOUND,1:nvar)::boundary_var
30 real(dp),
dimension(1:MAXBOUND)::d_bound=0.0d0
31 real(dp),
dimension(1:MAXBOUND)::p_bound=0.0d0
32 real(dp),
dimension(1:MAXBOUND)::u_bound=0.0d0
33 real(dp),
dimension(1:MAXBOUND)::v_bound=0.0d0
34 real(dp),
dimension(1:MAXBOUND)::w_bound=0.0d0
37 real(dp)::err_grad_d=-1.0
38 real(dp)::err_grad_u= 0.0
39 real(dp)::err_grad_p=-1.0
40 real(dp)::floor_d=1.d-10
41 real(dp)::floor_u=1.d-10
42 real(dp)::floor_p=1.d-10
43 real(dp)::mass_sph=0.0d0
44 real(dp),
dimension(1:MAXLEVEL)::jeans_refine=-1.0
47 real(dp),
dimension(1:MAXREGION)::d_region=0.
48 real(dp),
dimension(1:MAXREGION)::u_region=0.
49 real(dp),
dimension(1:MAXREGION)::v_region=0.
50 real(dp),
dimension(1:MAXREGION)::w_region=0.
51 real(dp),
dimension(1:MAXREGION)::p_region=0.
54 integer ::niter_riemann=10
55 logical:: isothermal=.false.
56 real(dp)::slope_type=1
58 real(dp)::courant_factor=0.5d0
59 real(dp)::difmag=0.0d0
60 real(dp)::smallc=1.d-10
61 real(dp)::smallr=1.d-10
62 character(LEN=10)::scheme=
'muscl' 63 character(LEN=10)::riemann=
'llf' 66 integer ::interpol_var=0
67 integer ::interpol_type=1
75 end module hydro_parameters