libsim  Versione 7.1.6
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/>.
27 MODULE phys_const
28 IMPLICIT NONE
29 
30 ! pi = 4.*ATAN(1.)
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
41 ! rd= 287.05831986852826 ma si trova rd=287.05
42 REAL,PARAMETER :: rd = rgas/mdry
43 ! rv= 461.522816717 ma in vecchi testi 8314.3/18.016=461.495337478
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
52 ! c1 era parameter(c1=0.378)
53 REAL,PARAMETER :: c1 = 1.- mwater/mdry
54 ! coefficents for Tetens formula, from Murray, 1967, J.Appl.Meteor.
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
60 
61 END MODULE phys_const
62 
73 IMPLICIT NONE
74 
75 ! pi = 4.*ATAN(1.)
76 DOUBLEPRECISION,PARAMETER :: pi = 3.1415926535897932d0
77 
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
87 ! rd= 287.05831986852826 ma si trova rd=287.05
88 DOUBLEPRECISION,PARAMETER :: rd = rgas/mdry
89 ! rv= 461.522816717 ma in vecchi testi 8314.3/18.016=461.495337478
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
98 ! c1 era parameter(c1=0.378)
99 DOUBLEPRECISION,PARAMETER :: c1 = 1.0d0- mwater/mdry
100 ! coefficents for Tetens formula, from Murray, 1967, J.Appl.Meteor.
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
106 
108 
Costanti fisiche (DOUBLEPRECISION).
Definition: phys_const.f90:72
Costanti fisiche (SINGOLA PRECISIONE).
Definition: phys_const.f90:27

Generated with Doxygen.