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

Last change on this file since 1615 was 1612, checked in by lfita, 8 years ago

Adding all the required Fortran code for the path/polygon detection an definition
File size: 955 bytes
Line 
1MODULE module_definitions
2
3  INTEGER, PARAMETER                                     :: r_k = KIND(1.d0)
4  REAL(r_k), PARAMETER                                   :: zeroRK = 0.
5  REAL(r_k), PARAMETER                                   :: oneRK = 1.
6  REAL(r_k), PARAMETER                                   :: twoRK = 2.
7  CHARACTER(len=100)                                     :: infomsg = 'INFORMATION -- information' // &
8    ' -- INFORMATION -- information'
9  CHARACTER(len=50)                                      :: warnmsg = 'WARNING -- warning -- ' //     &
10    'WARNING -- warning'
11  CHARACTER(len=50)                                      :: emsg = 'ERROR -- error -- ERROR -- error'
12  ! Fill value at 64 bits
13  REAL(r_k)                                              :: fillval64 = 1.e20
14  CHARACTER(len=50)                                      :: fname
15  CHARACTER(len=256)                                     :: msg
16
17END MODULE module_definitions
Note: See TracBrowser for help on using the repository browser.