31REAL,
PARAMETER :: pi =3.141593
32REAL,
PARAMETER :: rearth = 6370997.
33REAL,
PARAMETER :: gearth = 9.80665
34REAL,
PARAMETER :: omearth = 2.*pi/86164.
35REAL,
PARAMETER :: degrad = pi/180.
36REAL,
PARAMETER :: raddeg = 180./pi
37REAL,
PARAMETER :: t0c = 273.15
38REAL,
PARAMETER :: mwater = 18.0153
39REAL,
PARAMETER :: rgas = 8314.472
40REAL,
PARAMETER :: mdry = 28.9644
42REAL,
PARAMETER :: rd = rgas/mdry
44REAL,
PARAMETER :: rv = rgas/mwater
45REAL,
PARAMETER :: eps0 = rd/rv
46REAL,
PARAMETER :: epsy = rv/rd-1.
47REAL,
PARAMETER :: rcp = 2./7.
48REAL,
PARAMETER :: cpd = rd/rcp
49REAL,
PARAMETER :: cvd = cpd-rd
50REAL,
PARAMETER :: lvw = 2.5e+6
51REAL,
PARAMETER :: convff = 1.94
53REAL,
PARAMETER :: c1 = 1.- mwater/mdry
55REAL,
PARAMETER :: tetens_aw = 17.2694
56REAL,
PARAMETER :: tetens_bw = 35.86
57REAL,
PARAMETER :: tetens_ai = 21.8746
58REAL,
PARAMETER :: tetens_bi = 7.66
59REAL,
PARAMETER :: tetens_e0_hpa = 6.1078
76DOUBLEPRECISION,
PARAMETER :: pi = 3.1415926535897932d0
78DOUBLEPRECISION,
PARAMETER :: rearth = 6370997.0d0
79DOUBLEPRECISION,
PARAMETER :: gearth = 9.80665d0
80DOUBLEPRECISION,
PARAMETER :: omearth = 2.0d0*pi/86164.0d0
81DOUBLEPRECISION,
PARAMETER :: degrad = pi/180.0d0
82DOUBLEPRECISION,
PARAMETER :: raddeg = 180.0d0/pi
83DOUBLEPRECISION,
PARAMETER :: t0c = 273.15d0
84DOUBLEPRECISION,
PARAMETER :: mwater = 18.0153d0
85DOUBLEPRECISION,
PARAMETER :: rgas = 8314.472d0
86DOUBLEPRECISION,
PARAMETER :: mdry = 28.9644d0
88DOUBLEPRECISION,
PARAMETER :: rd = rgas/mdry
90DOUBLEPRECISION,
PARAMETER :: rv = rgas/mwater
91DOUBLEPRECISION,
PARAMETER :: eps0 = rd/rv
92DOUBLEPRECISION,
PARAMETER :: epsy = rv/rd-1.0d0
93DOUBLEPRECISION,
PARAMETER :: rcp = 2.0d0/7.0d0
94DOUBLEPRECISION,
PARAMETER :: cpd = rd/rcp
95DOUBLEPRECISION,
PARAMETER :: cvd = cpd-rd
96DOUBLEPRECISION,
PARAMETER :: lvw = 2.5d+6
97DOUBLEPRECISION,
PARAMETER :: convff = 1.94d0
99DOUBLEPRECISION,
PARAMETER :: c1 = 1.0d0- mwater/mdry
101DOUBLEPRECISION,
PARAMETER :: tetens_aw = 17.2694d0
102DOUBLEPRECISION,
PARAMETER :: tetens_bw = 35.86d0
103DOUBLEPRECISION,
PARAMETER :: tetens_ai = 21.8746d0
104DOUBLEPRECISION,
PARAMETER :: tetens_bi = 7.66d0
105DOUBLEPRECISION,
parameter :: tetens_e0_hpa = 6.1078d0
Costanti fisiche (DOUBLEPRECISION).
Costanti fisiche (SINGOLA PRECISIONE).