source: LMDZ6/branches/Amaury_dev/libf/phylmd/YOMCST.h @ 5133

Last change on this file since 5133 was 5128, checked in by abarral, 5 months ago

Correct bug in vlspltqs_loc.f90 from r2270 where we call SSUM with incorrect arguments.
Merge the three different versions of abort_gcm into one
Fix seq, para 3D compilation broken from r5107 onwards
(lint) usual + Remove uneeded fixed-form continuations
  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1.9 KB
RevLine 
[5099]1
[524]2! $Header$
[5099]3
[793]4!  ATTENTION!!!!: ce fichier include est compatible format fixe/format libre
[5093]5!                 veillez à n'utiliser que des ! pour les commentaires
6!                 et à bien positionner les & des lignes de continuation
[793]7!                 (les placer en colonne 6 et en colonne 73)
[5099]8
9
[524]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
[3447]22      REAL RMO3,RMCO2,RMC,RMCH4,RMN2O,RMCFC11,RMCFC12
23      REAL R,RMD,RMV,RD,RV,RCPD,RCPV,RCVD,RCVV
[3815]24      REAL RKAPPA,RETV, eps_w
[524]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
[5099]32
[793]33      COMMON/YOMCST/RPI   ,RCLUM ,RHPLA ,RKBOL ,RNAVO                   &
[5128]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
[524]45!    ------------------------------------------------------------------
[776]46!$OMP THREADPRIVATE(/YOMCST/)
Note: See TracBrowser for help on using the repository browser.