|
subroutine, public | mod_cak_opacity::init_cak_table (tabledir) |
| This routine is called when the FLD radiation module is initialised.
|
|
subroutine, public | mod_cak_opacity::set_cak_opacity (rho, temp, alpha_output, qbar_output, q0_output, kappae_output) |
| This subroutine calculates the opacity for a given temperature-density structure. Opacities are read from a table with given metalicity.
|
|
subroutine | mod_cak_opacity::read_table (d, t, k, filename) |
| This routine reads in 1-D (T,rho) values from a line opacity table and gives back as output the 1-D (T,rho) values and 2-D line opacity value.
|
|
subroutine | mod_cak_opacity::get_val_comb (k1_vals, k2_vals, k3_vals, k4_vals, logd_list, logt_list, d, t, k1, k2, k3, k4) |
| This subroutine looks in the table for the four couples (T,rho) surrounding a given input T and rho.
|
|
subroutine | mod_cak_opacity::get_low_up_index (var_in, var_list, imin, imax, low_i, up_i) |
| This subroutine finds the indices in rho and T arrays of the two values surrounding the input rho and T.
|
|
subroutine | mod_cak_opacity::interpolate_krt (low_r, up_r, low_t, up_t, logd_list, logt_list, kappa_vals, d, t, kappa_interp) |
| This subroutine does a bilinear interpolation in the R,T-plane.
|
|
subroutine | mod_cak_opacity::interpolate1d (x1, x2, x, y1, y2, y) |
| Interpolation in one dimension.
|
|
|
integer, parameter | mod_cak_opacity::idmin = 2 |
| min and max indices for R,T-range in opacity table
|
|
integer, parameter | mod_cak_opacity::idmax = 16 |
|
integer, parameter | mod_cak_opacity::itmin = 2 |
|
integer, parameter | mod_cak_opacity::itmax = 51 |
|
double precision, dimension(idmin:idmax, itmin:itmax), public | mod_cak_opacity::alpha_vals |
| The opacity tables are read once and stored globally.
|
|
double precision, dimension(idmin:idmax, itmin:itmax), public | mod_cak_opacity::qbar_vals |
|
double precision, dimension(idmin:idmax, itmin:itmax), public | mod_cak_opacity::q0_vals |
|
double precision, dimension(idmin:idmax, itmin:itmax), public | mod_cak_opacity::kappae_vals |
|
double precision, dimension(idmin:idmax), public | mod_cak_opacity::logd_list |
|
double precision, dimension(itmin:itmax), public | mod_cak_opacity::logt_list |
|