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