From 95de3c16c56d299b30bc0fe550a9724c260e0b31 Mon Sep 17 00:00:00 2001 From: Haipeng Lin Date: Wed, 13 May 2026 17:00:36 -0400 Subject: [PATCH] Bugfix (from @fvitt): rad_cnst refactor list_idx gating broke double radiation case --- .../aerosol/carma_aerosol_state_mod.F90 | 16 ---------------- 1 file changed, 16 deletions(-) diff --git a/src/chemistry/aerosol/carma_aerosol_state_mod.F90 b/src/chemistry/aerosol/carma_aerosol_state_mod.F90 index e2b52f14ba..d77cf33ae0 100644 --- a/src/chemistry/aerosol/carma_aerosol_state_mod.F90 +++ b/src/chemistry/aerosol/carma_aerosol_state_mod.F90 @@ -407,10 +407,6 @@ subroutine hygroscopicity(self, bin_ndx, kappa) character(len=aero_name_len) :: bin_name, shortname integer :: igroup, ibin, rc, nchr, ncol - if (self%list_idx_ /= 0) then - call endrun('carma_aerosol_state::hygroscopicity: only valid for climate list (list_idx=0)') - end if - call rad_aer_get_info_by_bin(0, bin_ndx, bin_name=bin_name) nchr = len_trim(bin_name)-2 @@ -476,10 +472,6 @@ function dry_volume(self, aero_props, bin_idx, ncol, nlev) result(vol) character(len=aero_name_len) :: bin_name, shortname integer :: igroup, ibin, rc, nchr - if (self%list_idx_ /= 0) then - call endrun('carma_aerosol_state::dry_volume: only valid for climate list (list_idx=0)') - end if - call rad_aer_get_info_by_bin(0, bin_idx, bin_name=bin_name) nchr = len_trim(bin_name)-2 @@ -519,10 +511,6 @@ function wet_volume(self, aero_props, bin_idx, ncol, nlev) result(vol) character(len=aero_name_len) :: bin_name, shortname integer :: igroup, ibin, rc, nchr - if (self%list_idx_ /= 0) then - call endrun('carma_aerosol_state::wet_volume: only valid for climate list (list_idx=0)') - end if - call rad_aer_get_info_by_bin(0, bin_idx, bin_name=bin_name) nchr = len_trim(bin_name)-2 @@ -586,10 +574,6 @@ function wet_diameter(self, bin_idx, ncol, nlev) result(diam) character(len=aero_name_len) :: bin_name, shortname integer :: igroup, ibin, rc, nchr - if (self%list_idx_ /= 0) then - call endrun('carma_aerosol_state::wet_diameter: only valid for climate list (list_idx=0)') - end if - call rad_aer_get_info_by_bin(0, bin_idx, bin_name=bin_name) nchr = len_trim(bin_name)-2