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

Last change on this file since 2010 was 1909, checked in by lfita, 7 years ago

Adding:

  • `fog_FRAML50': fog and visibility following Gultepe and Milbrandt, (2010)
  • `var_hus': relative humidity using August-Roche-Magnus approximation [1]

Fixing: fog_K84' and fog_RUC'
File size: 4.2 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
[1909]25  REAL(r_k)                                              :: nullv = 1.e-7
26  !REAL(r_k)                                              :: nullv = 1.d-15
[1609]27
[1676]28! Scientific constants
[1773]29!!
[1909]30  ! K --> C temperature transformation
31  REAL(r_k), PARAMETER                                   :: SVPT0 = 273.15
32 ! August-Roche-Magnus approximation
33  REAL(r_k), PARAMETER                                   :: ARM1 = 6.1094
34  REAL(r_k), PARAMETER                                   :: ARM2 = 17.625
35  REAL(r_k), PARAMETER                                   :: ARM3 = 243.04
[1773]36
[1909]37  REAL(r_k), PARAMETER                                   :: ZEPSEC = 1.0D-12
[1773]38! Low limit pressure for medium clouds [Pa]
39  REAL(r_k), PARAMETER                                   :: prmhc = 44000.d0
40! Low limit pressure for High clouds [Pa]
41  REAL(r_k), PARAMETER                                   :: prmlc = 68000.d0
42
[1676]43  REAL(r_k), PARAMETER                                   :: grav = 9.81 ! gravity [ms-1]
[1758]44  REAL(r_k), PARAMETER                                   :: Cpmol = 29.07 ! Molar gas heat capacity at constant pressure [Jmol-1K-1]
45  REAL(r_k), PARAMETER                                   :: Cp_g = 1.0035 ! Gas heat capacity [Jg-1K-1]
46  REAL(r_k), PARAMETER                                   :: Rstar = 8.3144621 ! Universal molar air constant [JKgm2s-2K-1mol-1/JK-1mol-1]
47  REAL(r_k), PARAMETER                                   :: RCp = 0.286 ! R*Cp [-]
48  REAL(r_k), PARAMETER                                   :: p0ref = 100000 ! pressure reference [Pa]
[1759]49! WRF gravity
50  REAL(r_k), PARAMETER                                   :: g = 9.81
[1758]51! Ratio between molecular weights of water and dry air
52  REAL(r_k), PARAMETER                                   :: mol_watdry = 0.622
53! Standard atmospheric lapse-rate [Km-1]
54  REAL, PARAMETER                                        :: gammav = 6.5e-3
55! WRF Gas constant for dry air [JK-1kg-1]
56  REAL(r_k), PARAMETER                                   :: r_d = 287.
57! WRF Gas constant for wet air [JK-1kg-1]
58  REAL(r_k), PARAMETER                                   :: r_v = 461.6
59! WRF Dry air heat capacity [JK-1kg-1]
60  REAL(r_k), PARAMETER                                   :: cp = 7.*r_d/2.
61! WRF p 1000 mb constant [Pa]
62  REAL(r_k), PARAMETER                                   :: p1000mb = 100000.
63! WRF Latent Heat for water vapour [Jkg-1]
64  REAL(r_k), PARAMETER                                   :: XLV = 2.5E6
65! epislon r_d/r_v for Virtual temperature
66  REAL(r_k), PARAMETER                                   :: epsilonv = 0.622
[1783]67! pi
68  REAL(r_k), PARAMETER                                   :: piconst = 3.1415926535897932384626433
69! Karman constant
70  REAL(r_k), PARAMETER                                   :: karman = 0.4
[1676]71
[1783]72
[1609]73END MODULE module_definitions
Note: See TracBrowser for help on using the repository browser.