12 integer,
parameter ::
dp = kind(0.d0)
14 integer,
parameter ::
dc =
dp 28 real(kind=dp) :: pi = 3.14159265358979323846d0
30 real(kind=dp) :: boltzmann = 1.3806505d-23
32 real(kind=dp) :: avagadro = 6.02214179d23
34 real(kind=dp) :: univ_gas_const = 8.314472d0
36 real(kind=dp) :: std_grav = 9.80665d0
38 real(kind=dp) :: accom_coeff = 1d0
41 real(kind=dp) :: water_eq_vap_press = 611d0
43 real(kind=dp) :: water_freeze_temp = 273.15d0
45 real(kind=dp) :: water_surf_eng = 0.073d0
47 real(kind=dp) :: water_latent_heat = 2.272d6
49 real(kind=dp) :: air_spec_heat = 1005d0
51 real(kind=dp) :: water_molec_weight = 18d-3
53 real(kind=dp) :: water_density = 1d3
56 real(kind=dp) :: air_molec_weight = 2.89644d-2
58 real(kind=dp) :: air_std_press = 101325d0
60 real(kind=dp) :: air_dyn_visc = 1.78d-5
integer, parameter dp
Kind of a double precision real number.
type(const_t), save const
Fixed variable for accessing the constant's values.
integer, parameter dc
Kind of a double precision complex number.