Philippe 23/02/2016: lfi2cdf: modif for JPHEXT/=1
[MNH-git_open_source-lfs.git] / LIBTOOLS / tools / diachro / src / mesonh_MOD / modd_cst.f90
1 !-----------------------------------------------------------------
2 !--------------- special set of characters for RCS information
3 !-----------------------------------------------------------------
4 ! $Source$ $Revision$ $Date$
5 !-----------------------------------------------------------------
6 !-----------------------------------------------------------------
7 !-----------------------------------------------------------------
8 !     ###############
9       MODULE MODD_CST      
10 !     ###############
11 !
12 !!****  *MODD_CST* - declaration of Physic constants 
13 !!
14 !!    PURPOSE
15 !!    -------
16 !       The purpose of this declarative module is to declare  the 
17 !     Physics constants.    
18 !
19 !!
20 !!**  IMPLICIT ARGUMENTS
21 !!    ------------------
22 !!      None 
23 !!
24 !!    REFERENCE
25 !!    ---------
26 !!      Book2 of documentation of Meso-NH (MODD_CST)
27 !!          
28 !!    AUTHOR
29 !!    ------
30 !!      V. Ducrocq   *Meteo France*
31 !!
32 !!    MODIFICATIONS
33 !!    -------------
34 !!      Original    16/05/94  
35 !!      J. Stein    02/01/95  add xrholw                    
36 !!      J.-P. Pinty 13/12/95  add XALPI,XBETAI,XGAMI
37 !!      J. Stein    25/07/97  add XTH00                    
38 !!      V. Masson   05/10/98  add XRHOLI
39 !!      C. Mari     31/10/00  add NDAYSEC
40 !-------------------------------------------------------------------------------
41 !
42 !*       0.   DECLARATIONS
43 !             ------------
44 !
45 IMPLICIT NONE 
46 REAL,SAVE :: XPI                 ! Pi
47 !
48 REAL,SAVE :: XDAY,XSIYEA,XSIDAY  ! day duration, sideral year duration,
49                                  ! sideral day duration
50 !
51 REAL,SAVE :: XKARMAN             ! von karman constant
52 REAL,SAVE :: XLIGHTSPEED         ! light speed
53 DOUBLE PRECISION,SAVE :: XPLANCK ! Planck constant
54 REAL,SAVE :: XBOLTZ              ! Boltzman constant 
55 REAL,SAVE :: XAVOGADRO           ! Avogadro number
56 !
57 REAL,SAVE :: XRADIUS,XOMEGA      ! Earth radius, earth rotation
58 REAL,SAVE :: XG                  ! Gravity constant
59 !
60 REAL,SAVE :: XP00                ! Reference pressure
61 !
62 REAL,SAVE :: XSTEFAN,XI0         ! Stefan-Boltzman constant, solar constant
63 !
64 REAL,SAVE :: XMD,XMV             ! Molar mass of dry air and molar mass of vapor
65 REAL,SAVE :: XRD,XRV             ! Gaz constant for dry air, gaz constant for vapor
66 REAL,SAVE :: XCPD,XCPV           ! Cpd (dry air), Cpv (vapor)
67 REAL,SAVE :: XRHOLW              ! Volumic mass of liquid water
68 REAL,SAVE :: XCL,XCI             ! Cl (liquid), Ci (ice)
69 REAL,SAVE :: XTT                 ! Triple point temperature
70 REAL,SAVE :: XLVTT               ! Vaporization heat constant
71 REAL,SAVE :: XLSTT               ! Sublimation heat constant
72 REAL,SAVE :: XLMTT               ! Melting heat constant
73 REAL,SAVE :: XESTT               ! Saturation vapor pressure  at triple point
74                                  ! temperature  
75 REAL,SAVE :: XALPW,XBETAW,XGAMW  ! Constants for saturation vapor 
76                                  !  pressure  function 
77 REAL,SAVE :: XALPI,XBETAI,XGAMI  ! Constants for saturation vapor
78                                  !  pressure  function over solid ice
79 REAL, SAVE        :: XTH00       ! reference value  for the potential
80                                  ! temperature
81 REAL,SAVE :: XRHOLI              ! Volumic mass of liquid water
82 !
83 INTEGER, SAVE :: NDAYSEC         ! Number of seconds in a day
84 !
85 END MODULE MODD_CST
86