Skip to content
GitLab
Menu
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
dm-interactions
class_v2.7_nuDM
Commits
776bb8f6
Commit
776bb8f6
authored
May 28, 2019
by
Julia Stadler
Browse files
corrected bug in initial time
parent
b93cff89
Changes
1
Hide whitespace changes
Inline
Side-by-side
source/perturbations.c
View file @
776bb8f6
...
...
@@ -2290,26 +2290,6 @@ int perturb_solve(
}
}
//////////////////////////////////////////////////
/* check if the neutrino interactions need to be taken into account */
account_for_nuDM_interactions
=
_FALSE_
;
if
(
pth
->
has_coupling_nuDM
==
_TRUE_
&&
ppr
->
has_nuDM_initially
==
_TRUE_
){
if
(
ppw
->
pvecthermo
[
pth
->
index_th_dmu_nuDM
]
/
ppw
->
pvecback
[
pba
->
index_bg_H
]
/
ppw
->
pvecback
[
pba
->
index_bg_a
]
>
ppr
->
start_small_k_at_dmu_nuDM_over_aH
)
account_for_nuDM_interactions
=
_TRUE_
;
}
/* check if integration starts early enough for nuDM initial conditions */
if
(
account_for_nuDM_interactions
==
_TRUE_
){
if
(
ppw
->
pvecback
[
pba
->
index_bg_H
]
*
ppw
->
pvecback
[
pba
->
index_bg_a
]
/
ppw
->
pvecthermo
[
pth
->
index_th_dmu_nuDM
]
>
ppr
->
start_large_k_at_aH_over_dmu_nuDM
)
is_early_enough
=
_FALSE_
;
}
//////////////////////////////////////////////////
/* also check that the two conditions on (aH/kappa') and (aH/k) are fulfilled */
if
(
is_early_enough
==
_TRUE_
)
{
...
...
@@ -2331,6 +2311,27 @@ int perturb_solve(
ppr
->
start_large_k_at_tau_h_over_tau_k
))
is_early_enough
=
_FALSE_
;
//////////////////////////////////////////////////
/* check if the neutrino interactions need to be taken into account */
account_for_nuDM_interactions
=
_FALSE_
;
if
(
pth
->
has_coupling_nuDM
==
_TRUE_
&&
ppr
->
has_nuDM_initially
==
_TRUE_
){
if
(
ppw
->
pvecthermo
[
pth
->
index_th_dmu_nuDM
]
/
ppw
->
pvecback
[
pba
->
index_bg_H
]
/
ppw
->
pvecback
[
pba
->
index_bg_a
]
>
ppr
->
start_small_k_at_dmu_nuDM_over_aH
)
account_for_nuDM_interactions
=
_TRUE_
;
}
/* check if integration starts early enough for nuDM initial conditions */
if
(
account_for_nuDM_interactions
==
_TRUE_
){
if
(
ppw
->
pvecback
[
pba
->
index_bg_H
]
*
ppw
->
pvecback
[
pba
->
index_bg_a
]
/
ppw
->
pvecthermo
[
pth
->
index_th_dmu_nuDM
]
>
ppr
->
start_large_k_at_aH_over_dmu_nuDM
)
is_early_enough
=
_FALSE_
;
}
//////////////////////////////////////////////////
}
if
(
is_early_enough
==
_TRUE_
)
...
...
@@ -4231,7 +4232,7 @@ int perturb_initial_conditions(struct precision * ppr,
/* If neutrinos interact with dark matter this supresses their shear and changes the initial
conditions.Here we check if we have to take this into account */
account_for_nuDM_interactions
=
_FALSE_
;
if
(
pth
->
has_coupling_nuDM
&&
ppr
->
has_nuDM_initially
){
if
(
pth
->
has_coupling_nuDM
==
_TRUE_
&&
ppr
->
has_nuDM_initially
==
_TRUE_
){
class_call
(
thermodynamics_at_z
(
pba
,
pth
,
...
...
@@ -4243,8 +4244,7 @@ int perturb_initial_conditions(struct precision * ppr,
pth
->
error_message
,
ppt
->
error_message
);
if
(
ppw
->
pvecthermo
[
pth
->
index_th_dmu_nuDM
]
/
a_prime_over_a
>
ppr
->
start_small_k_at_dmu_nuDM_over_aH
)
if
(
ppw
->
pvecthermo
[
pth
->
index_th_dmu_nuDM
]
/
a_prime_over_a
>
ppr
->
start_small_k_at_dmu_nuDM_over_aH
)
account_for_nuDM_interactions
=
_TRUE_
;
}
//////////////////////////////////////////////////
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment