SURFEX
V8_0
Surfex V8_0 release
Main Page
Data Types List
Files
File List
File Members
All
Classes
Files
Functions
Variables
src
SURFEX
modd_csts.F90
Go to the documentation of this file.
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
! ###############
8
!
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.
15
!
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
!-------------------------------------------------------------------------------
38
!
39
!* 0. DECLARATIONS
40
! ------------
41
!
42
IMPLICIT NONE
43
REAL
,
SAVE
:: XPI
! Pi
44
!
45
REAL
,
SAVE
:: XDAY,XSIYEA,XSIDAY
! day duration, sideral year duration,
46
! sideral day duration
47
!
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
53
!
54
REAL
,
SAVE
:: XRADIUS,XOMEGA
! Earth radius, earth rotation
55
REAL
,
SAVE
:: XG
! Gravity constant
56
!
57
REAL
,
SAVE
:: XP00
! Reference pressure
58
!
59
REAL
,
SAVE
:: XSTEFAN,XI0
! Stefan-Boltzman constant, solar constant
60
!
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)
83
!
84
INTEGER
,
SAVE
:: NDAYSEC
! Number of seconds in a day
85
!
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
89
!
90
END MODULE
modd_csts
91
modd_csts
Definition:
modd_csts.F90:6
Generated on Fri May 13 2016 09:31:04 for SURFEX by
1.8.5