Newer
Older
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
! ######spl
MODULE MODD_CST
! ###############
!
!!**** *MODD_CST* - declaration of Physic constants
!!
!! PURPOSE
!! -------
! The purpose of this declarative module is to declare the
! Physics constants.
!
!!
!!** IMPLICIT ARGUMENTS
!! ------------------
!! None
!!
!! REFERENCE
!! ---------
!! Book2 of documentation of Meso-NH (MODD_CST)
!!
!! AUTHOR
!! ------
!! V. Ducrocq *Meteo France*
!!
!! MODIFICATIONS
!! -------------
!! Original 16/05/94
!! J. Stein 02/01/95 add xrholw
!! J.-P. Pinty 13/12/95 add XALPI,XBETAI,XGAMI
!! J. Stein 25/07/97 add XTH00
!! V. Masson 05/10/98 add XRHOLI
!! C. Mari 31/10/00 add NDAYSEC
!! V. Masson 01/03/03 add conductivity of ice
!! R. El Khatib 04/08/14 add pre-computed quantities
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
! ------------
!
IMPLICIT NONE
REAL,SAVE :: XPI ! Pi
!
REAL,SAVE :: XDAY,XSIYEA,XSIDAY ! day duration, sideral year duration,
! sideral day duration
!
REAL,SAVE :: XKARMAN ! von karman constant
REAL,SAVE :: XLIGHTSPEED ! light speed
REAL,SAVE :: XPLANCK ! Planck constant
REAL,SAVE :: XBOLTZ ! Boltzman constant
REAL,SAVE :: XAVOGADRO ! Avogadro number
!
REAL,SAVE :: XRADIUS,XOMEGA ! Earth radius, earth rotation
REAL,SAVE :: XG ! Gravity constant
!
REAL,SAVE :: XP00 ! Reference pressure
!
REAL,SAVE :: XSTEFAN,XI0 ! Stefan-Boltzman constant, solar constant
!
REAL,SAVE :: XMD,XMV ! Molar mass of dry air and molar mass of vapor
REAL,SAVE :: XRD,XRV ! Gaz constant for dry air, gaz constant for vapor
REAL,SAVE :: XEPSILO ! XMV/XMD
REAL,SAVE :: XCPD,XCPV ! Cpd (dry air), Cpv (vapor)
REAL,SAVE :: XRHOLW ! Volumic mass of liquid water
REAL,SAVE :: XCL,XCI ! Cl (liquid), Ci (ice)
REAL,SAVE :: XTT ! Triple point temperature
REAL,SAVE :: XLVTT ! Vaporization heat constant
REAL,SAVE :: XLSTT ! Sublimation heat constant
REAL,SAVE :: XLMTT ! Melting heat constant
REAL,SAVE :: XESTT ! Saturation vapor pressure at triple point
! temperature
REAL,SAVE :: XALPW,XBETAW,XGAMW ! Constants for saturation vapor
! pressure function
REAL,SAVE :: XALPI,XBETAI,XGAMI ! Constants for saturation vapor
! pressure function over solid ice
REAL,SAVE :: XCONDI ! thermal conductivity of ice (W m-1 K-1)
REAL, SAVE :: XTH00 ! reference value for the potential
! temperature
REAL,SAVE :: XRHOLI ! Volumic mass of liquid water
!
INTEGER, SAVE :: NDAYSEC ! Number of seconds in a day
!
REAL,SAVE :: RDSRV ! XRD/XRV
REAL,SAVE :: RDSCPD ! XRD/XCPD
REAL,SAVE :: RINVXP00 ! 1./XP00
END MODULE MODD_CST