| 1 | ! |
|---|
| 2 | ! ATTENTION!!!!: ce fichier include est compatible format fixe/format libre |
|---|
| 3 | ! veillez n'utiliser que des ! pour les commentaires |
|---|
| 4 | ! et bien positionner les & des lignes de continuation |
|---|
| 5 | ! (les placer en colonne 6 et en colonne 73) |
|---|
| 6 | ! |
|---|
| 7 | ! A1.0 Fundamental constants |
|---|
| 8 | REAL RPI,RCLUM,RHPLA,RKBOL,RNAVO |
|---|
| 9 | ! A1.1 Astronomical constants |
|---|
| 10 | REAL RDAY,REA,REPSM,RSIYEA,RSIDAY,ROMEGA |
|---|
| 11 | ! A1.1.bis Constantes concernant l'orbite de la Terre: |
|---|
| 12 | REAL :: R_ecc, R_peri, R_incl |
|---|
| 13 | ! A1.2 Geoide |
|---|
| 14 | REAL RA,RG,R1SA |
|---|
| 15 | ! A1.3 Radiation |
|---|
| 16 | ! REAL :: RSIGMA,RI0 |
|---|
| 17 | REAL RSIGMA |
|---|
| 18 | ! A1.4 Thermodynamic gas phase |
|---|
| 19 | REAL R,RMD,RMV,RD,RV,RCPD,RCPV,RCVD,RCVV |
|---|
| 20 | REAL RKAPPA,RETV |
|---|
| 21 | ! ADAPTATION GCM POUR CP(T) |
|---|
| 22 | real cpdet |
|---|
| 23 | external cpdet |
|---|
| 24 | ! A1.5,6 Thermodynamic liquid,solid phases |
|---|
| 25 | REAL RCW,RCS |
|---|
| 26 | ! A1.7 Thermodynamic transition of phase |
|---|
| 27 | REAL RLVTT,RLSTT,RLMLT,RTT,RATM |
|---|
| 28 | ! A1.8 Curve of saturation |
|---|
| 29 | REAL RESTT,RALPW,RBETW,RGAMW,RALPS,RBETS,RGAMS |
|---|
| 30 | REAL RALPD,RBETD,RGAMD |
|---|
| 31 | ! |
|---|
| 32 | COMMON/YOMCST/RPI ,RCLUM, RHPLA, RKBOL, RNAVO ,RDAY ,REA & |
|---|
| 33 | & ,REPSM ,RSIYEA,RSIDAY,ROMEGA , R_ecc, R_peri, R_incl, & |
|---|
| 34 | & ,RA ,RG ,R1SA & |
|---|
| 35 | & ,RSIGMA,R ,RMD ,RMV ,RD ,RV ,RCPD ,RCPV,RCVD & |
|---|
| 36 | & ,RCVV ,RKAPPA,RETV ,RCW ,RCS ,RLVTT ,RLSTT ,RLMLT ,RTT ,RATM & |
|---|
| 37 | & ,RESTT ,RALPW ,RBETW ,RGAMW ,RALPS ,RBETS ,RGAMS ,RALPD ,RBETD & |
|---|
| 38 | & ,RGAMD |
|---|
