Last change
on this file since 4011 was
2089,
checked in by Laurent Fairhead, 10 years ago
|
Inclusion de la physique de MAR
Integration of MAR physics
|
File size:
1.1 KB
|
Line | |
---|
1 | MODULE YOENCST |
---|
2 | |
---|
3 | |
---|
4 | #include "tsmbkind.h" |
---|
5 | |
---|
6 | IMPLICIT NONE |
---|
7 | |
---|
8 | SAVE |
---|
9 | |
---|
10 | ! ------------------------------------------------------------------ |
---|
11 | |
---|
12 | !* 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 :: RD |
---|
40 | REAL_B :: RV |
---|
41 | REAL_B :: RCPD |
---|
42 | REAL_B :: RCPV |
---|
43 | REAL_B :: RCVD |
---|
44 | REAL_B :: RCVV |
---|
45 | REAL_B :: RKAPPA |
---|
46 | ! A1.5,6 THERMODYNAMIC LIQUID,SOLID PHASES |
---|
47 | REAL_B :: RCW |
---|
48 | REAL_B :: RCS |
---|
49 | ! A1.7 THERMODYNAMIC TRANSITION OF PHASE |
---|
50 | REAL_B :: RLVTT |
---|
51 | REAL_B :: RLSTT |
---|
52 | REAL_B :: RTT |
---|
53 | REAL_B :: RATM |
---|
54 | ! A1.8 CURVE OF SATURATION |
---|
55 | REAL_B :: RESTT |
---|
56 | REAL_B :: RALPW |
---|
57 | REAL_B :: RBETW |
---|
58 | REAL_B :: RGAMW |
---|
59 | REAL_B :: RALPS |
---|
60 | REAL_B :: RBETS |
---|
61 | REAL_B :: RGAMS |
---|
62 | |
---|
63 | ! ------------------------------------------------------------------ |
---|
64 | END MODULE YOENCST |
---|
Note: See
TracBrowser
for help on using the repository browser.