4 integer,
parameter::sp=kind(1.0e0)
6 integer,
parameter::dp=kind(1.0e0)
9 integer,
parameter::dp=kind(1.0e0)
11 integer,
parameter::dp=kind(1.0d0)
15 integer,
parameter::qdp=kind(1.0_16)
17 integer,
parameter::qdp=kind(1.0_8)
19 integer,
parameter::maxout=100
20 integer,
parameter::maxlevel=100
21 integer,
parameter::mid=120
25 integer,
parameter::ndim=1
27 integer,
parameter::ndim=ndim
29 integer,
parameter::twotondim=2**ndim
30 integer,
parameter::threetondim=3**ndim
31 integer,
parameter::twondim=2*ndim
35 integer,
parameter::nvector=500
37 integer,
parameter::nvector=nvector
40 integer,
parameter :: nstride = 65536
43 logical::hydro =.false.
45 logical::poisson =.false.
46 logical::cosmo =.false.
47 logical::star =.false.
48 logical::sink =.false.
49 logical::debug =.false.
50 logical::static =.false.
51 logical::tracer =.false.
52 logical::lightcone=.false.
53 logical::clumpfind=.false.
55 logical::do_benchmark=.false.
56 logical::do_particle_dump=.false.
57 logical::swap_domains=.false.
58 logical::chemistry=.false.
63 integer::nx=1,ny=1,nz=1
67 integer,
dimension(1:MAXLEVEL)::nexpand=1
68 integer::nexpand_bound=1
69 real(dp)::boxlen=1.0d0
70 character(len=128)::ordering=
'hilbert' 71 logical::cost_weighting=.true.
72 integer::load_weighting=0
74 integer::nbilevelmax=1
76 integer::nbileafnodes=2
77 real(dp)::bisec_tol=0.05d0
78 logical::subcycle_extrap=.false.
82 integer::nudge_bound_keys=0
84 integer::nstepmax=1000000
86 integer::fbackup=1000000
89 real(kind=dp)::fremap=0.0
90 real,
dimension(MAXLEVEL)::level_load=1.0
97 integer::foutput=1000000
98 integer::fscratch=1000000
99 integer::output_mode=0
100 integer::trace_level=0
101 character(len=80)::datadir=
'.' 102 integer::timer_type=0
103 integer::debug_level=0
106 real(dp)::thetay_cone=12.5
107 real(dp)::thetaz_cone=12.5
108 real(dp)::zmax_cone=2.0
112 real(dp)::omega_b=0.0d0
113 real(dp)::omega_m=1.0d0
114 real(dp)::omega_l=0.0d0
115 real(dp)::omega_k=0.0d0
117 real(dp)::aexp =1.0d0
118 real(dp)::hexp =0.0d0
119 real(dp)::n_sink =1d30
120 real(dp)::m_star =-1.0
121 real(dp)::n_star =0.1d0
122 real(dp)::t_star =0.0d0
123 real(dp)::eps_star=0.0d0
124 real(dp)::jeans_ncells=-1
125 real(dp)::t2_star=0.0d0
126 real(dp)::g_star =1.6d0
127 real(dp)::baro_exp=2.0d0
128 real(dp)::baro_c=4.0d0
129 real(dp)::del_star=2.d2
130 real(dp)::eta_sn =0.0d0
131 real(dp)::yield =0.0d0
132 real(dp)::f_ek =1.0d0
133 real(dp)::rbubble=0.0d0
136 real(dp)::mass_gmc=-1.0
137 real(dp)::z_ave =0.0d0
138 real(dp)::b_ave =0.0d0
139 real(dp)::z_reion=8.5d0
141 real(dp)::t_delay=1.0d1
143 real(dp)::a_spec =1.0d0
144 real(dp)::beta_fix=0.0d0
145 real(dp)::rsink_max=10
146 real(dp)::msink_max=1d5
147 real(dp)::entropy_elimit=1.
148 integer ::n_entropy(2)=0
149 logical ::self_shielding=.false.
150 logical ::pressure_fix=.false.
151 logical ::entropy_fix=.false.
152 real(dp)::temp_iso = 1.0_dp
153 logical ::nordlund_fix=.true.
154 logical ::cooling=.false.
155 logical ::metal=.false.
156 logical ::bondi=.true.
157 logical ::haardt_madau=.false.
158 logical ::delayed_cooling=.false.
159 logical ::smbh=.false.
160 logical ::agn=.false.
163 real(dp),
dimension(1:MAXOUT)::aout=1.1
164 real(dp),
dimension(1:MAXOUT)::tout=0.0
165 real(kind=8)::delta_tout=0,tend=100,delta_tscr=0
166 real(kind=8)::delta_aout=0,aend=100
167 real(dp)::tout_iout=0.0
168 real(dp)::aout_iout=0.0
171 real(dp),
dimension(1:MAXLEVEL)::m_refine =-1.0
172 real(dp),
dimension(1:MAXLEVEL)::r_refine =-1.0
173 real(dp),
dimension(1:MAXLEVEL)::x_refine = 0.0
174 real(dp),
dimension(1:MAXLEVEL)::y_refine = 0.0
175 real(dp),
dimension(1:MAXLEVEL)::z_refine = 0.0
176 real(dp),
dimension(1:MAXLEVEL)::exp_refine = 2.0
177 real(dp),
dimension(1:MAXLEVEL)::a_refine = 1.0
178 real(dp),
dimension(1:MAXLEVEL)::b_refine = 1.0
179 real(dp)::var_cut_refine=-1.0
180 real(dp)::mass_cut_refine=-1.0
181 real(dp)::subcycle_factor=0.9
182 integer::ivar_refine=-1
185 logical::multiple=.false.
186 integer,
parameter::maxregion=100
188 character(LEN=80),
dimension(1:MAXREGION)::initfile
190 character(LEN=80),
allocatable,
dimension(:)::initfile
192 character(LEN=20)::filetype=
'ascii' 196 character(LEN=10),
dimension(1:MAXREGION)::region_type=
'square' 197 real(dp),
dimension(1:MAXREGION) ::x_center=0.
198 real(dp),
dimension(1:MAXREGION) ::y_center=0.
199 real(dp),
dimension(1:MAXREGION) ::z_center=0.
200 real(dp),
dimension(1:MAXREGION) ::length_x=1.e10
201 real(dp),
dimension(1:MAXREGION) ::length_y=1.e10
202 real(dp),
dimension(1:MAXREGION) ::length_z=1.e10
203 real(dp),
dimension(1:MAXREGION) ::exp_region=2.0
204 real(dp),
dimension(1:MAXREGION) ::rotation_z=0.0
207 integer,
parameter::maxbound=100
208 logical ::simple_boundary=.false.
209 integer ::nboundary=0
210 integer ::icoarse_min=0
211 integer ::icoarse_max=0
212 integer ::jcoarse_min=0
213 integer ::jcoarse_max=0
214 integer ::kcoarse_min=0
215 integer ::kcoarse_max=0
216 integer ,
dimension(1:MAXBOUND) ::boundary_type=0
217 integer ,
dimension(1:MAXBOUND) ::ibound_min=0
218 integer ,
dimension(1:MAXBOUND) ::ibound_max=0
219 integer ,
dimension(1:MAXBOUND) ::jbound_min=0
220 integer ,
dimension(1:MAXBOUND) ::jbound_max=0
221 integer ,
dimension(1:MAXBOUND) ::kbound_min=0
222 integer ,
dimension(1:MAXBOUND) ::kbound_max=0
225 integer :: tmp_unit=60, courant_unit=61, bitwise_unit=62, dt_unit=63, header_unit=64
228 character(len=72) :: hl=
"------------------------------------------------------------------------" 229 character(LEN=80)::infile
230 end module amr_parameters