m_units_constants.f90

Go to the documentation of this file.

!> Module that contains physical and numerical constants
module m_units_constants
  implicit none
  public
 
  integer, parameter, private :: dp          = kind(0.0d0)
 
  ! Numerical constants
  real(dp), parameter :: uc_pi               = acos(-1.0_dp)
 
  ! Permitivity of vacuum (SI)
  real(dp), parameter :: uc_eps0             = 8.8541878128e-12_dp
 
  ! The elementary charge in Coulombs
  real(dp), parameter :: uc_elem_charge      = 1.602176634e-19_dp
 
  ! The electron charge in Coulombs
  real(dp), parameter :: uc_elec_charge      = -uc_elem_charge
 
  ! The eV in joules
  real(dp), parameter :: uc_elec_volt        = uc_elem_charge
 
  ! The electron mass in kg
  real(dp), parameter :: uc_elec_mass        = 9.1093837015e-31_dp
 
  ! The atomic mass unit in kg
  real(dp), parameter :: uc_atomic_mass      = 1.6605390666e-27_dp
 
  ! The mass of a N2 molecule
  real(dp), parameter :: uc_n2_mass          = 28.0d0 * uc_atomic_mass
 
  ! The mass of an O2 molecule
  real(dp), parameter :: uc_o2_mass          = 32.0d0 * uc_atomic_mass
 
  ! The speed of light in m/s
  real(dp), parameter :: uc_lightspeed       = 299792458.0_dp
 
  ! The Boltzmann constant in J/K
  real(dp), parameter :: uc_boltzmann_const  = 1.380649e-23_dp
 
  ! The Bohr radius (m)
  real(dp), parameter :: uc_bohr_radius      = 5.29177210903e-11_dp
 
  ! One Torr in units of bar
  real(dp), parameter :: uc_torr_to_bar      = 133.32236842105263_dp * 1.0e-5_dp
 
  ! Electron charge over epsilon0
  real(dp), parameter :: uc_elec_q_over_eps0 = uc_elec_charge / uc_eps0
 
  ! Electron charge over electron mass
  real(dp), parameter :: uc_elec_q_over_m    = uc_elec_charge / uc_elec_mass
 
end module m_units_constants