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

Last change on this file since 109 was 97, checked in by (none), 24 years ago

This commit was manufactured by cvs2svn to create branch 'rel-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.