Functions | |
subroutine | kernel_golovin (aero_particle_1, aero_particle_2, aero_data, env_state, k) |
Golovin (additive) coagulation kernel. | |
subroutine | kernel_golovin_max (v1, v2, aero_data, env_state, k_max) |
Maximum value of the Golovin (additive) kernel. | |
subroutine | soln_golovin_exp (bin_grid, aero_data, time, num_conc, mean_radius, rho_p, aero_dist_init, env_state, aero_binned) |
Exact solution with the Golovin coagulation kernel and exponential initial condition. | |
subroutine | bessi1 (x, r) |
Modified Bessel function of the first kind ![]() |
subroutine pmc_kernel_golovin::bessi1 | ( | real*8,intent(in) | x, | |
real*8,intent(out) | r | |||
) |
Modified Bessel function of the first kind .
This looks like it was taken from Numerical Recipes.
FIXME: Where did this code come from? What license does it have?
x | Function argument. |
r | Function value. |
subroutine pmc_kernel_golovin::kernel_golovin | ( | type(aero_particle_t),intent(in) | aero_particle_1, | |
type(aero_particle_t),intent(in) | aero_particle_2, | |||
type(aero_data_t),intent(in) | aero_data, | |||
type(env_state_t),intent(in) | env_state, | |||
real*8,intent(out) | k | |||
) |
Golovin (additive) coagulation kernel.
aero_particle_1 | First particle. |
aero_particle_2 | Second particle. |
aero_data | Aerosol data. |
env_state | Environment state. |
k | Coagulation kernel. |
subroutine pmc_kernel_golovin::kernel_golovin_max | ( | real*8,intent(in) | v1, | |
real*8,intent(in) | v2, | |||
type(aero_data_t),intent(in) | aero_data, | |||
type(env_state_t),intent(in) | env_state, | |||
real*8,intent(out) | k_max | |||
) |
Maximum value of the Golovin (additive) kernel.
v1 | Volume of first particle. |
v2 | Volume of second particle. |
aero_data | Aerosol data. |
env_state | Environment state. |
k_max | Coagulation kernel maximum value. |
subroutine pmc_kernel_golovin::soln_golovin_exp | ( | type(bin_grid_t),intent(in) | bin_grid, | |
type(aero_data_t),intent(in) | aero_data, | |||
real*8,intent(in) | time, | |||
real*8,intent(in) | num_conc, | |||
real*8,intent(in) | mean_radius, | |||
real*8,intent(in) | rho_p, | |||
type(aero_dist_t),intent(in) | aero_dist_init, | |||
type(env_state_t),intent(in) | env_state, | |||
type(aero_binned_t),intent(out) | aero_binned | |||
) |
Exact solution with the Golovin coagulation kernel and exponential initial condition.
bin_grid | Bin grid. |
aero_data | Aerosol data. |
time | Current time. |
num_conc | Particle number concentration (#/m^3). |
mean_radius | Mean init radius (m). |
rho_p | Particle density (kg/m^3). |
aero_dist_init | Initial distribution. |
env_state | Environment state. |
aero_binned | Output state. |