source: trunk/libf/phytitan/YOMCST.h @ 86

Last change on this file since 86 was 3, checked in by slebonnois, 15 years ago

Creation de repertoires:

  • chantiers : pour communiquer sur nos projets de modifs
  • documentation : pour stocker les docs

Ajout de:

  • libf/phytitan : physique de Titan
  • libf/chimtitan: chimie de Titan
  • libf/phyvenus : physique de Venus
File size: 1.2 KB
Line 
1!
2! $Header: /home/cvsroot/LMDZ4/libf/phylmd/YOMCST.h,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!    S      ,RSIGMA,RI0
28      COMMON/YOMCST/RPI   ,RCLUM ,RHPLA ,RKBOL ,RNAVO
29     S      ,RDAY  ,REA   ,REPSM ,RSIYEA,RSIDAY,ROMEGA
30     S      ,RA    ,RG    ,R1SA
31     S      ,RSIGMA
32     S      ,R     ,RMD   ,RMV   ,RD    ,RV    ,RCPD
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!    ------------------------------------------------------------------
Note: See TracBrowser for help on using the repository browser.