Context Navigation

module_definitions.f90 @ 1705

Last change on this file since 1705 was 1676, checked in by lfita, 8 years ago
Adding atmospheric constants
File size: 2.1 KB

Line
1	MODULE module_definitions
2
3	! INTEGER, PARAMETER :: r_k = KIND(1.d0)
4	INTEGER, PARAMETER :: r_k = KIND(1.)
5	REAL(r_k), PARAMETER :: zeroRK = 0.
6	REAL(r_k), PARAMETER :: oneRK = 1.
7	REAL(r_k), PARAMETER :: twoRK = 2.
8	!REAL(r_k), PARAMETER :: DegRad = 180.d0/DACOS(-1.)
9	REAL(r_k), PARAMETER :: DegRad = 180./ACOS(-1.)
10	CHARACTER(len=100) :: infomsg = 'INFORMATION -- information' // &
11	' -- INFORMATION -- information'
12	CHARACTER(len=50) :: warnmsg = 'WARNING -- warning -- ' // &
13	'WARNING -- warning'
14	CHARACTER(len=50) :: emsg = 'ERROR -- error -- ERROR -- error'
15	! Fill value at 64 bits
16	!REAL(r_k) :: fillval64 = 1.d20
17	REAL(r_k) :: fillval64 = 1.e20
18	INTEGER :: fillvalI = -99999
19	CHARACTER(len=50) :: fname
20	CHARACTER(len=256) :: msg
21	! Some all-purpose variables
22	CHARACTER(len=1) :: Str1
23	CHARACTER(len=4) :: numSa, numSb
24	CHARACTER(len=10) :: Str10
25
26	! Scientific constants
27	REAL(r_k), PARAMETER :: grav = 9.81 ! gravity [ms-1]
28	REAL(r_k), PARAMETER :: Cp = 29.07 ! gravity [Jmol-1K-1]
29	REAL(r_k), PARAMETER :: Cp_g = 1.0035 ! gravity [Jg-1K-1]
30	REAL(r_k), PARAMETER :: Rd = 8.3144598 ! gravity [JKgm2s-2K-1mol-1/JK-1mol-1]
31	REAL(r_k), PARAMETER :: RCp = 0.286 ! gravity [-]
32	REAL(r_k), PARAMETER :: p0ref = 100000 ! gravity [Pa]
33
34	END MODULE module_definitions

Note: See TracBrowser for help on using the repository browser.