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

Last change on this file since 5139 was 5139, checked in by abarral, 3 months ago

Put nuage.h, flux_arp.h, compbl.h into modules
Move unused phylmd/ini_hist* to obsolete
  • 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: 2.4 KB
RevLine 
[5139]1! Replaces yomcst.h
[5098]2
3module lmdz_yomcst
[5139]4  IMPLICIT NONE; PRIVATE
5
6  PUBLIC RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
7          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
8          , R_ecc, R_peri, R_incl                                      &
9          , RA, RG, R1SA                                         &
10          , RSIGMA                                                     &
11          , R, RMD, RMV, RD, RV, RCPD                    &
12          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
13          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
14          , RCW, RCS                                                 &
15          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
16          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
17          , RALPD, RBETD, RGAMD
18
[5098]19  ! A1.0 Fundamental constants
20  REAL RPI, RCLUM, RHPLA, RKBOL, RNAVO
21  ! A1.1 Astronomical constants
22  REAL RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA
23  ! A1.1.bis Constantes concernant l'orbite de la Terre:
24  REAL R_ecc, R_peri, R_incl
25  ! A1.2 Geoide
26  REAL RA, RG, R1SA
27  ! A1.3 Radiation
28  !     REAL RSIGMA,RI0
29  REAL RSIGMA
30  ! A1.4 Thermodynamic gas phase
31  REAL RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12
32  REAL R, RMD, RMV, RD, RV, RCPD, RCPV, RCVD, RCVV
33  REAL RKAPPA, RETV, eps_w
34  ! A1.5,6 Thermodynamic liquid,solid phases
35  REAL RCW, RCS
36  ! A1.7 Thermodynamic transition of phase
37  REAL RLVTT, RLSTT, RLMLT, RTT, RATM
38  ! A1.8 Curve of saturation
39  REAL RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS
40  REAL RALPD, RBETD, RGAMD
41
[5139]42  !$OMP THREADPRIVATE(RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
43  !$OMP      , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
44  !$OMP      , R_ecc, R_peri, R_incl                                      &
45  !$OMP      , RA, RG, R1SA                                         &
46  !$OMP      , RSIGMA                                                     &
47  !$OMP      , R, RMD, RMV, RD, RV, RCPD                    &
48  !$OMP      , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
49  !$OMP      , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
50  !$OMP      , RCW, RCS                                                 &
51  !$OMP      , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
52  !$OMP      , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
53  !$OMP      , RALPD, RBETD, RGAMD)
[5098]54
[5119]55END MODULE lmdz_yomcst
Note: See TracBrowser for help on using the repository browser.