Skip to content

Commit 95de3c1

Browse files
committed
Bugfix (from @fvitt): rad_cnst refactor list_idx gating broke double radiation case
1 parent 64c9fd7 commit 95de3c1

1 file changed

Lines changed: 0 additions & 16 deletions

File tree

src/chemistry/aerosol/carma_aerosol_state_mod.F90

Lines changed: 0 additions & 16 deletions
Original file line numberDiff line numberDiff line change
@@ -407,10 +407,6 @@ subroutine hygroscopicity(self, bin_ndx, kappa)
407407
character(len=aero_name_len) :: bin_name, shortname
408408
integer :: igroup, ibin, rc, nchr, ncol
409409

410-
if (self%list_idx_ /= 0) then
411-
call endrun('carma_aerosol_state::hygroscopicity: only valid for climate list (list_idx=0)')
412-
end if
413-
414410
call rad_aer_get_info_by_bin(0, bin_ndx, bin_name=bin_name)
415411

416412
nchr = len_trim(bin_name)-2
@@ -476,10 +472,6 @@ function dry_volume(self, aero_props, bin_idx, ncol, nlev) result(vol)
476472
character(len=aero_name_len) :: bin_name, shortname
477473
integer :: igroup, ibin, rc, nchr
478474

479-
if (self%list_idx_ /= 0) then
480-
call endrun('carma_aerosol_state::dry_volume: only valid for climate list (list_idx=0)')
481-
end if
482-
483475
call rad_aer_get_info_by_bin(0, bin_idx, bin_name=bin_name)
484476

485477
nchr = len_trim(bin_name)-2
@@ -519,10 +511,6 @@ function wet_volume(self, aero_props, bin_idx, ncol, nlev) result(vol)
519511
character(len=aero_name_len) :: bin_name, shortname
520512
integer :: igroup, ibin, rc, nchr
521513

522-
if (self%list_idx_ /= 0) then
523-
call endrun('carma_aerosol_state::wet_volume: only valid for climate list (list_idx=0)')
524-
end if
525-
526514
call rad_aer_get_info_by_bin(0, bin_idx, bin_name=bin_name)
527515

528516
nchr = len_trim(bin_name)-2
@@ -586,10 +574,6 @@ function wet_diameter(self, bin_idx, ncol, nlev) result(diam)
586574
character(len=aero_name_len) :: bin_name, shortname
587575
integer :: igroup, ibin, rc, nchr
588576

589-
if (self%list_idx_ /= 0) then
590-
call endrun('carma_aerosol_state::wet_diameter: only valid for climate list (list_idx=0)')
591-
end if
592-
593577
call rad_aer_get_info_by_bin(0, bin_idx, bin_name=bin_name)
594578

595579
nchr = len_trim(bin_name)-2

0 commit comments

Comments
 (0)