source: trunk/LMDZ.TITAN/libf/phytitan/YOMCST.h @ 1243

Last change on this file since 1243 was 1048, checked in by slebonnois, 11 years ago

SL: update pour divers details titan + quelques modifs arch et makelmdz

File size: 1.4 KB
Line 
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! A1.5,6 Thermodynamic liquid,solid phases
22      REAL RCW,RCS
23! A1.7 Thermodynamic transition of phase
24      REAL RLVTT,RLSTT,RLMLT,RTT,RATM
25! A1.8 Curve of saturation
26      REAL RESTT,RALPW,RBETW,RGAMW,RALPS,RBETS,RGAMS
27      REAL RALPD,RBETD,RGAMD
28!
29      COMMON/YOMCST/RPI ,RCLUM, RHPLA, RKBOL, RNAVO ,RDAY  ,REA         &
30     & ,REPSM ,RSIYEA,RSIDAY,ROMEGA , R_ecc, R_peri, R_incl             &
31     & ,RA    ,RG ,R1SA                                                 &
32     & ,RSIGMA,R ,RMD   ,RMV   ,RD    ,RV    ,RCPD ,RCPV,RCVD           &
33     & ,RCVV  ,RKAPPA,RETV ,RCW   ,RCS ,RLVTT ,RLSTT ,RLMLT ,RTT ,RATM  &
34     & ,RESTT ,RALPW ,RBETW ,RGAMW ,RALPS ,RBETS ,RGAMS ,RALPD ,RBETD   &
35     & ,RGAMD
Note: See TracBrowser for help on using the repository browser.