*** INI_CSTS * - routine to initialize the module MODD_CST
PURPOSE
-------
** METHOD ------ The physical constants are set to their numerical values
EXTERNAL
--------
FMLOOK : to retrieve logical unit number associated to a file
IMPLICIT ARGUMENTS
------------------
Module MODD_CST : contains physical constants
REFERENCE
---------
Book2 of the documentation (module MODD_CST, routine INI_CSTS)
AUTHOR
------
V. Ducrocq * Meteo France *
MODIFICATIONS
-------------
Original 18/05/94
J. Stein 02/01/95 add the volumic mass of liquid water
J.-P. Pinty 13/12/95 add the water vapor pressure over solid ice
J. Stein 29/06/97 add XTH00
V. Masson 05/10/98 add XRHOLI
C. Mari 31/10/00 add NDAYSEC
V. Masson 01/03/03 add XCONDI
A. Voldoire 01/12/09 add XTTSI, XICEC, XTTS for ESM
J. Escobar 28/03/2014 for pb with emissivity/aerosol reset XSURF_TINY=1.0e-80 in real8 case
0. DECLARATIONS
------------
1. FUNDAMENTAL CONSTANTS
---------------------
2. ASTRONOMICAL CONSTANTS
----------------------
3. TERRESTRIAL GEOIDE CONSTANTS
----------------------------
4. REFERENCE PRESSURE
-------------------
5. RADIATION CONSTANTS
-------------------
JUAN OVERFLOW XSTEFAN = 2. XPI5 * XBOLTZ4 / (15. XLIGHTSPEED2 * XPLANCK3) 6. THERMODYNAMIC CONSTANTS -----------------------
7. TURBULENCE CONSTANTS
--------------------
8. OCEAN CONSTANTS
---------------
CALL INI_OCEAN_CSTS
9. SURFACE CONSTANTS
-----------------
CALL INI_SURF_CSTS IF (LHOOK) CALL DR_HOOK('INI_CSTS',1,ZHOOK_HANDLE)