source: LMDZ6/branches/Ocean_skin/libf/phymar/yomcst.F90 @ 3851

Last change on this file since 3851 was 2089, checked in by Laurent Fairhead, 10 years ago

Inclusion de la physique de MAR


Integration of MAR physics

File size: 1.3 KB
Line 
1MODULE YOMCST
2
3
4#include "tsmbkind.h"
5
6IMPLICIT NONE
7
8SAVE
9
10!     ------------------------------------------------------------------
11
12!*    Common of physical constants
13!     You will find the meanings in the annex 1 of the documentation
14
15! A1.0 Fundamental constants
16REAL_B :: RPI
17REAL_B :: RCLUM
18REAL_B :: RHPLA
19REAL_B :: RKBOL
20REAL_B :: RNAVO
21! A1.1 Astronomical constants
22REAL_B :: RDAY
23REAL_B :: REA
24REAL_B :: REPSM
25REAL_B :: RSIYEA
26REAL_B :: RSIDAY
27REAL_B :: ROMEGA
28! A1.2 Geoide
29REAL_B :: RA
30REAL_B :: RG
31REAL_B :: R1SA
32! A1.3 Radiation
33REAL_B :: RSIGMA
34REAL_B :: RI0
35! A1.4 Thermodynamic gas phase
36REAL_B :: R
37REAL_B :: RMD
38REAL_B :: RMV
39REAL_B :: RMO3
40REAL_B :: RD
41REAL_B :: RV
42REAL_B :: RCPD
43REAL_B :: RCPV
44REAL_B :: RCVD
45REAL_B :: RCVV
46REAL_B :: RKAPPA
47REAL_B :: RETV
48! A1.5,6 Thermodynamic liquid,solid phases
49REAL_B :: RCW
50REAL_B :: RCS
51! A1.7 Thermodynamic transition of phase
52REAL_B :: RLVTT
53REAL_B :: RLSTT
54REAL_B :: RLVZER
55REAL_B :: RLSZER
56REAL_B :: RLMLT
57REAL_B :: RTT
58REAL_B :: RATM
59REAL_B :: RDT
60! A1.8 Curve of saturation
61REAL_B :: RESTT
62REAL_B :: RALPW
63REAL_B :: RBETW
64REAL_B :: RGAMW
65REAL_B :: RALPS
66REAL_B :: RBETS
67REAL_B :: RGAMS
68REAL_B :: RALPD
69REAL_B :: RBETD
70REAL_B :: RGAMD
71
72
73!    ------------------------------------------------------------------
74END MODULE YOMCST
Note: See TracBrowser for help on using the repository browser.