INI_CSTS Subroutine

subroutine INI_CSTS()

Uses

  • proc~~ini_csts~~UsesGraph proc~ini_csts INI_CSTS module~modd_csts MODD_CSTS proc~ini_csts->module~modd_csts

*** 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
           --------------------

CALL INI_CTURBS

   8.     OCEAN CONSTANTS
           ---------------

CALL INI_OCEAN_CSTS

   9.     SURFACE CONSTANTS
           -----------------

CALL INI_SURF_CSTS IF (LHOOK) CALL DR_HOOK('INI_CSTS',1,ZHOOK_HANDLE)

Arguments

None

Called by

proc~~ini_csts~~CalledByGraph proc~ini_csts INI_CSTS proc~cdrag cdrag proc~cdrag->proc~ini_csts proc~cdrag~2 cdrag proc~cdrag~2->proc~ini_csts proc~screenc screenc proc~screenc->proc~cdrag proc~surf_land_bucket_hetero~2 surf_land_bucket_hetero proc~surf_land_bucket_hetero~2->proc~cdrag proc~stdlevvarn~2 stdlevvarn proc~stdlevvarn~2->proc~cdrag proc~screencn screencn proc~stdlevvarn~2->proc~screencn proc~screencn->proc~cdrag proc~pbl_surface pbl_surface proc~pbl_surface->proc~cdrag proc~stdlevvarn stdlevvarn proc~pbl_surface->proc~stdlevvarn proc~stdlevvar stdlevvar proc~pbl_surface->proc~stdlevvar proc~surf_land surf_land proc~pbl_surface->proc~surf_land proc~surf_land_bucket_hetero surf_land_bucket_hetero proc~surf_land_bucket_hetero->proc~cdrag proc~stdlevvar~2 stdlevvar proc~stdlevvar~2->proc~cdrag proc~stdlevvar~2->proc~screenc proc~screencn~2 screencn proc~screencn~2->proc~cdrag proc~stdlevvarn->proc~cdrag proc~stdlevvarn->proc~screencn proc~pbl_surface~2 pbl_surface proc~pbl_surface~2->proc~cdrag proc~pbl_surface~2->proc~stdlevvarn proc~pbl_surface~2->proc~stdlevvar proc~pbl_surface~2->proc~surf_land proc~stdlevvar->proc~cdrag proc~stdlevvar->proc~screenc proc~screenc~2 screenc proc~screenc~2->proc~cdrag proc~physiq physiq proc~physiq->proc~pbl_surface proc~surf_land~2 surf_land proc~surf_land~2->proc~surf_land_bucket_hetero proc~surf_land->proc~surf_land_bucket_hetero proc~physiq~2 physiq proc~physiq~2->proc~pbl_surface proc~old_lmdz1d old_lmdz1d proc~old_lmdz1d->proc~physiq proc~call_physiq call_physiq proc~call_physiq->proc~physiq proc~call_physiq~2 call_physiq proc~call_physiq~2->proc~physiq proc~scm scm proc~scm->proc~physiq program~lmdz1d lmdz1d program~lmdz1d->proc~old_lmdz1d program~lmdz1d->proc~scm proc~calfis calfis proc~calfis->proc~call_physiq proc~leapfrog leapfrog proc~leapfrog->proc~calfis program~gcm~2 gcm program~gcm~2->proc~leapfrog

Contents

None