diff --git a/src/ice_nucleation.F90 b/src/ice_nucleation.F90 index fffc6be2..ce84a533 100644 --- a/src/ice_nucleation.F90 +++ b/src/ice_nucleation.F90 @@ -117,7 +117,6 @@ subroutine singular_initialize(aero_state, aero_data) temp = (log(1 - p) + exp(-S * exp(-a_INAS * T0 + b_INAS))) / (-S) aero_state%apa%particle(i_part)%imf_temperature = T0 + (log(temp) & - b_INAS) / a_INAS - !print*, aerosol_diameter, aero_state%apa%particle(i_part)%imf_temperature end do end subroutine singular_initialize