mod_radiative_cooling_ffhd

Uses

- mod_physics_vars
- mod_global_parameters
- mod_comm_lib
Help

Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.

Variables

Type	Visibility		Name
double precision,	public	::	l_Colgan(1:55)
double precision,	public	::	l_DM_2(1:76)
double precision,	public	::	l_JCcorona(1:45)
double precision,	public	::	l_TRML_narrow(1:100)
double precision,	public	::	l_TRML_wide(1:100)
integer,	public	::	n_Colgan
integer,	public	::	n_DM_2
integer,	public	::	n_JCcorona
integer,	public	::	n_TRML_narrow
integer,	public	::	n_TRML_wide
type(rc_fluid),	public	::	rc_fl
double precision,	public	::	t_Colgan(1:55)
double precision,	public	::	t_DM_2(1:76)
double precision,	public	::	t_JCcorona(1:45)
double precision,	public	::	t_TRML_narrow(1:100)
double precision,	public	::	t_TRML_wide(1:100)
double precision,	private	::	He_abundance_rc	to be pushed to the device Helium abundance over Hydrogen
double precision,	private	::	invgam	inverse of the adiabatic index minus 1
double precision,	private	::	rc_gamma	The adiabatic index
double precision,	private	::	rc_gamma_1	The adiabatic index minus 1

Derived Types

type, public :: rc_fluid

Components

Type	Visibility	Attributes		Name
double precision,	public,	allocatable	::	Lcool(:)
integer,	public		::	Tcoff_	Index of cut off temperature for TRAC
logical,	public		::	Tfix	Fixed temperature not lower than tlow
double precision,	public,	allocatable	::	Yc(:)
double precision,	public		::	cfrac	Coefficent of cooling time step
character(len=std_len),	public		::	coolcurve	Name of cooling curve
character(len=std_len),	public		::	coolmethod	Name of cooling method
double precision,	public		::	lgstep
double precision,	public		::	lgtcoolmax
double precision,	public		::	lgtcoolmin
double precision,	public		::	lref
integer,	public		::	n_PPL
integer,	public		::	ncool	Resolution of temperature in interpolated tables
logical,	public		::	rad_cut	cutoff radiative cooling below rad_cut_hgt
double precision,	public		::	rad_cut_dey
double precision,	public		::	rad_cut_hgt
double precision,	public,	allocatable	::	tcool(:)
double precision,	public		::	tcoolmax
double precision,	public		::	tcoolmin
double precision,	public		::	tlow	Lower limit of temperature
double precision,	public		::	tref

Functions

public pure function get_Rfactor() result(Rfactor)

Arguments

None

Return Value real(kind=dp)

public pure function get_pthermal(w, x) result(pth)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	w(nw_phys)
real(kind=dp),	intent(in)			::	x(1:ndim)

Return Value real(kind=dp)

public pure function get_rho(w, x) result(rho)

get physical quantities from simulation result in specific physics module

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	w(nw_phys)
real(kind=dp),	intent(in)			::	x(1:ndim)

Return Value real(kind=dp)

Subroutines

public subroutine calc_l_extended(tpoint, lpoint, fl)

Arguments

Type	Intent		Name
double precision,	intent(in)	::	tpoint
double precision,	intent(out)	::	lpoint
type(rc_fluid),	intent(in)	::	fl

public subroutine cool_exact(qdt, wCT, wCTprim, wnew, x, fl)

Arguments

Type	Intent		Name
double precision,	intent(in)	::	qdt
double precision,	intent(in)	::	wCT(nw_phys)
double precision,	intent(in)	::	wCTprim(nw_phys)
double precision,	intent(inout)	::	wnew(nw_phys)
double precision,	intent(in)	::	x(1:ndim)
type(rc_fluid),	intent(in)	::	fl

public subroutine findL(tpoint, Lpoint, fl)

Arguments

Type	Intent		Name
double precision,	intent(in)	::	tpoint
double precision,	intent(out)	::	Lpoint
type(rc_fluid),	intent(in)	::	fl

public subroutine findT(tpoint, Ypoint, fl)

Arguments

Type	Intent		Name
double precision,	intent(out)	::	tpoint
double precision,	intent(in)	::	Ypoint
type(rc_fluid),	intent(in)	::	fl

public subroutine findY(tpoint, Ypoint, fl)

Arguments

Type	Intent		Name
double precision,	intent(in)	::	tpoint
double precision,	intent(out)	::	Ypoint
type(rc_fluid),	intent(in)	::	fl

public subroutine floortemperature(qdt, wCT, wnew, x, fl)

Arguments

Type	Intent		Name
double precision,	intent(in)	::	qdt
double precision,	intent(in)	::	wCT(nw_phys)
double precision,	intent(inout)	::	wnew(nw_phys)
double precision,	intent(in)	::	x(1:ndim)
type(rc_fluid),	intent(in)	::	fl

public subroutine getvar_cooling_exact(qdt, wCT, w, x, coolrate, fl)

Arguments

Type	Intent		Name
double precision,	intent(in)	::	qdt
double precision,	intent(in)	::	wCT(nw_phys)
double precision,	intent(in)	::	w(nw_phys)
double precision,	intent(in)	::	x(1:ndim)
double precision,	intent(inout)	::	coolrate
type(rc_fluid),	intent(in)	::	fl

public subroutine radiative_cooling_add_source(qdt, wCT, wCTprim, wnew, x)

Arguments

Type	Intent		Name
double precision,	intent(in)	::	qdt
double precision,	intent(in)	::	wCT(nw_phys)
double precision,	intent(in)	::	wCTprim(nw_phys)
double precision,	intent(inout)	::	wnew(nw_phys)
double precision,	intent(in)	::	x(1:ndim)

public subroutine radiative_cooling_init(fl)

the params require to be read in phys template file phys_init

Arguments

Type	Intent	Optional	Attributes		Name
type(rc_fluid),	intent(inout)			::	fl

public subroutine radiative_cooling_init_params(phys_gamma, He_abund)

Radiative cooling initialization

Arguments

Type	Intent	Optional	Attributes		Name
double precision,	intent(in)			::	phys_gamma
double precision,	intent(in)			::	He_abund

mod_radiative_cooling_ffhd Module

Contents

Variables

Derived Types

Functions

Subroutines

Uses

Variables

Derived Types

type, public :: rc_fluid

Components

Functions

public pure function get_Rfactor() result(Rfactor)

Arguments

Return Value real(kind=dp)

public pure function get_pthermal(w, x) result(pth)

Arguments

Return Value real(kind=dp)

public pure function get_rho(w, x) result(rho)

Arguments

Return Value real(kind=dp)

Subroutines

public subroutine calc_l_extended(tpoint, lpoint, fl)

Arguments

public subroutine cool_exact(qdt, wCT, wCTprim, wnew, x, fl)

Arguments

public subroutine findL(tpoint, Lpoint, fl)

Arguments

public subroutine findT(tpoint, Ypoint, fl)

Arguments

public subroutine findY(tpoint, Ypoint, fl)

Arguments

public subroutine floortemperature(qdt, wCT, wnew, x, fl)

Arguments

public subroutine getvar_cooling_exact(qdt, wCT, w, x, coolrate, fl)

Arguments

public subroutine radiative_cooling_add_source(qdt, wCT, wCTprim, wnew, x)

Arguments

public subroutine radiative_cooling_init(fl)

Arguments

public subroutine radiative_cooling_init_params(phys_gamma, He_abund)

Arguments