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

Last change on this file since 230 was 230, checked in by lmdzadmin, 23 years ago

Merge de la physique avec la branche principale
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.0 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!
[230]22      COMMON/YOMCST/RPI ,RCLUM, RHPLA, RKBOL, RNAVO ,RDAY  ,REA &
23     & ,REPSM ,RSIYEA,RSIDAY,ROMEGA ,R_ecc, R_peri, R_incl, RA    ,RG &
24     & ,R1SA ,RSIGMA,RI0,R ,RMD   ,RMV   ,RD    ,RV    ,RCPD ,RCPV,RCVD &
25     & ,RCVV  ,RKAPPA,RETV ,RCW   ,RCS ,RLVTT ,RLSTT ,RLMLT ,RTT ,RATM &
26     & ,RESTT ,RALPW ,RBETW ,RGAMW ,RALPS ,RBETS ,RGAMS ,RALPD ,RBETD ,RGAMD
Note: See TracBrowser for help on using the repository browser.