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