source: LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_yomcst.f90 @ 5101

Last change on this file since 5101 was 5098, checked in by abarral, 4 months ago

Remove CRAY key (obsolete calls to functions that don't exist anymore, bugs in some implementations, irrelevant now)
Replace usage of CPP_XIOS key by using_xios logical
Remove always unused testcpu bits
Replace most uses of CPP_StratAer by the corresponding logical defined in lmdz_cppkeys_wrapper.F90 [this breaks iso compilation because phyiso doesn't define all aerosols - to be fixed later]
Replaces uses of include "yomcst.h" by the lmdz_yomcst.f90 module in .[fF]90 files
  • 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.6 KB
Line 
1! TODO: REPLACE YOMCST.h ONCE .F -> .f90 !
2
3module lmdz_yomcst
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.1.bis Constantes concernant l'orbite de la Terre:
9  REAL R_ecc, R_peri, R_incl
10  ! A1.2 Geoide
11  REAL RA, RG, R1SA
12  ! A1.3 Radiation
13  !     REAL RSIGMA,RI0
14  REAL RSIGMA
15  ! A1.4 Thermodynamic gas phase
16  REAL RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12
17  REAL R, RMD, RMV, RD, RV, RCPD, RCPV, RCVD, RCVV
18  REAL RKAPPA, RETV, eps_w
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  COMMON/YOMCST/RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
28          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
29          , R_ecc, R_peri, R_incl                                      &
30          , RA, RG, R1SA                                         &
31          , RSIGMA                                                     &
32          , R, RMD, RMV, RD, RV, RCPD                    &
33          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
34          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
35          , RCW, RCS                                                 &
36          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
37          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
38          , RALPD, RBETD, RGAMD
39  !$OMP THREADPRIVATE(/YOMCST/)
40
41end module lmdz_yomcst
Note: See TracBrowser for help on using the repository browser.