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)
 
  ! Physical constants
  ! TODO: add sign. digits
  real(dp), parameter :: uc_eps0             = 8.8541878176d-12        ! permitivity of vacuum (SI)
  real(dp), parameter :: uc_elem_charge      = 1.6022d-19              ! the elementary charge in Coulombs
  real(dp), parameter :: uc_elec_charge      = -1.6022d-19             ! the electron charge in Coulombs
  real(dp), parameter :: uc_elec_volt        = 1.6022d-19              ! the eV in joules
  real(dp), parameter :: uc_elec_mass        = 9.10938189d-31          ! the electron mass in kg
  real(dp), parameter :: uc_atomic_mass      = 1.66053886d-27          ! the atomic mass unit in kg
  real(dp), parameter :: uc_n2_mass          = 28.0d0 * uc_atomic_mass ! The mass of a N2 molecule
  real(dp), parameter :: uc_o2_mass          = 32.0d0 * uc_atomic_mass ! The mass of an O2 molecule
  real(dp), parameter :: uc_lightspeed       = 299792458d0             ! the speed of light in m/s
  real(dp), parameter :: uc_boltzmann_const  = 1.3806503d-23           ! the Boltzmann constant
  real(dp), parameter :: uc_bohr_radius      = 5.29d-11                ! the Bohr radius (m)
  real(dp), parameter :: uc_torr_to_bar      = 133.322368 * 1.0d-5     ! one Torr in units of bar
  real(dp), parameter :: uc_elec_q_over_eps0 = uc_elec_charge / uc_eps0
  real(dp), parameter :: uc_elec_q_over_m    = uc_elec_charge / uc_elec_mass
 
end module m_units_constants