diff --git a/src/ice_nucleation.F90 b/src/ice_nucleation.F90 index c2dccd6f..fffc6be2 100644 --- a/src/ice_nucleation.F90 +++ b/src/ice_nucleation.F90 @@ -102,6 +102,7 @@ subroutine singular_initialize(aero_state, aero_data) type(aero_state_t), intent(inout) :: aero_state !> Aerosol data. type(aero_data_t), intent(in) :: aero_data + integer :: i_part real(kind=dp) :: a_INAS, b_INAS, p, S, T0, temp real(kind=dp) :: aerosol_diameter