Fix bug in BPE calculation for unmapped grids

b6bf6a41 · David Deepwell · 1df50bf9 · b6bf6a41
Commit b6bf6a41 authored Oct 16, 2017 by David Deepwell
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 1 deletion

src/Science.cpp src/Science.cpp +3 -1

No files found.
--- a/src/Science.cpp
+++ b/src/Science.cpp
@@ -369,8 +369,10 @@ void compute_Background_PE(double & BPE_tot, TArrayn::DTArray & rho,
                    while ( (sort_hill[LL] > tmpH) && (LL > 0) ) {
                        LL--;
                    }
+                    Area_star = Lx_partsum[LL]*Ly;
+                } else {
+                    Area_star = Lx*Ly;
                }
-                Area_star = Lx_partsum[LL]*Ly;

                // spread volume over domain and compute BPE for that cell
                dH = sort_quad(II,JJ,KK)/Area_star;