![]() |
The thermal_neutrino_module serves as interface to the neutrino emission routines from the sneut5.f90 file. More...
Functions/Subroutines | |
subroutine, public | thermal_neutrino_init () |
Initializes the thermal_neutrino_module. More... | |
subroutine, public | thermal_neutrinos (abar, Ye, temp, den, timestep, neutrino_loss) |
Calculates the neutrino emissivity. More... | |
Variables | |
real(r_kind), save, public | snu = 0 |
Neutrino emissivity (erg/g) More... | |
real(r_kind), save, public | spair = 0 |
Pair production emissivity (erg/g) More... | |
real(r_kind), save, public | splas = 0 |
Plasmon emission emissivity (erg/g) More... | |
real(r_kind), save, public | sphot = 0 |
Photo neutrino emissivity (erg/g) More... | |
real(r_kind), save, public | sbrem = 0 |
Bremsstrahlung emissivity (erg/g) More... | |
real(r_kind), save, public | sreco = 0 |
Recombination neutrino emissivity (erg/g) More... | |
The thermal_neutrino_module serves as interface to the neutrino emission routines from the sneut5.f90 file.
The thermal_neutrino_module is based on the fit of Itoh et al. 1996 accessed via Cococubed.
subroutine, public thermal_neutrino_module::thermal_neutrino_init |
Initializes the thermal_neutrino_module.
This subroutine is called in the initialization of the code. It only contains debug statements.
Definition at line 47 of file thermal_neutrino_module.f90.
subroutine, public thermal_neutrino_module::thermal_neutrinos | ( | real(r_kind), intent(in) | abar, |
real(r_kind), intent(in) | Ye, | ||
real(r_kind), intent(in) | temp, | ||
real(r_kind), intent(in) | den, | ||
real(r_kind), intent(in) | timestep, | ||
real(r_kind), intent(out) | neutrino_loss | ||
) |
Calculates the neutrino emissivity.
This subroutine is an interface to the subroutine sneut5_aa from the sneut5.f90 file. It calculates the neutrino emissivity and its derivatives with respect to temperature, density, average mass number and average atomic number. The derivatives are not used in the current version of the code. The file sneut5.f90 is based on the fit of Itoh et al. 1996 accessed via Cococubed.
[in] | abar | Average mass number |
[in] | ye | Electron fraction |
[in] | temp | Temperature (GK) |
[in] | den | Density (g/cm^3) |
[in] | timestep | Timestep (s) |
[out] | neutrino_loss | Neutrino emissivity (erg/s/cm^3) |
Definition at line 108 of file thermal_neutrino_module.f90.
real(r_kind), save, public thermal_neutrino_module::sbrem = 0 |
Bremsstrahlung emissivity (erg/g)
Definition at line 26 of file thermal_neutrino_module.f90.
real(r_kind), save, public thermal_neutrino_module::snu = 0 |
Neutrino emissivity (erg/g)
Definition at line 22 of file thermal_neutrino_module.f90.
real(r_kind), save, public thermal_neutrino_module::spair = 0 |
Pair production emissivity (erg/g)
Definition at line 23 of file thermal_neutrino_module.f90.
real(r_kind), save, public thermal_neutrino_module::sphot = 0 |
Photo neutrino emissivity (erg/g)
Definition at line 25 of file thermal_neutrino_module.f90.
real(r_kind), save, public thermal_neutrino_module::splas = 0 |
Plasmon emission emissivity (erg/g)
Definition at line 24 of file thermal_neutrino_module.f90.
real(r_kind), save, public thermal_neutrino_module::sreco = 0 |
Recombination neutrino emissivity (erg/g)
Definition at line 27 of file thermal_neutrino_module.f90.