atrstm

commit cb5666c63e00f31675153a59184402720a5fa29a
parent e6b6289d4f725c91b614e7e20654183e858a5658
Author: Vincent Forest <vincent.forest@meso-star.com>
Date:   Mon, 18 Jan 2021 11:00:27 +0100

Fix an issue in the computation of the optical properties

Diffstat:
M
src/atrstm.c
 | 
2
+-
M
src/atrstm_optprops.h
 | 
2
+-

2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/atrstm.c b/src/atrstm.c
@@ -129,7 +129,7 @@ atrstm_create
   if(args->spectral_type == ATRSTM_SPECTRAL_SW
   && args->wlen_range[0] != args->wlen_range[1]) {
     log_err(atrstm,
-      "Invalid spectral range [%g, %g], Only monochromatic computations are "
+      "Invalid spectral range [%g, %g], only monochromatic computations are "
       "supported in shortwave.\n",
       args->wlen_range[0],
       args->wlen_range[1]);
diff --git a/src/atrstm_optprops.h b/src/atrstm_optprops.h
@@ -151,7 +151,7 @@ optprops_compute
     const double Csca = Np*Np * (8*PI*xp3*xp3) / (3*k2) * Fm * g;
 
     /* Optical properties */
-    const double Va = (PI * Dp*Dp*Dp) / 6; /* [nm^3] */
+    const double Va = (Np*PI*Dp*Dp*Dp) / 6; /* [nm^3] */
     const double rho = Fv / Va; /* [#aggregates / nm^3] */
     const double tmp2 = 1.e-9 * rho;