Homec4science
Diffusion nonlinear diocotron solver (master) Browse

nonlindioc/src/constants.f90
0b252c046024master

Last Change
Raw File

constants.f90
View Options

!---------------------------------------------------------------------------
! DESCRIPTION:
! Define some constants
!---------------------------------------------------------------------------
MODULE constants
INTEGER, PARAMETER :: dprequestedprec = 15
INTEGER, PARAMETER :: db = SELECTED_REAL_KIND(dprequestedprec)
REAL(kind=db), PARAMETER :: vlight = 299792458.0_db ! c
REAL(kind=db), PARAMETER :: vacimp = 376.73031346177066_db ! \mu_0*c
REAL(kind=db), PARAMETER :: eev = 510998.89613320108_db ! m_e*c^2/e
REAL(kind=db), PARAMETER :: me = 9.109383E-31 ! electron mass [kg]
REAL(kind=db), PARAMETER :: pi = 3.141592653589793_db
REAL(kind=db), PARAMETER :: elchar = 1.60217662E-19_db ! electron charge [C]
REAL(kind=db), PARAMETER :: eps_0 = 8.85418781762E-12_db ! electric constant [F/m]
REAL(kind=db), PARAMETER :: mu_0 = 4.0_db*pi*1.0e-7_db ! magnetic constant [H/m]
REAL(kind=db), PARAMETER :: kb = 1.38064852E-23_db ! Boltzman constant [J/K]
END MODULE constants
c4science · Help