!
   integer, intent(in)       :: aero_srf_area_diag
   real(kind=dp), intent(in) :: rh
   real(kind=dp), intent(in) :: aer_so4
   real(kind=dp), intent(in) :: aer_oc2
   real(kind=dp), intent(in) :: aer_bc2
   real, intent(inout) :: sulf_srf_area
   real, intent(inout) :: oc_srf_area
   real, intent(inout) :: bc_srf_area
