htrdr

Solving radiative transfer in heterogeneous media
git clone git://git.meso-star.fr/htrdr.git
Log | Files | Refs | README | LICENSE

commit 9963c5519944c3b311006febb675ab2d87d4c087
parent 61d40b8a98bb799c33765b5fa492da810f009eeb
Author: Vincent Forest <vincent.forest@meso-star.com>
Date:   Thu, 28 Jun 2018 21:29:18 +0200

Fix ab issue on sky creation whose LES is irregular in Z

Diffstat:
Msrc/htrdr_sky.c | 2+-
1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/htrdr_sky.c b/src/htrdr_sky.c @@ -348,7 +348,7 @@ htrdr_sky_create iz2 = 0; upp[2] = low[2] + sky->htcp_desc.vxsz_z[iz2]; FOR_EACH(iz, 0, nsplits) { - const double upp_z = (double)(iz + 1) * min_vxsz_z; + const double upp_z = (double)(iz + 1) * min_vxsz_z + low[2]; darray_split_data_get(&sky->svx2htcp_z)[iz].index = iz2; darray_split_data_get(&sky->svx2htcp_z)[iz].height = upp[2]; if(upp_z >= upp[2]) upp[2] += sky->htcp_desc.vxsz_z[++iz2];