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

Last change on this file since 134 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
RevLine 
[94]1! A1.0 Fundamental constants
[112]2      REAL :: RPI,RCLUM,RHPLA,RKBOL,RNAVO
[94]3! A1.1 Astronomical constants
[112]4      REAL :: RDAY,REA,REPSM,RSIYEA,RSIDAY,ROMEGA
[94]5! A1.1.bis Constantes concernant l'orbite de la Terre:
[112]6      REAL :: R_ecc, R_peri, R_incl
[94]7! A1.2 Geoide
[112]8      REAL :: RA,RG,R1SA
[94]9! A1.3 Radiation
[112]10      REAL :: RSIGMA,RI0
[94]11! A1.4 Thermodynamic gas phase
[112]12      REAL :: R,RMD,RMV,RD,RV,RCPD,RCPV,RCVD,RCVV
13      REAL :: RKAPPA,RETV
[94]14! A1.5,6 Thermodynamic liquid,solid phases
[112]15      REAL :: RCW,RCS
[94]16! A1.7 Thermodynamic transition of phase
[112]17      REAL :: RLVTT,RLSTT,RLMLT,RTT,RATM
[94]18! A1.8 Curve of saturation
[112]19      REAL :: RESTT,RALPW,RBETW,RGAMW,RALPS,RBETS,RGAMS
20      REAL :: RALPD,RBETD,RGAMD
[94]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 &
[112]32     &      ,RALPD ,RBETD ,RGAMD
Note: See TracBrowser for help on using the repository browser.