SURFEX v7.3: /home/dasprezs/EXPORT_v7_3/src/SURFEX/modd

Go to the documentation of this file.
00001 !     ###############
00002       MODULE MODD_CSTS      
00003 !     ###############
00004 !
00005 !!****  *MODD_CSTS* - declaration of Physic constants 
00006 !!
00007 !!    PURPOSE
00008 !!    -------
00009 !       The purpose of this declarative module is to declare  the 
00010 !     Physics constants.    
00011 !
00012 !!
00013 !!**  IMPLICIT ARGUMENTS
00014 !!    ------------------
00015 !!      None 
00016 !!
00017 !!    REFERENCE
00018 !!    ---------
00019 !!          
00020 !!    AUTHOR
00021 !!    ------
00022 !!      V. Ducrocq   *Meteo France*
00023 !!
00024 !!    MODIFICATIONS
00025 !!    -------------
00026 !!      Original    16/05/94  
00027 !!      J. Stein    02/01/95  add xrholw                    
00028 !!      J.-P. Pinty 13/12/95  add XALPI,XBETAI,XGAMI
00029 !!      J. Stein    25/07/97  add XTH00                    
00030 !!      V. Masson   05/10/98  add XRHOLI
00031 !!      C. Mari     31/10/00  add NDAYSEC
00032 !-------------------------------------------------------------------------------
00033 !
00034 !*       0.   DECLARATIONS
00035 !             ------------
00036 !
00037 IMPLICIT NONE 
00038 REAL,SAVE :: XPI                ! Pi
00039 !
00040 REAL,SAVE :: XDAY,XSIYEA,XSIDAY ! day duration, sideral year duration,
00041                                 ! sideral day duration
00042 !
00043 REAL,SAVE :: XKARMAN            ! von karman constant
00044 REAL,SAVE :: XLIGHTSPEED        ! light speed
00045 REAL,SAVE :: XPLANCK            ! Planck constant
00046 REAL,SAVE :: XBOLTZ             ! Boltzman constant 
00047 REAL,SAVE :: XAVOGADRO          ! Avogadro number
00048 !
00049 REAL,SAVE :: XRADIUS,XOMEGA     ! Earth radius, earth rotation
00050 REAL,SAVE :: XG                 ! Gravity constant
00051 !
00052 REAL,SAVE :: XP00               ! Reference pressure
00053 !
00054 REAL,SAVE :: XSTEFAN,XI0        ! Stefan-Boltzman constant, solar constant
00055 !
00056 REAL,SAVE :: XMD,XMV            ! Molar mass of dry air and molar mass of vapor
00057 REAL,SAVE :: XRD,XRV            ! Gaz constant for dry air, gaz constant for vapor
00058 REAL,SAVE :: XCPD,XCPV          ! Cpd (dry air), Cpv (vapor)
00059 REAL,SAVE :: XRHOLW             ! Volumic mass of liquid water
00060 REAL,SAVE :: XCL,XCI            ! Cl (liquid), Ci (ice)
00061 REAL,SAVE :: XTT                ! Triple point temperature
00062 REAL,SAVE :: XTTSI              ! Temperature of ice fusion over salty sea
00063 REAL,SAVE :: XTTS               ! Equivalent temperature of ice fusion over a mixed of sea and sea-ice
00064 REAL,SAVE :: XICEC              ! Threshold fraction over which the tile is considered as only covered with ice
00065 REAL,SAVE :: XLVTT              ! Vaporization heat constant
00066 REAL,SAVE :: XLSTT              ! Sublimation heat constant
00067 REAL,SAVE :: XLMTT              ! Melting heat constant
00068 REAL,SAVE :: XESTT              ! Saturation vapor pressure  at triple point
00069                                 ! temperature  
00070 REAL,SAVE :: XALPW,XBETAW,XGAMW ! Constants for saturation vapor 
00071                                 !  pressure  function 
00072 REAL,SAVE :: XALPI,XBETAI,XGAMI ! Constants for saturation vapor
00073                                 !  pressure  function over solid ice
00074 REAL, SAVE        :: XTH00      ! reference value  for the potential
00075                                 ! temperature
00076 REAL,SAVE :: XRHOLI             ! Volumic mass of ice
00077 REAL,SAVE :: XCONDI             ! thermal conductivity of ice (W m-1 K-1)
00078 !
00079 INTEGER, SAVE :: NDAYSEC        ! Number of seconds in a day
00080 !
00081 END MODULE MODD_CSTS
00082