libsim Versione 7.2.4
phys_const.f90
1! Copyright (C) 2010 ARPA-SIM <urpsim@smr.arpa.emr.it>
2! authors:
3! Davide Cesari <dcesari@arpa.emr.it>
4! Paolo Patruno <ppatruno@arpa.emr.it>
5
6! This program is free software; you can redistribute it and/or
7! modify it under the terms of the GNU General Public License as
8! published by the Free Software Foundation; either version 2 of
9! the License, or (at your option) any later version.
10
11! This program is distributed in the hope that it will be useful,
12! but WITHOUT ANY WARRANTY; without even the implied warranty of
13! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14! GNU General Public License for more details.
15
16! You should have received a copy of the GNU General Public License
17! along with this program. If not, see <http://www.gnu.org/licenses/>.
28IMPLICIT NONE
29
30! pi = 4.*ATAN(1.)
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
41! rd= 287.05831986852826 ma si trova rd=287.05
42REAL,PARAMETER :: rd = rgas/mdry
43! rv= 461.522816717 ma in vecchi testi 8314.3/18.016=461.495337478
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
52! c1 era parameter(c1=0.378)
53REAL,PARAMETER :: c1 = 1.- mwater/mdry
54! coefficents for Tetens formula, from Murray, 1967, J.Appl.Meteor.
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
60
61END MODULE phys_const
62
73IMPLICIT NONE
74
75! pi = 4.*ATAN(1.)
76DOUBLEPRECISION,PARAMETER :: pi = 3.1415926535897932d0
77
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
87! rd= 287.05831986852826 ma si trova rd=287.05
88DOUBLEPRECISION,PARAMETER :: rd = rgas/mdry
89! rv= 461.522816717 ma in vecchi testi 8314.3/18.016=461.495337478
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
98! c1 era parameter(c1=0.378)
99DOUBLEPRECISION,PARAMETER :: c1 = 1.0d0- mwater/mdry
100! coefficents for Tetens formula, from Murray, 1967, J.Appl.Meteor.
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
106
108
Costanti fisiche (DOUBLEPRECISION).
Costanti fisiche (SINGOLA PRECISIONE).

Generated with Doxygen.