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