fix derived tensor parameters (thanks Kenny Lau)

cmbant · Apr 26, 2021 · 682e3ba · 682e3ba
1 parent 6396cd8
commit 682e3ba
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/source/Calculator_CAMB.f90 b/source/Calculator_CAMB.f90
@@ -461,9 +461,9 @@ subroutine CAMBCalc_SetPowersFromCAMB(this,CMB, State, Theory)
     end if
 
     if (CosmoSettings%compute_tensors) then
-        Theory%tensor_ratio_02 = this%CAMBP%InitPower%TensorPower(0.002d0)/this%CAMBP%InitPower%ScalarPower(0.002d0)
-        Theory%tensor_AT = this%CAMBP%InitPower%TensorPower(CosmoSettings%tensor_pivot_k)
-        Theory%tensor_ratio_BB = this%CAMBP%InitPower%TensorPower(0.01d0)/this%CAMBP%InitPower%ScalarPower(0.01d0)
+        Theory%tensor_ratio_02 = State%CP%InitPower%TensorPower(0.002d0)/State%CP%InitPower%ScalarPower(0.002d0)
+        Theory%tensor_AT = State%CP%InitPower%TensorPower(CosmoSettings%tensor_pivot_k)
+        Theory%tensor_ratio_BB = State%CP%InitPower%TensorPower(0.01d0)/State%CP%InitPower%ScalarPower(0.01d0)
         Theory%tensor_ratio_C10 = State%CLData%Cl_tensor(10, 1)/State%CLData%Cl_scalar(10, 1)
     else
         Theory%tensor_ratio_02 = 0