| [4661] | 1 | !SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier |
|---|
| 2 | !SFX_LIC This is part of the SURFEX software governed by the CeCILL-C licence |
|---|
| 3 | !SFX_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt |
|---|
| 4 | !SFX_LIC for details. version 1. |
|---|
| 5 | ! ############### |
|---|
| 6 | MODULE MODD_CSTS |
|---|
| 7 | ! ############### |
|---|
| [5099] | 8 | |
|---|
| [4661] | 9 | !!**** *MODD_CSTS* - declaration of Physic constants |
|---|
| 10 | !! |
|---|
| 11 | !! PURPOSE |
|---|
| 12 | !! ------- |
|---|
| 13 | ! The purpose of this declarative module is to declare the |
|---|
| 14 | ! Physics constants. |
|---|
| [5099] | 15 | |
|---|
| [4661] | 16 | !! |
|---|
| 17 | !!** IMPLICIT ARGUMENTS |
|---|
| 18 | !! ------------------ |
|---|
| 19 | !! None |
|---|
| 20 | !! |
|---|
| 21 | !! REFERENCE |
|---|
| 22 | !! --------- |
|---|
| 23 | !! |
|---|
| 24 | !! AUTHOR |
|---|
| 25 | !! ------ |
|---|
| 26 | !! V. Ducrocq *Meteo France* |
|---|
| 27 | !! |
|---|
| 28 | !! MODIFICATIONS |
|---|
| 29 | !! ------------- |
|---|
| 30 | !! Original 16/05/94 |
|---|
| 31 | !! J. Stein 02/01/95 add xrholw |
|---|
| 32 | !! J.-P. Pinty 13/12/95 add XALPI,XBETAI,XGAMI |
|---|
| 33 | !! J. Stein 25/07/97 add XTH00 |
|---|
| 34 | !! V. Masson 05/10/98 add XRHOLI |
|---|
| 35 | !! C. Mari 31/10/00 add NDAYSEC |
|---|
| 36 | !! J. Escobar 06/13 add XSURF_TIMY XSURF_TIMY_12 XSURF_EPSILON for REAL*4 |
|---|
| 37 | !------------------------------------------------------------------------------- |
|---|
| [5099] | 38 | |
|---|
| [4661] | 39 | !* 0. DECLARATIONS |
|---|
| 40 | ! ------------ |
|---|
| [5099] | 41 | |
|---|
| [4661] | 42 | IMPLICIT NONE |
|---|
| 43 | REAL,SAVE :: XPI ! Pi |
|---|
| [5099] | 44 | |
|---|
| [4661] | 45 | REAL,SAVE :: XDAY,XSIYEA,XSIDAY ! day duration, sideral year duration, |
|---|
| 46 | ! sideral day duration |
|---|
| [5099] | 47 | |
|---|
| [4661] | 48 | REAL,SAVE :: XKARMAN ! von karman constant |
|---|
| 49 | REAL,SAVE :: XLIGHTSPEED ! light speed |
|---|
| 50 | REAL,SAVE :: XPLANCK ! Planck constant |
|---|
| 51 | REAL,SAVE :: XBOLTZ ! Boltzman constant |
|---|
| 52 | REAL,SAVE :: XAVOGADRO ! Avogadro number |
|---|
| [5099] | 53 | |
|---|
| [4661] | 54 | REAL,SAVE :: XRADIUS,XOMEGA ! Earth radius, earth rotation |
|---|
| 55 | REAL,SAVE :: XG ! Gravity constant |
|---|
| [5099] | 56 | |
|---|
| [4661] | 57 | REAL,SAVE :: XP00 ! Reference pressure |
|---|
| [5099] | 58 | |
|---|
| [4661] | 59 | REAL,SAVE :: XSTEFAN,XI0 ! Stefan-Boltzman constant, solar constant |
|---|
| [5099] | 60 | |
|---|
| [4661] | 61 | REAL,SAVE :: XMD,XMV ! Molar mass of dry air and molar mass of vapor |
|---|
| 62 | REAL,SAVE :: XRD,XRV ! Gaz constant for dry air, gaz constant for vapor |
|---|
| 63 | REAL,SAVE :: XCPD,XCPV ! Cpd (dry air), Cpv (vapor) |
|---|
| 64 | REAL,SAVE :: XRHOLW ! Volumic mass of liquid water |
|---|
| 65 | REAL,SAVE :: XCL,XCI ! Cl (liquid), Ci (ice) |
|---|
| 66 | REAL,SAVE :: XTT ! Triple point temperature |
|---|
| 67 | REAL,SAVE :: XTTSI ! Temperature of ice fusion over salty sea |
|---|
| 68 | REAL,SAVE :: XTTS ! Equivalent temperature of ice fusion over a mixed of sea and sea-ice |
|---|
| 69 | REAL,SAVE :: XICEC ! Threshold fraction over which the tile is considered as only covered with ice |
|---|
| 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 ice |
|---|
| 82 | REAL,SAVE :: XCONDI ! thermal conductivity of ice (W m-1 K-1) |
|---|
| [5099] | 83 | |
|---|
| [4661] | 84 | INTEGER, SAVE :: NDAYSEC ! Number of seconds in a day |
|---|
| [5099] | 85 | |
|---|
| [4661] | 86 | REAL,SAVE :: XSURF_TINY ! minimum real on this machine |
|---|
| 87 | REAL,SAVE :: XSURF_TINY_12 ! sqrt(minimum real on this machine) |
|---|
| 88 | REAL,SAVE :: XSURF_EPSILON ! minimum space with 1.0 |
|---|
| [5099] | 89 | |
|---|
| [4661] | 90 | END MODULE MODD_CSTS |
|---|
| 91 | |
|---|
