39 use machine
, only : kind_phys
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
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
68 real(kind=kind_phys),
parameter::
con_solr =1.3608e+3
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
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.
115 real(kind=kind_phys),
parameter:: con_epsm1 =
con_rd/
con_rv-1.
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
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
136 real(kind=kind_phys),
parameter::
con_amd =28.9644
138 real(kind=kind_phys),
parameter::
con_amw =18.0154
157 integer,
parameter :: max_lon=5000, max_lat=2000, min_lon=192, min_lat
159 real(kind=kind_phys),
parameter:: rlapse = 0.65e-2, rhc_max = 0.99999
161 real(kind=kind_phys),
parameter:: cb2mb = 10.0, pa2mb = 0.01
163 real(kind=kind_phys) :: dxmax, dxmin, dxinv
real(kind=kind_phys), parameter con_cliq
spec heat H2O liq ( )
real(kind=kind_phys), parameter con_pi
pi
real(kind=kind_phys), parameter con_tice
temp freezing sea (K)
real(kind=kind_phys), parameter con_amw
molecular wght of water vapor ( )
real(kind=kind_phys), parameter con_amco2
molecular wght of co2 ( )
real(kind=kind_phys), parameter con_g
gravity ( )
real(kind=kind_phys), parameter con_rgas
molar gas constant ( )
real(kind=kind_phys), parameter con_thgni
temperature the H.G.Nuc. ice starts
real(kind=kind_phys), parameter con_amch4
molecular wght of ch4 ( )
real(kind=kind_phys), parameter con_omega
ang vel of earth ( )
real(kind=kind_phys), parameter con_amo2
molecular wght of o2 ( )
real(kind=kind_phys), parameter con_rv
gas constant H2O ( )
real(kind=kind_phys), parameter con_sqrt3
square root of 3
real(kind=kind_phys), parameter con_hfus
lat heat H2O fusion ( )
real(kind=kind_phys), parameter con_solr
solar constant ( )-nasa-sorce Tim(2008)
real(kind=kind_phys), parameter con_t0c
temp at 0C (K)
real(kind=kind_phys), parameter con_p0
std atms pressure (pa)
real(kind=kind_phys), parameter con_cvap
spec heat H2O gas ( )
real(kind=kind_phys), parameter con_cp
spec heat air at p ( )
real(kind=kind_phys), parameter con_gasv
vol of ideal gas at 273.15K, 101.325kPa ( )
real(kind=kind_phys), parameter con_jcal
joules per calorie
real(kind=kind_phys), parameter con_c
speed of light ( )
real(kind=kind_phys), parameter con_hvap
lat heat H2O cond ( )
real(kind=kind_phys), parameter con_plnk
planck constant ( )
real(kind=kind_phys), parameter con_rhw0
sea water reference density ( )
real(kind=kind_phys), parameter con_ttp
temp at H2O 3pt (K)
real(kind=kind_phys), parameter con_rd
gas constant air ( )
real(kind=kind_phys), parameter con_avgd
avogadro constant ( )
real(kind=kind_phys), parameter con_psat
pres at H2O 3pt (Pa)
real(kind=kind_phys), parameter con_amo3
molecular wght of o3 ( )
real(kind=kind_phys), parameter con_sbc
stefan-boltzmann ( )
real(kind=kind_phys), parameter con_rerth
radius of earth (m)
real(kind=kind_phys), parameter con_epsq
min q for computing precip type
real(kind=kind_phys), parameter con_amn2o
molecular wght of n2o ( )
real(kind=kind_phys), parameter con_cv
spec heat air at v ( )
real(kind=kind_phys), parameter con_solr_old
solar constant ( )-liu(2002)
real(kind=kind_phys), parameter con_boltz
boltzmann constant ( )
real(kind=kind_phys), parameter con_sqrt2
square root of 2
real(kind=kind_phys), parameter con_amd
molecular wght of dry air ( )
real(kind=kind_phys), parameter con_csol
spec heat H2O ice ( )