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