htrdr

commit f37ece00ca3a47a22757cdf04ffd87be0d3cd084
parent 8b7b25fba0826f1ddc2ae462416fdb8dd00ad2ae
Author: Vincent Forest <vincent.forest@meso-star.com>
Date:   Mon, 20 Apr 2020 16:19:41 +0200

Fix the computation of the sky bands probabilities

Diffstat:
M
src/htrdr_ran_lw.c
 | 
4
++--

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/htrdr_ran_lw.c b/src/htrdr_ran_lw.c
@@ -139,8 +139,8 @@ compute_sky_bands_pdf(struct htrdr_ran_lw* ran_lw, const char* func_name)
     HTSKY(get_spectral_band_bounds(ran_lw->htrdr->sky, iband, wlens));
 
     /* Convert from nanometer to meter */
-    wlens[0] = wlens[0] * 1.e-9;
-    wlens[1] = wlens[1] * 1.e-9;
+    wlens[0] = MMAX(wlens[0], ran_lw->range[0]) * 1.e-9;
+    wlens[1] = MMIN(wlens[1], ran_lw->range[1]) * 1.e-9;
 
     /* Compute the probability of the current band */
     pdf[i] = planck(wlens[0], wlens[1], ran_lw->ref_temperature);