source: lmdz_wrf/trunk/tools/module_definitions.f90 @ 1678

Last change on this file since 1678 was 1676, checked in by lfita, 8 years ago

Adding atmospheric constants
File size: 2.1 KB
RevLine 
[1609]1MODULE module_definitions
2
[1654]3!  INTEGER, PARAMETER                                     :: r_k = KIND(1.d0)
4  INTEGER, PARAMETER                                     :: r_k = KIND(1.)
[1609]5  REAL(r_k), PARAMETER                                   :: zeroRK = 0.
6  REAL(r_k), PARAMETER                                   :: oneRK = 1.
7  REAL(r_k), PARAMETER                                   :: twoRK = 2.
[1655]8  !REAL(r_k), PARAMETER                                   :: DegRad = 180.d0/DACOS(-1.)
9  REAL(r_k), PARAMETER                                   :: DegRad = 180./ACOS(-1.)
[1609]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
[1655]16  !REAL(r_k)                                              :: fillval64 = 1.d20
[1609]17  REAL(r_k)                                              :: fillval64 = 1.e20
[1621]18  INTEGER                                                :: fillvalI = -99999
[1609]19  CHARACTER(len=50)                                      :: fname
[1612]20  CHARACTER(len=256)                                     :: msg
[1660]21  ! Some all-purpose variables
22  CHARACTER(len=1)                                       :: Str1
23  CHARACTER(len=4)                                       :: numSa, numSb
24  CHARACTER(len=10)                                      :: Str10
[1609]25
[1676]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
[1609]34END MODULE module_definitions
Note: See TracBrowser for help on using the repository browser.