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
!MNH_LIC Copyright 1994-2021 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
!-----------------------------------------------------------------
! ###############
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
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
87
88
!! J.Escobar : 10/2017 : for real*4 , add XMNH_HUGE_12_LOG
!! J.L. Redelsperger 03/2021 add constants for ocean penetrating solar
!-------------------------------------------------------------------------------
!
!* 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 :: XP00OCEAN ! Reference pressure for ocean model
REAL,SAVE :: XRH00OCEAN ! Reference density for ocean model
!
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 :: XALPHAOC ! thermal expansion coefficient for ocean (K-1)
REAL,SAVE :: XBETAOC ! Haline contraction coeff for ocean (S-1)
REAL,SAVE :: XTH00 ! reference value for the potential temperature
REAL,SAVE :: XTH00OCEAN ! Ref value for pot temp in ocean model
REAL,SAVE :: XSA00OCEAN ! Ref value for SAlinity in ocean model
REAL,SAVE :: XROC=0.69! 3 coeffs for SW penetration in Ocean (Hoecker et al)
REAL,SAVE :: XD1=1.1
REAL,SAVE :: XD2=23.
! Values used in SURFEX CMO
!REAL,SAVE :: XROC=0.58
!REAL,SAVE :: XD1=0.35
!REAL,SAVE :: XD2=23.
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
!
! Some machine precision value depending of real4/8 use
!
REAL,SAVE :: XMNH_TINY ! minimum real on this machine
REAL,SAVE :: XMNH_TINY_12 ! sqrt(minimum real on this machine)
REAL,SAVE :: XMNH_EPSILON ! minimum space with 1.0
REAL,SAVE :: XMNH_HUGE ! maximum real on this machine
REAL,SAVE :: XMNH_HUGE_12_LOG ! maximum log(sqrt(real)) on this machine
REAL,SAVE :: XEPS_DT ! default value for DT test
REAL,SAVE :: XRES_FLAT_CART ! default flat&cart residual tolerance
REAL,SAVE :: XRES_OTHER ! default not flat&cart residual tolerance
REAL,SAVE :: XRES_PREP ! default prep residual tolerance
!
END MODULE MODD_CST