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(:,:)