rnatm

commit 1d4e30628fe1424684cfc6365095bae6bb70d51c
parent 1be4618808bbeb31a5b401f9640109acc6b32e28
Author: Vincent Forest <vincent.forest@meso-star.com>
Date:   Wed,  7 Sep 2022 14:48:33 +0200

Shrink the aerosol rad props to the spectral range

Diffstat:
M
src/rnatm_octree.c
 | 
4
++++

1 file changed, 4 insertions(+), 0 deletions(-)
diff --git a/src/rnatm_octree.c b/src/rnatm_octree.c
@@ -542,6 +542,10 @@ setup_tetra_radcoefs_aerosol
       lambda_min = MMAX(gas_band.lower, ars_band.lower);
       lambda_max = MMIN(gas_band.upper, ars_band.upper); /* exclusive */
       lambda_max = nextafter(lambda_max, 0); /* inclusive */
+
+      /* Shrink lambda_<min|max> to the spectral range */
+      lambda_min = MMAX(lambda_min, atm->spectral_range[0]);
+      lambda_max = MMIN(lambda_max, atm->spectral_range[1]);
       lambda_len = (float)(lambda_max - lambda_min);
       ASSERT(lambda_len > 0);