From e463d99d0b305d9a30460f7d25d6574b7417b077 Mon Sep 17 00:00:00 2001 From: Jeffrey Curtis Date: Mon, 29 Apr 2024 10:33:09 -0500 Subject: [PATCH] add comment about algorithm selection --- src/aero_state.F90 | 1 + 1 file changed, 1 insertion(+) diff --git a/src/aero_state.F90 b/src/aero_state.F90 index a07a1e146..165343369 100644 --- a/src/aero_state.F90 +++ b/src/aero_state.F90 @@ -1968,6 +1968,7 @@ subroutine aero_state_bin_deaverage_comp(aero_state, bin_grid, aero_data, & integer :: n_group, i_group, i_name real(kind=dp), allocatable :: group_fractions(:), & group_volume_conc(:) + ! Flag to control algorithm selection - false uses low-variance method. logical, parameter :: do_naive_algorithm = .false. real(kind=dp), allocatable :: cumulative_vals(:) real(kind=dp), allocatable :: factors_2d(:,:)