10 integer,
parameter :: irho=1
11 integer,
parameter :: ipx=2
13 integer,
parameter :: ipy=3
16 integer,
parameter :: ipz=4
18 integer,
parameter :: ie_tot=ndim+2
19 integer,
parameter :: ibxl=ndim+3
21 integer,
parameter :: ibyl=ndim+4
24 integer,
parameter :: ibzl=ndim+5
27 integer,
parameter :: ibrx = nvar+1
29 integer,
parameter :: ibry = nvar+2
32 integer,
parameter :: ibrz = nvar+3
39 real(dp),
allocatable,
dimension(:,:)::uold,unew,usav
40 real(dp),
allocatable,
dimension(:) ::divu,enew
41 real(dp)::mass_tot=0.0d0,mass_tot_0=0.0d0,dmax,dmin,daver
42 real(dp)::grho,grho0,grho_time,t_grho
45 real(dp) :: cb, cv, cg, cr, cp
47 real(dp) :: urms, rho, umag, bmag, etot
53 integer:: n_camax, n_cbmax
54 integer(kind=8),
save:: n_negative_e=0_8, n_camax_tot, n_cbmax_tot, not_iso_tot
55 real(dp):: dlnr(1:maxlevel)=0.0_dp
56 real(dp):: dlnp(1:maxlevel)=0.0_dp
57 end module hydro_commons
61 real(dp),
parameter::bigreal = 1.0e+30
62 real(dp),
parameter::zero = 0.0
63 real(dp),
parameter::one = 1.0
64 real(dp),
parameter::two = 2.0
65 real(dp),
parameter::three = 3.0
66 real(dp),
parameter::four = 4.0
67 real(dp),
parameter::two3rd = 0.6666666666666667
68 real(dp),
parameter::half = 0.5
69 real(dp),
parameter::third = 0.33333333333333333
70 real(dp),
parameter::forth = 0.25
71 real(dp),
parameter::sixth = 0.16666666666666667