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) :: accom_coeff = 1d0
39 real(kind=dp) :: water_eq_vap_press = 611d0
41 real(kind=dp) :: water_freeze_temp = 273.15d0
43 real(kind=dp) :: water_surf_eng = 0.073d0
45 real(kind=dp) :: water_latent_heat = 2.272d6
47 real(kind=dp) :: air_spec_heat = 1005d0
49 real(kind=dp) :: water_molec_weight = 18d-3
51 real(kind=dp) :: water_density = 1d3
54 real(kind=dp) :: air_molec_weight = 2.89644d-2
56 real(kind=dp) :: air_std_press = 101325d0
58 real(kind=dp) :: air_dyn_visc = 1.78d-5