particles_temperature

Module

Description

$Id: particles_temperature.f90 21950 2014-07-08 08:53:00Z michiel.lambrechts $

This module takes care of everything related to inertial particles.

** AUTOMATIC CPARAM.INC GENERATION ************************

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

MPVAR CONTRIBUTION 1 CPARAM logical, parameter :: lparticles_temperature=.true.

PENCILS PROVIDED TTp


Quick access

Variables:

calc_pencil_rep_nu, cp_part, emissivity, idiag_etpm, idiag_tpm, idmpt, im_part_ref, init_part_temp, init_particle_temperature, lconst_part_temp, lconv_heating, ldifftt, ldiffuse_backtemp, lpart_nuss_const, lpart_temp_backreac, lrad_part, lrayleigh_rad_limit, lstefan_flow, mdot_film, ndiffsteptt, null, rdiffconsttt, twall, weight_array

Routines:

dptt_dt(), dptt_dt_pencil(), init_particles_tt(), initialize_particles_tt(), particles_tt_prepencil_calc(), pencil_criteria_par_tt(), read_particles_tt_init_pars(), read_particles_tt_run_pars(), register_particles_tt(), rprint_particles_tt(), write_particles_tt_init_pars(), write_particles_tt_run_pars()

Needed modules

Variables

  • particles_temperature/calc_pencil_rep_nu [private]
  • particles_temperature/cp_part [real,private/optional/default=7110000.0]

    wolframalpha, erg/(g*K)

  • particles_temperature/emissivity [real,private/optional/default=0.0]
  • particles_temperature/idiag_etpm [integer,private/optional/default=0]
  • particles_temperature/idiag_tpm [integer,private/optional/default=0]
  • particles_temperature/idmpt [integer,private/optional/default=0]
  • particles_temperature/im_part_ref [real,private/optional/default=-0.279]
  • particles_temperature/init_part_temp [real,private/optional/default=0.0]
  • particles_temperature/init_particle_temperature (ninit) [character,private/optional/default='nothing']
  • particles_temperature/lconst_part_temp [logical,private/optional/default=.false.]
  • particles_temperature/lconv_heating [logical,private/optional/default=.true.]
  • particles_temperature/ldifftt [logical,private/optional/default=.false.]
  • particles_temperature/ldiffuse_backtemp [logical,private/optional/default=.false.]
  • particles_temperature/lpart_nuss_const [logical,private/optional/default=.false.]
  • particles_temperature/lpart_temp_backreac [logical,private/optional/default=.true.]
  • particles_temperature/lrad_part [logical,private/optional/default=.false.]
  • particles_temperature/lrayleigh_rad_limit [logical,private/optional/default=.false.]
  • particles_temperature/lstefan_flow [logical,private/optional/default=.true.]
  • particles_temperature/mdot_film (*) [real,private/pointer/optional/default=>]
  • particles_temperature/ndiffsteptt [integer,private/optional/default=3]
  • particles_temperature/null (*) [real,private/pointer]
  • particles_temperature/rdiffconsttt [real,private/optional/default=0.1178]
  • particles_temperature/twall [real,private/optional/default=0.0]
  • particles_temperature/weight_array (*,*,*) [real,private/allocatable]

Subroutines and functions

subroutine  particles_temperature/register_particles_tt()

Set up indices for access to the fp and dfp arrays

27-aug-14/jonas+nils: coded

Use :

farraymanager (farray_register_auxiliary()), sharedvariables (put_shared_variable())

Called from:

particles_register_modules()

Call to:

svn_id(), append_npvar(), fatal_error(), not_implemented(), find_weight_array_dims(), precalc_weights(), boundconds_x(), initiate_isendrcv_bdry(), finalize_isendrcv_bdry(), boundconds_y(), boundconds_z(), diffuse_interaction(), sum_par_name(), get_temperature_chemistry(), find_interpolation_indeces(), getnu()

subroutine  particles_temperature/initialize_particles_tt(f)

Perform any post-parameter-read initialization i.e. calculate derived parameters.

28-aug-14/jonas+nils: coded

Parameters:

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

Use :

sharedvariables (get_shared_variable())

Called from:

particles_register_modules(), particles_rprint_list(), particles_initialize_modules()

Call to:

not_implemented(), find_weight_array_dims(), precalc_weights(), fatal_error(), boundconds_x(), initiate_isendrcv_bdry(), finalize_isendrcv_bdry(), boundconds_y(), boundconds_z(), diffuse_interaction(), sum_par_name(), get_temperature_chemistry(), find_interpolation_indeces(), getnu()

subroutine  particles_temperature/init_particles_tt(f, fp)

Initial particle temperature

28-aug-14/jonas+nils: coded

Parameters:
Called from:

particles_register_modules(), particles_rprint_list(), particles_initialize_modules(), particles_init()

Call to:

fatal_error(), boundconds_x(), initiate_isendrcv_bdry(), finalize_isendrcv_bdry(), boundconds_y(), boundconds_z(), diffuse_interaction(), sum_par_name(), get_temperature_chemistry(), find_interpolation_indeces(), getnu()

subroutine  particles_temperature/pencil_criteria_par_tt()

All pencils that the Particles_temperature module depends on are specified here

29-aug-14/jonas+nils: coded

Called from:

particles_register_modules(), particles_rprint_list(), particles_initialize_modules(), particles_init(), particles_finalize(), particles_read_snapshot(), particles_write_snapshot(), particles_write_dsnapshot(), particles_write_pdim(), particles_write_block(), particles_write_rmv(), particles_timestep_first(), particles_timestep_second(), split_update_particles(), particles_load_balance(), particles_boundconds(), particles_pencil_criteria(), particles_calc_selfpotential(), particles_before_boundary(), particles_special_bfre_bdary(), particles_special_after_dtsub(), read_all_particles_init_pars(), read_all_particles_run_pars(), write_dim_particles(), write_snapshot_particles(), read_snapshot_particles()

Call to:

boundconds_x(), initiate_isendrcv_bdry(), finalize_isendrcv_bdry(), boundconds_y(), boundconds_z(), diffuse_interaction(), sum_par_name(), fatal_error(), get_temperature_chemistry(), find_interpolation_indeces(), getnu()

subroutine  particles_temperature/dptt_dt(f, df, fp, dfp, ineargrid)

Evolution of particle temperature.

28-aug-14/jonas+nils: coded

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

  • df (mx,my,mz,mvar) [real]

  • fp (mpar_loc,mparray) [real]

  • dfp (mpar_loc,mpvar) [real]

  • ineargrid (mpar_loc,3) [integer]

Use :

boundcond, mpicomm

Called from:

particles_register_modules(), particles_rprint_list(), particles_initialize_modules(), particles_init(), particles_finalize(), particles_read_snapshot(), particles_write_snapshot(), particles_write_dsnapshot(), particles_write_pdim(), particles_write_block(), particles_write_rmv(), particles_timestep_first(), particles_timestep_second(), split_update_particles(), particles_load_balance(), particles_boundconds(), particles_pencil_criteria(), particles_pencil_interdep(), particles_calc_pencils(), particles_calc_selfpotential(), particles_before_boundary(), particles_special_bfre_bdary(), particles_special_after_dtsub(), particles_pde(), read_all_particles_init_pars(), read_all_particles_run_pars(), write_dim_particles(), write_snapshot_particles(), read_snapshot_particles()

Call to:

boundconds_x(), initiate_isendrcv_bdry(), finalize_isendrcv_bdry(), boundconds_y(), boundconds_z(), diffuse_interaction(), sum_par_name(), fatal_error(), get_temperature_chemistry(), find_interpolation_indeces(), getnu()

subroutine  particles_temperature/dptt_dt_pencil(f, df, fp, dfp, p, ineargrid)

Evolution of particle temperature.

28-aug-14/jonas+nils: coded

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

  • df (mx,my,mz,mvar) [real,inout]

  • fp (mpar_loc,mparray) [real,inout]

  • dfp (mpar_loc,mpvar) [real,inout]

  • p [pencil_case]

  • ineargrid (mpar_loc,3) [integer,in]

Use :

viscosity (getnu())

Called from:

particles_register_modules(), particles_rprint_list(), particles_initialize_modules(), particles_init(), particles_finalize(), particles_read_snapshot(), particles_write_snapshot(), particles_write_dsnapshot(), particles_write_pdim(), particles_write_block(), particles_write_rmv(), particles_timestep_first(), particles_timestep_second(), split_update_particles(), particles_load_balance(), particles_boundconds(), particles_pencil_criteria(), particles_pencil_interdep(), particles_calc_pencils(), particles_calc_selfpotential(), particles_before_boundary(), particles_special_bfre_bdary(), particles_special_after_dtsub(), particles_pde(), particles_pde_pencil(), read_all_particles_init_pars(), read_all_particles_run_pars(), write_dim_particles(), write_snapshot_particles(), read_snapshot_particles()

Call to:

fatal_error(), get_temperature_chemistry(), find_interpolation_indeces(), getnu()

subroutine  particles_temperature/read_particles_tt_init_pars(iomsg)
Parameters:

iomsg [character,out]

Use :

file_io (parallel_unit())

Call to:

getnu(), fatal_error()

subroutine  particles_temperature/write_particles_tt_init_pars(unit)
Parameters:

unit [integer,in]

Called from:

particles_register_modules(), particles_rprint_list(), particles_initialize_modules(), particles_init(), particles_finalize(), particles_read_snapshot(), particles_write_snapshot(), particles_write_dsnapshot(), particles_write_pdim(), particles_write_block(), particles_write_rmv(), particles_timestep_first(), particles_timestep_second(), split_update_particles(), particles_load_balance(), particles_boundconds(), particles_pencil_criteria(), particles_pencil_interdep(), particles_calc_pencils(), particles_calc_selfpotential(), particles_before_boundary(), particles_special_bfre_bdary(), particles_special_after_dtsub(), particles_pde(), particles_pde_pencil(), particles_calc_pencil_diags(), particles_pde_blocks(), read_all_particles_init_pars(), write_all_particles_init_pars(), read_all_particles_run_pars(), write_dim_particles(), write_snapshot_particles(), read_snapshot_particles()

Call to:

getnu(), fatal_error()

subroutine  particles_temperature/read_particles_tt_run_pars(iomsg)
Parameters:

iomsg [character,out]

Use :

file_io (parallel_unit())

Call to:

getnu(), fatal_error()

subroutine  particles_temperature/write_particles_tt_run_pars(unit)
Parameters:

unit [integer,in]

Called from:

particles_register_modules(), particles_rprint_list(), particles_initialize_modules(), particles_init(), particles_finalize(), particles_read_snapshot(), particles_write_snapshot(), particles_write_dsnapshot(), particles_write_pdim(), particles_write_block(), particles_write_rmv(), particles_timestep_first(), particles_timestep_second(), split_update_particles(), particles_load_balance(), particles_boundconds(), particles_pencil_criteria(), particles_pencil_interdep(), particles_calc_pencils(), particles_calc_selfpotential(), particles_before_boundary(), particles_special_bfre_bdary(), particles_special_after_dtsub(), particles_pde(), particles_pde_pencil(), particles_calc_pencil_diags(), particles_pde_blocks(), read_all_particles_init_pars(), write_all_particles_init_pars(), read_all_particles_run_pars(), write_all_particles_run_pars(), write_dim_particles(), write_snapshot_particles(), read_snapshot_particles()

Call to:

getnu(), fatal_error()

subroutine  particles_temperature/rprint_particles_tt(lreset[, lwrite])

Read and register print parameters relevant for particles temperature.

28-aug-14/jonas+nils: coded

Parameters:
  • lreset [logical]

  • lwrite [logical]

Use :

diagnostics

Called from:

particles_register_modules(), particles_rprint_list()

Call to:

getnu(), fatal_error()

subroutine  particles_temperature/particles_tt_prepencil_calc(f)

28-aug-14/jonas+nils: coded

Parameters:

f (mx,my,mz,mfarray) [real,inout]

Call to:

getnu(), fatal_error()