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