Skip to content

Commit

Permalink
Update src/ice_nucleation.F90
Browse files Browse the repository at this point in the history
Co-authored-by: Jeffrey Curtis <[email protected]>
  • Loading branch information
tangwhiap and jcurtis2 authored Dec 3, 2024
1 parent bcba8a4 commit 6d3dd98
Showing 1 changed file with 1 addition and 0 deletions.
1 change: 1 addition & 0 deletions src/ice_nucleation.F90
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down

0 comments on commit 6d3dd98

Please sign in to comment.