[3] | 1 | ! |
---|
| 2 | ! $Header: /home/cvsroot/LMDZ4/libf/phylmd/YOMCST.inc,v 1.1.1.1 2004/05/19 12:53:08 lmdzadmin Exp $ |
---|
| 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.2 Geoide |
---|
| 9 | REAL :: RA,RG,R1SA |
---|
| 10 | ! A1.3 Radiation |
---|
| 11 | ! REAL :: RSIGMA,RI0 |
---|
| 12 | REAL :: RSIGMA |
---|
| 13 | ! A1.4 Thermodynamic gas phase |
---|
| 14 | REAL :: R,RMD,RMV,RD,RV,RCPD,RCPV,RCVD,RCVV |
---|
| 15 | REAL :: RKAPPA,RETV |
---|
| 16 | ! ADAPTATION GCM POUR CP(T) |
---|
| 17 | real :: cpdet |
---|
| 18 | external cpdet |
---|
| 19 | ! A1.5,6 Thermodynamic liquid,solid phases |
---|
| 20 | REAL :: RCW,RCS |
---|
| 21 | ! A1.7 Thermodynamic transition of phase |
---|
| 22 | REAL :: RLVTT,RLSTT,RLMLT,RTT,RATM |
---|
| 23 | ! A1.8 Curve of saturation |
---|
| 24 | REAL :: RESTT,RALPW,RBETW,RGAMW,RALPS,RBETS,RGAMS |
---|
| 25 | REAL :: RALPD,RBETD,RGAMD |
---|
| 26 | ! |
---|
| 27 | !IM & ,R1SA ,RSIGMA,RI0,R ,RMD ,RMV ,RD ,RV ,RCPD ,RCPV,RCVD & |
---|
| 28 | COMMON/YOMCST/RPI ,RCLUM, RHPLA, RKBOL, RNAVO ,RDAY ,REA & |
---|
| 29 | & ,REPSM ,RSIYEA,RSIDAY,ROMEGA , RA ,RG & |
---|
| 30 | & ,R1SA ,RSIGMA,R ,RMD ,RMV ,RD ,RV ,RCPD ,RCPV,RCVD & |
---|
| 31 | & ,RCVV ,RKAPPA,RETV ,RCW ,RCS ,RLVTT ,RLSTT ,RLMLT ,RTT ,RATM & |
---|
| 32 | & ,RESTT ,RALPW ,RBETW ,RGAMW ,RALPS ,RBETS ,RGAMS ,RALPD ,RBETD ,RGAMD |
---|