libsim  Versione6.3.0
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 
55 
56 END MODULE phys_const
57 
68 IMPLICIT NONE
69 
70 ! pi = 4.*ATAN(1.)
71 DOUBLEPRECISION, PARAMETER :: pi = 3.1415926535897932d0
72 
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
82 ! rd= 287.05831986852826 ma si trova rd=287.05
83 DOUBLEPRECISION, PARAMETER :: rd = rgas/mdry
84 ! rv= 461.522816717 ma in vecchi testi 8314.3/18.016=461.495337478
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
93 ! c1 era parameter(c1=0.378)
94 DOUBLEPRECISION,parameter :: c1 = 1.0d0- mwater/mdry
95 
96 
98 
Costanti fisiche (DOUBLEPRECISION).
Definition: phys_const.f90:67
Costanti fisiche (SINGOLA PRECISIONE).
Definition: phys_const.f90:27

Generated with Doxygen.