GFS Operational Physics Documentation  Revision: 81451
physcons.f
Go to the documentation of this file.
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 
35 !========================================!
36  module physcons !
37 !........................................!
38 !
39  use machine, only : kind_phys
40 !
41  implicit none
42 !
43  public
44 
46 
48  real(kind=kind_phys),parameter:: con_pi =3.1415926535897931
50  real(kind=kind_phys),parameter:: con_sqrt2 =1.414214e+0
52  real(kind=kind_phys),parameter:: con_sqrt3 =1.732051e+0
53 
55 
57  real(kind=kind_phys),parameter:: con_rerth =6.3712e+6
59  real(kind=kind_phys),parameter:: con_g =9.80665e+0
61  real(kind=kind_phys),parameter:: con_omega =7.2921e-5
63  real(kind=kind_phys),parameter:: con_p0 =1.01325e5
64 ! real(kind=kind_phys),parameter:: con_solr =1.36822e+3 ! solar constant (W/m2)-aer(2001)
66  real(kind=kind_phys),parameter:: con_solr_old =1.3660e+3
68  real(kind=kind_phys),parameter:: con_solr =1.3608e+3
69 ! real(kind=kind_phys),parameter:: con_solr =1.36742732e+3 ! solar constant (W/m2)-gfdl(1989) - OPR as of Jan 2006
70 
72 
74  real(kind=kind_phys),parameter:: con_rgas =8.314472
76  real(kind=kind_phys),parameter:: con_rd =2.8705e+2
78  real(kind=kind_phys),parameter:: con_rv =4.6150e+2
80  real(kind=kind_phys),parameter:: con_cp =1.0046e+3
82  real(kind=kind_phys),parameter:: con_cv =7.1760e+2
84  real(kind=kind_phys),parameter:: con_cvap =1.8460e+3
86  real(kind=kind_phys),parameter:: con_cliq =4.1855e+3
88  real(kind=kind_phys),parameter:: con_csol =2.1060e+3
90  real(kind=kind_phys),parameter:: con_hvap =2.5000e+6
92  real(kind=kind_phys),parameter:: con_hfus =3.3358e+5
94  real(kind=kind_phys),parameter:: con_psat =6.1078e+2
96  real(kind=kind_phys),parameter:: con_t0c =2.7315e+2
98  real(kind=kind_phys),parameter:: con_ttp =2.7316e+2
100  real(kind=kind_phys),parameter:: con_tice =2.7120e+2
102  real(kind=kind_phys),parameter:: con_jcal =4.1855e+0
104  real(kind=kind_phys),parameter:: con_rhw0 =1022.0
106  real(kind=kind_phys),parameter:: con_epsq =1.0e-12
107 
109 
110  real(kind=kind_phys),parameter:: con_rocp =con_rd/con_cp
111  real(kind=kind_phys),parameter:: con_cpor =con_cp/con_rd
112  real(kind=kind_phys),parameter:: con_rog =con_rd/con_g
113  real(kind=kind_phys),parameter:: con_fvirt =con_rv/con_rd-1.
114  real(kind=kind_phys),parameter:: con_eps =con_rd/con_rv
115  real(kind=kind_phys),parameter:: con_epsm1 =con_rd/con_rv-1.
116  real(kind=kind_phys),parameter:: con_dldt =con_cvap-con_cliq
117  real(kind=kind_phys),parameter:: con_xpona =-con_dldt/con_rv
118  real(kind=kind_phys),parameter:: con_xponb =-con_dldt/con_rv+con_hvap/(con_rv*con_ttp)
119 
121 
123  real(kind=kind_phys),parameter:: con_c =2.99792458e+8
125  real(kind=kind_phys),parameter:: con_plnk =6.6260693e-34
127  real(kind=kind_phys),parameter:: con_boltz =1.3806505e-23
129  real(kind=kind_phys),parameter:: con_sbc =5.670400e-8
131  real(kind=kind_phys),parameter:: con_avgd =6.0221415e23
133  real(kind=kind_phys),parameter:: con_gasv =22413.996e-6
134 ! real(kind=kind_phys),parameter:: con_amd =28.970 ! molecular wght of dry air (g/mol)
136  real(kind=kind_phys),parameter:: con_amd =28.9644
138  real(kind=kind_phys),parameter:: con_amw =18.0154
140  real(kind=kind_phys),parameter:: con_amo3 =47.9982
141 ! real(kind=kind_phys),parameter:: con_amo3 =48.0 ! molecular wght of o3 (g/mol)
143  real(kind=kind_phys),parameter:: con_amco2 =44.011
145  real(kind=kind_phys),parameter:: con_amo2 =31.9999
147  real(kind=kind_phys),parameter:: con_amch4 =16.043
149  real(kind=kind_phys),parameter:: con_amn2o =44.013
151  real(kind=kind_phys), parameter:: con_thgni =-38.15
152 
154 
155 ! integer, parameter :: max_lon=16000, max_lat=8000, min_lon=192, min_lat=94
156 ! integer, parameter :: max_lon=5000, max_lat=2500, min_lon=192, min_lat=94 ! current opr
157  integer, parameter :: max_lon=5000, max_lat=2000, min_lon=192, min_lat=94 ! current opr
158 ! real(kind=kind_phys), parameter:: rlapse = 0.65e-2, rhc_max = 0.9999 ! current opr
159  real(kind=kind_phys), parameter:: rlapse = 0.65e-2, rhc_max = 0.9999999 ! new
160 ! real(kind=kind_phys), parameter:: rlapse = 0.65e-2, rhc_max = 0.9900
161  real(kind=kind_phys), parameter:: cb2mb = 10.0, pa2mb = 0.01
162 
163  real(kind=kind_phys) :: dxmax, dxmin, dxinv
164 
165 !........................................!
166  end module physcons !
167 !========================================!
168 !! @}
real(kind=kind_phys), parameter con_cliq
spec heat H2O liq ( )
Definition: physcons.f:86
real(kind=kind_phys), parameter con_pi
pi
Definition: physcons.f:48
real(kind=kind_phys), parameter con_tice
temp freezing sea (K)
Definition: physcons.f:100
real(kind=kind_phys), parameter con_amw
molecular wght of water vapor ( )
Definition: physcons.f:138
real(kind=kind_phys), parameter con_amco2
molecular wght of co2 ( )
Definition: physcons.f:143
real(kind=kind_phys), parameter con_g
gravity ( )
Definition: physcons.f:59
real(kind=kind_phys), parameter con_rgas
molar gas constant ( )
Definition: physcons.f:74
real(kind=kind_phys), parameter con_thgni
temperature the H.G.Nuc. ice starts
Definition: physcons.f:151
real(kind=kind_phys), parameter con_amch4
molecular wght of ch4 ( )
Definition: physcons.f:147
real(kind=kind_phys), parameter con_omega
ang vel of earth ( )
Definition: physcons.f:61
real(kind=kind_phys), parameter con_amo2
molecular wght of o2 ( )
Definition: physcons.f:145
real(kind=kind_phys), parameter con_rv
gas constant H2O ( )
Definition: physcons.f:78
real(kind=kind_phys), parameter con_sqrt3
square root of 3
Definition: physcons.f:52
real(kind=kind_phys), parameter con_hfus
lat heat H2O fusion ( )
Definition: physcons.f:92
real(kind=kind_phys), parameter con_solr
solar constant ( )-nasa-sorce Tim(2008)
Definition: physcons.f:68
real(kind=kind_phys), parameter con_t0c
temp at 0C (K)
Definition: physcons.f:96
real(kind=kind_phys), parameter con_p0
std atms pressure (pa)
Definition: physcons.f:63
real(kind=kind_phys), parameter con_cvap
spec heat H2O gas ( )
Definition: physcons.f:84
real(kind=kind_phys), parameter con_cp
spec heat air at p ( )
Definition: physcons.f:80
real(kind=kind_phys), parameter con_gasv
vol of ideal gas at 273.15K, 101.325kPa ( )
Definition: physcons.f:133
real(kind=kind_phys), parameter con_jcal
joules per calorie
Definition: physcons.f:102
real(kind=kind_phys), parameter con_c
speed of light ( )
Definition: physcons.f:123
real(kind=kind_phys), parameter con_hvap
lat heat H2O cond ( )
Definition: physcons.f:90
real(kind=kind_phys), parameter con_plnk
planck constant ( )
Definition: physcons.f:125
real(kind=kind_phys), parameter con_rhw0
sea water reference density ( )
Definition: physcons.f:104
real(kind=kind_phys), parameter con_ttp
temp at H2O 3pt (K)
Definition: physcons.f:98
real(kind=kind_phys), parameter con_rd
gas constant air ( )
Definition: physcons.f:76
real(kind=kind_phys), parameter con_avgd
avogadro constant ( )
Definition: physcons.f:131
real(kind=kind_phys), parameter con_psat
pres at H2O 3pt (Pa)
Definition: physcons.f:94
real(kind=kind_phys), parameter con_amo3
molecular wght of o3 ( )
Definition: physcons.f:140
real(kind=kind_phys), parameter con_sbc
stefan-boltzmann ( )
Definition: physcons.f:129
real(kind=kind_phys), parameter con_rerth
radius of earth (m)
Definition: physcons.f:57
real(kind=kind_phys), parameter con_epsq
min q for computing precip type
Definition: physcons.f:106
real(kind=kind_phys), parameter con_amn2o
molecular wght of n2o ( )
Definition: physcons.f:149
real(kind=kind_phys), parameter con_cv
spec heat air at v ( )
Definition: physcons.f:82
real(kind=kind_phys), parameter con_solr_old
solar constant ( )-liu(2002)
Definition: physcons.f:66
real(kind=kind_phys), parameter con_boltz
boltzmann constant ( )
Definition: physcons.f:127
real(kind=kind_phys), parameter con_sqrt2
square root of 2
Definition: physcons.f:50
real(kind=kind_phys), parameter con_amd
molecular wght of dry air ( )
Definition: physcons.f:136
real(kind=kind_phys), parameter con_csol
spec heat H2O ice ( )
Definition: physcons.f:88