[524] | 1 | ! |
---|
| 2 | ! $Header$ |
---|
| 3 | ! |
---|
| 4 | ! A1.0 Fundamental constants |
---|
| 5 | REAL RPI,RCLUM,RHPLA,RKBOL,RNAVO |
---|
| 6 | ! A1.1 Astronomical constants |
---|
| 7 | REAL RDAY,REA,REPSM,RSIYEA,RSIDAY,ROMEGA |
---|
| 8 | ! A1.1.bis Constantes concernant l'orbite de la Terre: |
---|
| 9 | REAL R_ecc, R_peri, R_incl |
---|
| 10 | ! A1.2 Geoide |
---|
| 11 | REAL RA,RG,R1SA |
---|
| 12 | ! A1.3 Radiation |
---|
| 13 | ! REAL RSIGMA,RI0 |
---|
| 14 | REAL RSIGMA |
---|
| 15 | ! A1.4 Thermodynamic gas phase |
---|
[652] | 16 | REAL R,RMD,RMO3,RMV,RD,RV,RCPD,RCPV,RCVD,RCVV |
---|
[524] | 17 | REAL RKAPPA,RETV |
---|
| 18 | ! A1.5,6 Thermodynamic liquid,solid phases |
---|
| 19 | REAL RCW,RCS |
---|
| 20 | ! A1.7 Thermodynamic transition of phase |
---|
| 21 | REAL RLVTT,RLSTT,RLMLT,RTT,RATM |
---|
| 22 | ! A1.8 Curve of saturation |
---|
| 23 | REAL RESTT,RALPW,RBETW,RGAMW,RALPS,RBETS,RGAMS |
---|
| 24 | REAL RALPD,RBETD,RGAMD |
---|
| 25 | ! |
---|
| 26 | ! S ,RSIGMA,RI0 |
---|
| 27 | COMMON/YOMCST/RPI ,RCLUM ,RHPLA ,RKBOL ,RNAVO |
---|
| 28 | S ,RDAY ,REA ,REPSM ,RSIYEA,RSIDAY,ROMEGA |
---|
[652] | 29 | S ,R_ecc, R_peri, R_incl |
---|
[524] | 30 | S ,RA ,RG ,R1SA |
---|
| 31 | S ,RSIGMA |
---|
[652] | 32 | S ,R ,RMD ,RMO3 ,RMV ,RD ,RV ,RCPD |
---|
[524] | 33 | S ,RCPV ,RCVD ,RCVV ,RKAPPA,RETV |
---|
| 34 | S ,RCW ,RCS |
---|
| 35 | S ,RLVTT ,RLSTT ,RLMLT ,RTT ,RATM |
---|
| 36 | S ,RESTT ,RALPW ,RBETW ,RGAMW ,RALPS ,RBETS ,RGAMS |
---|
| 37 | S ,RALPD ,RBETD ,RGAMD |
---|
| 38 | ! ------------------------------------------------------------------ |
---|