change ppf switch

cmbant · Jun 14, 2024 · 3ad6173 · 3ad6173
1 parent 45d1c3d
commit 3ad6173
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/fortran/DarkEnergyPPF.f90 b/fortran/DarkEnergyPPF.f90
@@ -129,7 +129,7 @@ subroutine TDarkEnergyPPF_PerturbedStressEnergy(this, dgrhoe, dgqe, &
     S_Gamma = grhov_t * (1 + w) * (vT + sigma) * k / adotoa / 2._dl / k2
     ckH = this%c_Gamma_ppf * k / adotoa
 
-    if (ckH * ckH .gt. 3.d1) then ! ckH^2 > 30 ?????????
+    if (ckH * ckH .gt. 1e3) then !3.d1) then ! ckH^2 > 30 ?????????
         Gamma = 0
         Gammadot = 0.d0
     else