source: LMDZ.3.3/branches/rel-LF/libf/phylmd/YOMCST.h @ 279

Last change on this file since 279 was 98, checked in by lmdzadmin, 24 years ago

Interface avec les differentes surface, version de travail.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.2 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     S      ,RDAY  ,REA   ,REPSM ,RSIYEA,RSIDAY,ROMEGA
24     s      ,R_ecc, R_peri, R_incl
25     S      ,RA    ,RG    ,R1SA
26     S      ,RSIGMA,RI0
27     S      ,R     ,RMD   ,RMV   ,RD    ,RV    ,RCPD
28     S      ,RCPV  ,RCVD  ,RCVV  ,RKAPPA,RETV
29     S      ,RCW   ,RCS
30     S      ,RLVTT ,RLSTT ,RLMLT ,RTT   ,RATM
31     S      ,RESTT ,RALPW ,RBETW ,RGAMW ,RALPS ,RBETS ,RGAMS
32     S      ,RALPD ,RBETD ,RGAMD
33!    ------------------------------------------------------------------
Note: See TracBrowser for help on using the repository browser.