solstice-solver

commit be71c93d5ee213a7f15beb949311beb7a6cc76c4
parent e363a05b4cc53ce8aa6d8967068c70036727824e
Author: Christophe Coustet <christophe.coustet@meso-star.com>
Date:   Fri, 10 Mar 2017 18:11:04 +0100

Fix the previous commit; End of the week, hopefully!

Diffstat:
M
src/ssol_solver.c
 | 
3
---
M
src/test_ssol_solver1.c
 | 
2
+-

2 files changed, 1 insertion(+), 4 deletions(-)
diff --git a/src/ssol_solver.c b/src/ssol_solver.c
@@ -249,9 +249,6 @@ point_init
   } else {
     pt->cos_factor = cos_sun;
   }
-  /* use local cos to compute cos_loss */
-  cos_sun = fabs(d3_dot(pt->N, pt->dir));
-  pt->cos_loss = scn->sun->dni * sampled_area_proxy * (1 - cos_sun);
 
   /* Define the primitive side on which the point lies */
   if(d3_dot(pt->N, pt->dir) < 0) {
diff --git a/src/test_ssol_solver1.c b/src/test_ssol_solver1.c
@@ -354,7 +354,7 @@ main(int argc, char** argv)
     mc_rcv.integrated_irradiance.E, mc_rcv.integrated_irradiance.SE);
   CHECK(eq_eps(mc_rcv.integrated_irradiance.E, m, 1e-8), 1);
   CHECK(eq_eps(mc_rcv.integrated_irradiance.SE, std, 1e-4), 1);
-  CHECK(eq_eps(mc_global.cos_loss.E, (1 - COS)*(4 * DNI), 1e-4), 1);
+  CHECK(eq_eps(mc_global.cos_factor.E, COS, 1e-4), 1);
   CHECK(ssol_estimator_ref_put(estimator), RES_OK);
 
   /* Check atmosphere model and imperfect mirror: there are losses */