Classes | |
struct | run_sect_opt_t |
Options to control the operation of run_sect(). More... | |
interface | run_sect__interface |
Functions | |
subroutine | run_sect (bin_grid, gas_data, aero_data, aero_dist, env_data, env_state, kernel, sect_opt, process_spec_list) |
Run a sectional simulation. | |
subroutine | coad (n_bin, dt, taug, taup, taul, tauu, prod, ploss, c, ima, g, r, e, ck, ec) |
Collision subroutine, exponential approach. | |
subroutine | courant (n_bin, dlnr, e, ima, c) |
Determines the Courant number for each bin pair. | |
subroutine | smooth_bin_kernel (n_bin, k, k_smooth) |
Smooths kernel values for bin pairs, and halves the self-rate. |
Sectional code based on coad1d.f
by Andreas Bott
subroutine pmc_run_sect::coad | ( | integer | n_bin, | |
real*8 | dt, | |||
real*8,dimension(n_bin) | taug, | |||
real*8,dimension(n_bin) | taup, | |||
real*8,dimension(n_bin) | taul, | |||
real*8,dimension(n_bin) | tauu, | |||
real*8,dimension(n_bin) | prod, | |||
real*8,dimension(n_bin) | ploss, | |||
real*8,dimension(n_bin,n_bin) | c, | |||
integer,dimension(n_bin,n_bin) | ima, | |||
real*8,dimension(n_bin) | g, | |||
real*8,dimension(n_bin) | r, | |||
real*8,dimension(n_bin) | e, | |||
real*8,dimension(n_bin,n_bin) | ck, | |||
real*8,dimension(n_bin,n_bin) | ec | |||
) |
Collision subroutine, exponential approach.
subroutine pmc_run_sect::courant | ( | integer,intent(in) | n_bin, | |
real*8,intent(in) | dlnr, | |||
real*8,dimension(n_bin),intent(in) | e, | |||
integer,dimension(n_bin,n_bin),intent(out) | ima, | |||
real*8,dimension(n_bin,n_bin),intent(out) | c | |||
) |
Determines the Courant number for each bin pair.
n_bin | Number of bins. |
dlnr | Bin scale factor. |
e | Droplet mass grid (mg). |
ima | i + j goes in bin ima(i,j). |
c | Courant number for bin pairs. |
subroutine pmc_run_sect::run_sect | ( | type(bin_grid_t),intent(in) | bin_grid, | |
type(gas_data_t),intent(in) | gas_data, | |||
type(aero_data_t),intent(in) | aero_data, | |||
type(aero_dist_t),intent(inout) | aero_dist, | |||
type(env_data_t),intent(inout) | env_data, | |||
type(env_state_t),intent(inout) | env_state, | |||
pmc_run_sect::run_sect__interface | kernel, | |||
type(run_sect_opt_t),intent(in) | sect_opt, | |||
type(process_spec_t),dimension(:),intent(in) | process_spec_list | |||
) |
Run a sectional simulation.
bin_grid | Bin grid. |
gas_data | Gas data. |
aero_data | Aerosol data. |
aero_dist | Aerosol distribution. |
env_data | Environment data. |
env_state | Environment state. |
sect_opt | Options. |
process_spec_list | Processing spec. |
subroutine pmc_run_sect::smooth_bin_kernel | ( | integer,intent(in) | n_bin, | |
real*8,dimension(n_bin,n_bin),intent(in) | k, | |||
real*8,dimension(n_bin,n_bin),intent(out) | k_smooth | |||
) |
Smooths kernel values for bin pairs, and halves the self-rate.
n_bin | Number of bins. |
k | Kernel values. |
k_smooth | Smoothed kernel values. |