source: LMDZ6/branches/DYNAMICO-conv/libf/phymar/yoencst.F90 @ 3740

Last change on this file since 3740 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 
1MODULE YOENCST
2
3
4#include "tsmbkind.h"
5
6IMPLICIT NONE
7
8SAVE
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
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 :: RD
40REAL_B :: RV
41REAL_B :: RCPD
42REAL_B :: RCPV
43REAL_B :: RCVD
44REAL_B :: RCVV
45REAL_B :: RKAPPA
46! A1.5,6 THERMODYNAMIC LIQUID,SOLID PHASES
47REAL_B :: RCW
48REAL_B :: RCS
49! A1.7 THERMODYNAMIC TRANSITION OF PHASE
50REAL_B :: RLVTT
51REAL_B :: RLSTT
52REAL_B :: RTT
53REAL_B :: RATM
54! A1.8 CURVE OF SATURATION
55REAL_B :: RESTT
56REAL_B :: RALPW
57REAL_B :: RBETW
58REAL_B :: RGAMW
59REAL_B :: RALPS
60REAL_B :: RBETS
61REAL_B :: RGAMS
62
63!    ------------------------------------------------------------------
64END MODULE YOENCST
Note: See TracBrowser for help on using the repository browser.