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
71 doubleprecision,
PARAMETER :: pi = 3.1415926535897932d0
73 doubleprecision,
PARAMETER :: rearth = 6370997.0d0
74 doubleprecision,
PARAMETER :: gearth = 9.80665d0
75 doubleprecision,
PARAMETER :: omearth = 2.0d0*pi/86164.0d0
76 doubleprecision,
PARAMETER :: degrad = pi/180.0d0
77 doubleprecision,
PARAMETER :: raddeg = 180.0d0/pi
78 doubleprecision,
parameter :: t0c = 273.15d0
79 doubleprecision,
PARAMETER :: mwater = 18.0153d0
80 doubleprecision,
parameter :: rgas = 8314.472d0
81 doubleprecision,
parameter :: mdry = 28.9644d0
83 doubleprecision,
PARAMETER :: rd = rgas/mdry
85 doubleprecision,
PARAMETER :: rv = rgas/mwater
86 doubleprecision,
PARAMETER :: eps0 = rd/rv
87 doubleprecision,
PARAMETER :: epsy = rv/rd-1.0d0
88 doubleprecision,
PARAMETER :: rcp = 2.0d0/7.0d0
89 doubleprecision,
PARAMETER :: cpd = rd/rcp
90 doubleprecision,
PARAMETER :: cvd = cpd-rd
91 doubleprecision,
PARAMETER :: lvw = 2.5d+6
92 doubleprecision,
parameter :: convff = 1.94d0
94 doubleprecision,
parameter :: c1 = 1.0d0- mwater/mdry
Costanti fisiche (SINGOLA PRECISIONE).
Costanti fisiche (DOUBLEPRECISION).