38 use machine,
only: kind_phys, kind_dyn
46 real(kind=kind_phys),
parameter:: con_pi =4.0d0*atan(1.0d0)
47 real(kind=kind_phys),
parameter:: con_sqrt2 =1.414214e+0_kind_phys
48 real(kind=kind_phys),
parameter:: con_sqrt3 =1.732051e+0_kind_phys
51 real(kind=kind_phys),
parameter:: con_rerth =6.3712e+6_kind_phys
52 real(kind=kind_phys),
parameter:: con_g =9.80665e+0_kind_phys
53 real(kind=kind_phys),
parameter:: con_omega =7.2921e-5_kind_phys
54 real(kind=kind_phys),
parameter:: con_p0 =1.01325e5_kind_phys
56 real(kind=kind_phys),
parameter:: con_solr_2002 =1.3660e+3_kind_phys
57 real(kind=kind_phys),
parameter:: con_solr_2008 =1.3608e+3_kind_phys
60 real(kind=kind_dyn),
parameter:: con_g_dyn =9.80665e+0_kind_dyn
63 real(kind=kind_phys),
parameter:: con_rgas =8.314472_kind_phys
64 real(kind=kind_phys),
parameter:: con_rd =2.8705e+2_kind_phys
65 real(kind=kind_phys),
parameter:: con_rv =4.6150e+2_kind_phys
66 real(kind=kind_phys),
parameter:: con_cp =1.0046e+3_kind_phys
67 real(kind=kind_phys),
parameter:: con_cv =7.1760e+2_kind_phys
68 real(kind=kind_phys),
parameter:: con_cvap =1.8460e+3_kind_phys
69 real(kind=kind_phys),
parameter:: con_cliq =4.1855e+3_kind_phys
70 real(kind=kind_phys),
parameter:: con_csol =2.1060e+3_kind_phys
71 real(kind=kind_phys),
parameter:: con_hvap =2.5000e+6_kind_phys
73 real(kind=kind_phys),
parameter:: con_hfus =3.3358e+5_kind_phys
75 real(kind=kind_phys),
parameter:: con_psat =6.1078e+2_kind_phys
76 real(kind=kind_phys),
parameter:: con_t0c =2.7315e+2_kind_phys
77 real(kind=kind_phys),
parameter:: con_ttp =2.7316e+2_kind_phys
78 real(kind=kind_phys),
parameter:: con_tice =2.7120e+2_kind_phys
79 real(kind=kind_phys),
parameter:: con_jcal =4.1855e+0_kind_phys
80 real(kind=kind_phys),
parameter:: con_rhw0 =1022.0_kind_phys
81 real(kind=kind_phys),
parameter:: con_epsq =1.0e-12_kind_phys
82 real(kind=kind_phys),
parameter:: con_epsqs =1.0e-10_kind_phys
84 real(kind=kind_dyn),
parameter:: con_rd_dyn =2.8705e+2_kind_dyn
85 real(kind=kind_dyn),
parameter:: con_rv_dyn =4.6150e+2_kind_dyn
86 real(kind=kind_dyn),
parameter:: con_cp_dyn =1.0046e+3_kind_dyn
87 real(kind=kind_dyn),
parameter:: con_hvap_dyn =2.5000e+6_kind_dyn
88 real(kind=kind_dyn),
parameter:: con_hfus_dyn =3.3358e+5_kind_dyn
91 real(kind=kind_phys),
parameter:: con_rocp =con_rd/con_cp
92 real(kind=kind_phys),
parameter:: con_cpor =con_cp/con_rd
93 real(kind=kind_phys),
parameter:: con_rog =con_rd/con_g
94 real(kind=kind_phys),
parameter:: con_fvirt =con_rv/con_rd-1.
95 real(kind=kind_phys),
parameter:: con_eps =con_rd/con_rv
96 real(kind=kind_phys),
parameter:: con_epsm1 =con_rd/con_rv-1.
97 real(kind=kind_phys),
parameter:: con_dldt =con_cvap-con_cliq
98 real(kind=kind_phys),
parameter:: con_xpona =-con_dldt/con_rv
99 real(kind=kind_phys),
parameter:: con_xponb =-con_dldt/con_rv+con_hvap/(con_rv*con_ttp)
100 real(kind=kind_phys),
parameter:: con_1ovg = 1._kind_phys/con_g
103 real(kind=kind_phys),
parameter:: con_c =2.99792458e+8_kind_phys
104 real(kind=kind_phys),
parameter:: con_plnk =6.6260693e-34_kind_phys
105 real(kind=kind_phys),
parameter:: con_boltz =1.3806505e-23_kind_phys
106 real(kind=kind_phys),
parameter:: con_sbc =5.670400e-8_kind_phys
107 real(kind=kind_phys),
parameter:: con_avgd =6.0221415e23_kind_phys
108 real(kind=kind_phys),
parameter:: con_gasv =22413.996e-6_kind_phys
110 real(kind=kind_phys),
parameter:: con_amd =28.9644_kind_phys
111 real(kind=kind_phys),
parameter:: con_amw =18.0154_kind_phys
112 real(kind=kind_phys),
parameter:: con_amo3 =47.9982_kind_phys
114 real(kind=kind_phys),
parameter:: con_amco2 =44.011_kind_phys
115 real(kind=kind_phys),
parameter:: con_amo2 =31.9999_kind_phys
116 real(kind=kind_phys),
parameter:: con_amch4 =16.043_kind_phys
117 real(kind=kind_phys),
parameter:: con_amn2o =44.013_kind_phys
118 real(kind=kind_phys),
parameter:: con_thgni =-38.15_kind_phys
119 real(kind=kind_phys),
parameter:: karman =0.4_kind_phys
122 real(kind=kind_phys),
parameter:: cimin =0.15
125 real(kind=kind_phys),
parameter:: qamin = 1.e-16_kind_phys
127 real(kind=kind_phys),
parameter:: rainmin = 1.e-13_kind_phys
137 real(kind=kind_phys),
parameter:: rlapse = 0.65e-2_kind_phys
138 real(kind=kind_phys),
parameter:: cb2mb = 10.0_kind_phys, pa2mb = 0.01_kind_phys
140 real(kind=kind_phys),
parameter:: rhowater = 1000._kind_phys
141 real(kind=kind_phys),
parameter:: rhosnow = 100._kind_phys
142 real(kind=kind_phys),
parameter:: rhoair = 1.28_kind_phys
143 real(kind=kind_phys),
parameter:: rholakeice = 0.917e3_kind_phys
146 real(kind=kind_phys),
parameter:: decorr_con = 2.50_kind_phys
This module contains some of the most frequently used math and physics constants for GCM models.