htrdr

commit 3f539eecb55a386a6de92a68178d7009fba9d01d
parent 3e60df19c701fd51aa43cdc939800aba6fd0030f
Author: Vincent Forest <vincent.forest@meso-star.com>
Date:   Thu, 16 Apr 2020 22:20:54 +0200

Use the sampled wavelength to retrieve the 'g' parameter

Diffstat:
M
src/htrdr_compute_radiance_lw.c
 | 
4
++--
M
src/htrdr_compute_radiance_sw.c
 | 
6
+++---

2 files changed, 5 insertions(+), 5 deletions(-)
diff --git a/src/htrdr_compute_radiance_lw.c b/src/htrdr_compute_radiance_lw.c
@@ -169,8 +169,8 @@ htrdr_compute_radiance_lw
   /* Setup the phase function for this spectral band & quadrature point */
   CHK(RES_OK == ssf_phase_create
     (&htrdr->lifo_allocators[ithread], &ssf_phase_hg, &phase_hg));
-  g = htsky_fetch_particle_phase_function_asymmetry_parameter
-    (htrdr->sky, iband, iquad);
+  g = htsky_fetch_per_wavelength_particle_phase_function_asymmetry_parameter
+    (htrdr->sky, wlen);
   SSF(phase_hg_setup(phase_hg, g));
 
   /* Initialise the random walk */
diff --git a/src/htrdr_compute_radiance_sw.c b/src/htrdr_compute_radiance_sw.c
@@ -286,9 +286,9 @@ htrdr_compute_radiance_sw
   CHK(RES_OK == ssf_phase_create
     (&htrdr->lifo_allocators[ithread], &ssf_phase_rayleigh, &phase_rayleigh));
 
-  /* Setup the phase function for this spectral band & quadrature point */
-  g = htsky_fetch_particle_phase_function_asymmetry_parameter
-    (htrdr->sky, iband, iquad);
+  /* Setup the phase function for this wavelength */
+  g = htsky_fetch_per_wavelength_particle_phase_function_asymmetry_parameter
+    (htrdr->sky, wlen);
   SSF(phase_hg_setup(phase_hg, g));
 
   /* Fetch sun properties. Note that the sun spectral data are defined by bands