CCPP SciDoc v7.0.0  v7.0.0
Common Community Physics Package Developed at DTC
 
Loading...
Searching...
No Matches
physcons.F90
1
3
4! ========================================================== !!!!!
5! module 'physcons' description !!!!!
6! ========================================================== !!!!!
7! !
8! this module contains some the most frequently used math and !
9! physics constatns for gcm models. !
10! !
11! references: !
12! as set in NMC handbook from Smithsonian tables. !
13! !
14! modification history: !
15! !
16! 1990-04-30 g and rd are made consistent with NWS usage !
17! 2001-10-22 g made consistent with SI usage !
18! 2005-04-13 added molecular weights for gases - y-t hou !
19! 2013-07-12 added temperature for homogen. nuc. for ice. - R.sun !
20! !
21! external modules referenced: !
22! !
23! 'module machine' in 'machine.f' !
24! !
25! !
26!!!!! ========================================================== !!!!!
27!!!!! end descriptions !!!!!
28!!!!! ========================================================== !!!!!
29
33
36 module physcons
37!
38 use machine, only: kind_phys, kind_dyn
39!
40 implicit none
41!
42 public
43
45! real(kind=kind_phys),parameter:: con_pi =3.1415926535897931 !< pi
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
49
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
55! real(kind=kind_phys),parameter:: con_solr =1.36822e+3_kind_phys ! solar constant (W/m2)-aer(2001)
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
58! real(kind=kind_phys),parameter:: con_solr =1.36742732e+3_kind_phys ! solar constant (W/m2)-gfdl(1989) - OPR as of Jan 2006
59 ! Selected geophysics/astronomy constants with kind=kind_dyn
60 real(kind=kind_dyn), parameter:: con_g_dyn =9.80665e+0_kind_dyn
61
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
72! real(kind=kind_phys),parameter:: con_hvap =2.5010e+6_kind_phys ! from AMS
73 real(kind=kind_phys),parameter:: con_hfus =3.3358e+5_kind_phys
74! real(kind=kind_phys),parameter:: con_hfus =3.3370e+5_kind_phys ! from AMS
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
83 ! Selected thermodynamics constants with kind=kind_dyn
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
89
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
101
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
109! real(kind=kind_phys),parameter:: con_amd =28.970_kind_phys !< molecular wght of dry air (g/mol)
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
113! real(kind=kind_phys),parameter:: con_amo3 =48.0_kind_phys !< molecular wght of o3 (g/mol)
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
120
122 real(kind=kind_phys),parameter:: cimin =0.15
123
125 real(kind=kind_phys),parameter:: qamin = 1.e-16_kind_phys
127 real(kind=kind_phys),parameter:: rainmin = 1.e-13_kind_phys
129! integer, parameter :: max_lon=16000, max_lat=8000, min_lon=192, min_lat=94
130! integer, parameter :: max_lon=5000, max_lat=2500, min_lon=192, min_lat=94 ! current opr
131! integer, parameter :: max_lon=5000, max_lat=2000, min_lon=192, min_lat=94 ! current opr
132! integer, parameter :: max_lon=8000, max_lat=4000, min_lon=192, min_lat=94 ! current opr
133! real(kind=kind_phys), parameter:: rlapse = 0.65e-2, rhc_max = 0.9999 ! current opr
134! real(kind=kind_phys), parameter:: rlapse = 0.65e-2, rhc_max = 0.9999999 ! new
135! real(kind=kind_phys), parameter:: rlapse = 0.65e-2, rhc_max = 0.9900
136
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
139! for wsm6
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
144
145! Decorrelation length constant (km) for iovr = 4 or 5 and idcor = 0
146 real(kind=kind_phys),parameter:: decorr_con = 2.50_kind_phys
147
148!........................................!
149 end module physcons !
150!========================================!
This module contains some of the most frequently used math and physics constants for GCM models.
Definition physcons.F90:36