source: LMDZ.3.3/branches/rel-LF/libf/phylmd/YOMCST.inc @ 180

Last change on this file since 180 was 112, checked in by lmdzadmin, 24 years ago

Mise au point de l'interface en force, ca tourne sur un pas de temps
LF

  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 1.1 KB
Line 
1! A1.0 Fundamental constants
2      REAL :: RPI,RCLUM,RHPLA,RKBOL,RNAVO
3! A1.1 Astronomical constants
4      REAL :: RDAY,REA,REPSM,RSIYEA,RSIDAY,ROMEGA
5! A1.1.bis Constantes concernant l'orbite de la Terre:
6      REAL :: R_ecc, R_peri, R_incl
7! A1.2 Geoide
8      REAL :: RA,RG,R1SA
9! A1.3 Radiation
10      REAL :: RSIGMA,RI0
11! A1.4 Thermodynamic gas phase
12      REAL :: R,RMD,RMV,RD,RV,RCPD,RCPV,RCVD,RCVV
13      REAL :: RKAPPA,RETV
14! A1.5,6 Thermodynamic liquid,solid phases
15      REAL :: RCW,RCS
16! A1.7 Thermodynamic transition of phase
17      REAL :: RLVTT,RLSTT,RLMLT,RTT,RATM
18! A1.8 Curve of saturation
19      REAL :: RESTT,RALPW,RBETW,RGAMW,RALPS,RBETS,RGAMS
20      REAL :: RALPD,RBETD,RGAMD
21!
22      COMMON/YOMCST/RPI   ,RCLUM ,RHPLA ,RKBOL ,RNAVO &
23     &      ,RDAY  ,REA   ,REPSM ,RSIYEA,RSIDAY,ROMEGA &
24     &      ,R_ecc, R_peri, R_incl &
25     &      ,RA    ,RG    ,R1SA &
26     &      ,RSIGMA,RI0 &
27     &      ,R     ,RMD   ,RMV   ,RD    ,RV    ,RCPD &
28     &      ,RCPV  ,RCVD  ,RCVV  ,RKAPPA,RETV &
29     &      ,RCW   ,RCS &
30     &      ,RLVTT ,RLSTT ,RLMLT ,RTT   ,RATM &
31     &      ,RESTT ,RALPW ,RBETW ,RGAMW ,RALPS ,RBETS ,RGAMS &
32     &      ,RALPD ,RBETD ,RGAMD
Note: See TracBrowser for help on using the repository browser.