nochemistry

Module

Description

$Id$

** AUTOMATIC CPARAM.INC GENERATION ************************ Declare (for generation of cparam.inc) the number of f array variables and auxiliary variables added by this module

CPARAM logical, parameter :: lchemistry = .false.

MVAR CONTRIBUTION 0 MAUX CONTRIBUTION 0

PENCILS PROVIDED Ywater, lambda; chem_conc(nchemspec) PENCILS PROVIDED nucl_rmin, nucl_rate, conc_satm, ff_cond PENCILS PROVIDED latent_heat

Quick access

Variables:: a_k4_min, a_spec, absorb_spec_psurf, absorbing_species, air_field, astrobiology_data, atomic_m_spec, bin_diff_coef, bubble_pressure_pk, bubble_temp_pk, build_stoich_matrix, calc_collision_integral, calc_diff_visc_coef, calc_diffusion_term, calc_extra_react, calc_heatcond_chemistry, calc_reaction_term, calc_therm_diffus_coef, chemistry_diag_reductions, chemistry_init_diag_accum, chemistry_read_diag_accum, chemkin_data, chemkin_data_simple, conc_sat_spec_cgs, cond_spec_nucl_rate, cond_spec_psat, cond_spec_sat_conc, condensing_species, cp_full, cp_r_spec, cp_spec_glo, cv_const, cv_full, cv_r_spec_full, dabs, dabs_cgs, damp_zone_for_nscbc, dcond, dcond_cgs, delta_chem, deltah_cgs, dhsol_cgs, diff_coef_const, diff_full, diff_full_add, enum_iconc_sat_spec, enum_inucl_pre_exp, enum_isurf_energy, enum_reac_rate_method, enum_reaction_name, find_remove_real_stoic, flame, flame_blob, flame_front, flame_front_2d, flame_front_new, flameind_spec1, flameind_spec2, flamemaster_ini, gam_surf_energy_cgs, gam_surf_energy_mul_fac, get_1step_test_reaction_rate, get_1step_test_sum_dydts, get_reaction_rate, get_sum_dydts, getmu_array, henry_b, henry_model, henry_ref, henry_ref_cgs, henry_tref, high_coeff_abs_max, i_absorb_spec, i_c3h8_glob, i_cond_spec, i_o2_glob, iaa1_offset, iaa2_offset, iadv, ichem_absorb_spec, ichem_c3h8, ichem_co, ichem_co2, ichem_cond_spec, ichem_o2, iconc_sat_spec, idiag_alpham, idiag_alphamax, idiag_alphamin, idiag_conc_satm, idiag_cpfull, idiag_cvfull, idiag_diffmax, idiag_diffmin, idiag_ffnucl, idiag_flameindmax, idiag_flameindmin, idiag_lambdamax, idiag_lambdamin, idiag_latent_heat, idiag_mixfracmax, idiag_mixfracmin, idiag_nuclrate, idiag_nuclrmin, idiag_rhoym, idiag_supersat, idiag_tym, ifuel_flow, imassc, imassh, imassn, imasso, imasss, imassti, index_o2n2, init_fuel_molar_ratio, init_fuel_o2_demand, init_phi, init_premixed_fuel, init_temp_fuel, init_temp_oxidizer, intro_time, inucl_pre_exp, ipr, ireac, ireac_co, ireac_co2, ireac_o2, ireaci, isurf_energy, kreactions_alpha, kreactions_m, kreactions_p, kreactions_profile, kreactions_profile_width, kreactions_z, l1step_test, labsorbing_on, lambda_const, lambda_full, latmchem, lback, lc3h8, lchem_detailed, lchemistry_diag, lcloud, lcompute_rhs_y_full, lcorr_vel, ldamp_zone_for_nscbc, ldiff_fick, ldiff_lewis, ldiff_simple, lew_exist, lewis_coef, lewis_coef1, lfix_pr, lfix_sc, lflame_front_2d, lflame_index_as_aux, lflamemaster, lflux_simple, lgradp_terms, lheatc_chemistry, lhotspot, lkreactions_alpha, lkreactions_profile, lmixture_fraction_as_aux, lnoevap, lnolatentheat, lnormalize_chemspec, lnormalize_chemspec_n2, lnucleation, lnucleii_generated, lone_spec, low_coeff_abs_max, lreac_as_aux, lsmag_diffusion, lsmag_heat_transport, lspecies_cond_simplified, ltriple_flame, lupw_chemspec, mc3h8, min_nucl_radius_cgs, mix_frac_ih, mixture_fraction_element, mmx, mo2, molar_mass_absorb, molar_mass_spec, mreactions, net_react_m, net_react_p, nreactions1, nreactions2, nucleation_rate_coeff_cgs, opposite_flames, opposite_ignitions, p_boil_cgs, p_init, p_net_react_m, p_net_react_p, premixed_equiv_ratio, prerun_1d, prerun_1d_opp, press, reaction_name, read_lewis, read_reactions, read_reactions_mod, read_thermodyn_simple, read_transport_data, rho_full, rhs_y_full, roux, sc_number, scale_homo, sherwood_film_mdot, sijm_, sijm_mod, sijp_, sijp_mod, species_constants, species_viscosity, t_boil_cgs, tinf, tran_data, triple_flame, troe_coeff_abs_max, true_density_cond_spec_cgs, tt_full, ttd, visc_const, vreactions_m, vreactions_p, write_matrices, xx_full, ythresh, z_cloud
Routines:: absorb_spec_lagr(), absorb_spec_lsol(), calc_diagnostics_chemistry(), calc_for_chem_mixture(), calc_pencils_chemistry(), chemistry_allocate_rhs_arrays(), chemistry_before_boundary(), chemistry_clean_up(), chemistry_diags_reductions(), chemistry_init_reduc_pointers(), chemspec_normalization(), chemspec_normalization_n2(), cond_spec_absorb_rate(), cond_spec_cond(), cond_spec_cond_lagr(), cond_spec_film_rate(), cond_spec_lmass(), cond_spec_nucl(), cond_spec_nucl_lagr(), cond_spec_transfer_cv(), condensing_species_rate(), dchemistry_dt(), find_species_index(), get_cs2_full(), get_cs2_slice(), get_gamma_full(), get_gamma_slice(), get_mu1_slice(), get_reac_rate(), get_rhs_y_full(), get_slices_chemistry(), init_chemistry(), initialize_chemistry(), jacobn(), make_flame_index(), make_mixture_fraction(), pencil_criteria_chemistry(), pencil_interdep_chemistry(), read_chemistry_init_pars(), read_chemistry_run_pars(), register_chemistry(), rprint_chemistry(), write_chemistry_init_pars(), write_chemistry_run_pars(), write_net_reaction()

Needed modules

cdata: $Id$
general (keep_compiler_quiet()): $Id$
messages: $Id$

Variables

chemistry/lnucleii_generated (*,*,*) [logical,public/allocatable]
chemistry/lreactions [logical,public/optional/default=.false.]
chemistry/rgas [real,public]
chemistry/rgas_unit_sys [real,private]
chemistry/species_constants (0,0) [real,public]

Subroutines and functions

subroutine chemistry/register_chemistry()

Called from:: register_modules()

subroutine chemistry/initialize_chemistry(f)

Parameters:: f (mx,my,mz,mfarray) [real]
Called from:: register_modules(), initialize_modules()

subroutine chemistry/chemistry_allocate_rhs_arrays()

Called from:: pde(), write_diagnostics(), calc_all_module_diagnostic_auxiliaries()

subroutine chemistry/init_chemistry(f)

Parameters:: f (mx,my,mz,mfarray) [real]
Called from:: start

subroutine chemistry/pencil_criteria_chemistry()

Called from:: register_modules(), initialize_modules(), finalize_modules(), choose_pencils()

subroutine chemistry/pencil_interdep_chemistry(lpencil_in)

Parameters:: lpencil_in (npencils) [logical]
Called from:: register_modules(), initialize_modules(), finalize_modules(), choose_pencils()

subroutine chemistry/chemistry_before_boundary(f)

Parameters:: f (mx,my,mz,mfarray) [real]
Called from:: pde(), write_diagnostics(), calc_all_module_diagnostic_auxiliaries(), perform_diagnostics(), finalize_diagnostics()

subroutine chemistry/calc_pencils_chemistry(f, p)

Parameters:

f (mx,my,mz,mfarray) [real]
p [pencil_case]

Called from:

pde(), write_diagnostics(), calc_all_module_diagnostic_auxiliaries(), perform_diagnostics(), finalize_diagnostics()

subroutine chemistry/calc_for_chem_mixture(f)

Parameters:: f (mx,my,mz,mfarray) [real]
Called from:: pde(), write_diagnostics(), calc_all_module_diagnostic_auxiliaries(), perform_diagnostics(), finalize_diagnostics()

subroutine chemistry/dchemistry_dt(f, df, p)

Parameters:

f (mx,my,mz,mfarray) [real]
df (mx,my,mz,mvar) [real]
p [pencil_case]

Called from:

pde(), write_diagnostics(), calc_all_module_diagnostic_auxiliaries(), perform_diagnostics(), finalize_diagnostics()

subroutine chemistry/calc_diagnostics_chemistry(f, p)

Calculate diagnostic quantities

Parameters:

f (mx,my,mz,mfarray) [real]
p [pencil_case]

Called from:

pde(), write_diagnostics(), calc_all_module_diagnostic_auxiliaries()

subroutine chemistry/rprint_chemistry(lreset[, lwrite])

Parameters:

lreset [logical]
lwrite [logical]

Called from:

register_modules(), initialize_modules(), finalize_modules(), choose_pencils(), rprint_list()

subroutine chemistry/chemspec_normalization(f)

Parameters:: f (mx,my,mz,mfarray) [real]

subroutine chemistry/get_slices_chemistry(f, slices)

Parameters:

f (mx,my,mz,mfarray) [real]
slices [slice_data]

Called from:

wvid_prepare(), wvid()

subroutine chemistry/chemistry_clean_up()

Called from:: helper_loop(), reload(), gen_output(), timeloop(), check_tspec_crit_log_interval(), check_tsnap_crit_log_interval(), check_tvid_crit_log_interval(), setup_signal_files(), print_metrics(), run_start()

subroutine chemistry/read_chemistry_init_pars(iomsg)

Parameters:: iomsg [character,out]
Use :: file_io (parallel_unit())

subroutine chemistry/write_chemistry_init_pars(unit)

Parameters:: unit [integer,in]
Called from:: get_datadir(), get_snapdir(), read_all_init_pars(), read_all_run_pars(), get_downpars()

subroutine chemistry/read_chemistry_run_pars(iomsg)

Parameters:: iomsg [character,out]
Use :: file_io (parallel_unit())

subroutine chemistry/write_chemistry_run_pars(unit)

Parameters:: unit [integer,in]
Called from:: get_datadir(), get_snapdir(), read_all_init_pars(), read_all_run_pars(), get_downpars()

subroutine chemistry/jacobn(f, jacob)

Parameters:

f (mx,my,mz,mfarray) [real]
jacob (mx,my,mz,nchemspec,nchemspec) [real]

subroutine chemistry/get_mu1_slice(f, slice, grad_slice, index, sgn, direction)

Parameters:

f (mx,my,mz,mfarray) [real]
slice (ny,nz) [real,out]
grad_slice (ny,nz) [real,out]
index [integer,in]
sgn [integer,in]
direction [integer,in]

subroutine chemistry/get_gamma_slice(f, slice, index, dir)

Parameters:

f (mx,my,mz,mfarray) [real]
slice (,) [real,out]
index [integer,in]
dir [integer,in]

subroutine chemistry/get_cs2_slice(f, slice, index, dir)

Parameters:

f (mx,my,mz,mfarray) [real]
slice (,) [real,out]
index [integer,in]
dir [integer,in]

subroutine chemistry/get_cs2_full(cs2_full)

Parameters:: cs2_full (mx,my,mz) [real,out]

subroutine chemistry/get_gamma_full(gamma_full)

Parameters:: gamma_full (mx,my,mz) [real,out]

subroutine chemistry/get_rhs_y_full(rhs_y)

Parameters:: rhs_y (mx,my,mz,nchemspec) [real,out]

subroutine chemistry/write_net_reaction()

Called from:: pde(), write_diagnostics()

subroutine chemistry/get_reac_rate(f, p)

Parameters:

f (mx,my,mz,mfarray) [real]
p [pencil_case]

subroutine chemistry/chemspec_normalization_n2(f)

Parameters:: f (mx,my,mz,mfarray) [real]

subroutine chemistry/chemistry_init_reduc_pointers()

Called from:: pde(), write_diagnostics()

subroutine chemistry/chemistry_diags_reductions()

subroutine chemistry/cond_spec_cond(f, df, p, ad, dustbin_width, mfluxcond)

Parameters:

f (mx,my,mz,mfarray) [real]
df (mx,my,mz,mvar) [real]
p [pencil_case]
ad (ndustspec) [real]
dustbin_width [real]
mfluxcond (nx) [real]

subroutine chemistry/cond_spec_nucl(f, df, p, kk_vec, ad)

Parameters:

f (mx,my,mz,mfarray) [real]
df (mx,my,mz,mvar) [real]
p [pencil_case]
kk_vec (nx) [integer]
ad (ndustspec) [real]

subroutine chemistry/condensing_species_rate(p, mfluxcond)

Parameters:

p [pencil_case]
mfluxcond (nx) [real]

Called from:

register_particles_radius(), initialize_particles_radius(), set_particle_radius(), pencil_criteria_par_radius(), dap_dt_pencil(), calc_diagnostics_particles_rad()

subroutine chemistry/cond_spec_cond_lagr(f, df, p, rp, ix0, ix, np_swarm, dapdt)

Parameters:

f (mx,my,mz,mfarray) [real]
df (mx,my,mz,mvar) [real]
p [pencil_case]
rp [real]
ix0 [integer]
ix [integer]
np_swarm [real]
dapdt [real]

Called from:

register_particles_radius(), initialize_particles_radius(), set_particle_radius(), pencil_criteria_par_radius(), dap_dt_pencil(), calc_diagnostics_particles_rad()

subroutine chemistry/cond_spec_film_rate(p, ix, tdrop, ap, urel, dapdt)

Parameters:

p [pencil_case]
ix [integer]
tdrop [real]
ap [real]
urel [real]
dapdt [real]

Called from:

register_particles_radius(), initialize_particles_radius(), set_particle_radius(), pencil_criteria_par_radius(), dap_dt_pencil(), calc_diagnostics_particles_rad()

subroutine chemistry/cond_spec_lmass(lmass)

Parameters:: lmass [real]
Called from:: register_particles_radius(), initialize_particles_radius(), set_particle_radius(), pencil_criteria_par_radius(), dap_dt_pencil(), calc_diagnostics_particles_rad()

subroutine chemistry/cond_spec_transfer_cv(ix0, cv_cond, cv_absorb)

Parameters:

ix0 [integer]
cv_cond [real]
cv_absorb [real]

Called from:

register_particles_radius(), initialize_particles_radius(), set_particle_radius(), pencil_criteria_par_radius(), dap_dt_pencil(), calc_diagnostics_particles_rad()

subroutine chemistry/cond_spec_absorb_rate(p, ix, tdrop, ap, mn, mw, urel, mdotn)

Parameters:

p [pencil_case]
ix [integer]
tdrop [real]
ap [real]
mn [real]
mw [real]
urel [real]
mdotn [real]

Called from:

register_particles_radius(), initialize_particles_radius(), set_particle_radius(), pencil_criteria_par_radius(), dap_dt_pencil(), calc_diagnostics_particles_rad()

subroutine chemistry/absorb_spec_lagr(f, df, p, ix0, ix, np_swarm, mdotn)

Parameters:

f (mx,my,mz,mfarray) [real]
df (mx,my,mz,mvar) [real]
p [pencil_case]
ix0 [integer]
ix [integer]
np_swarm [real]
mdotn [real]

Called from:

register_particles_radius(), initialize_particles_radius(), set_particle_radius(), pencil_criteria_par_radius(), dap_dt_pencil(), calc_diagnostics_particles_rad()

subroutine chemistry/absorb_spec_lsol(lsol)

Parameters:: lsol [real]
Called from:: register_particles_radius(), initialize_particles_radius(), set_particle_radius(), pencil_criteria_par_radius(), dap_dt_pencil(), calc_diagnostics_particles_rad()

subroutine chemistry/cond_spec_nucl_lagr(f, df, p)

Parameters:

f (mx,my,mz,mfarray) [real]
df (mx,my,mz,mvar) [real]
p [pencil_case]

Called from:

register_pscalar(), initialize_pscalar(), init_lncc(), pencil_criteria_pscalar(), pencil_interdep_pscalar(), calc_pencils_pscalar(), dlncc_dt()

subroutine chemistry/make_flame_index(f)

Parameters:: f (mx,my,mz,mfarray) [real]

subroutine chemistry/make_mixture_fraction(f)

Calculate Bilger mixture fraction and store in f-array.

Parameters:: f (mx,my,mz,mfarray) [real]