! TODO: REPLACE YOMCST.h ONCE .F -> .f90 !

module lmdz_yomcst
  ! A1.0 Fundamental constants
  REAL RPI, RCLUM, RHPLA, RKBOL, RNAVO
  ! A1.1 Astronomical constants
  REAL RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA
  ! A1.1.bis Constantes concernant l'orbite de la Terre:
  REAL R_ecc, R_peri, R_incl
  ! A1.2 Geoide
  REAL RA, RG, R1SA
  ! A1.3 Radiation
  !     REAL RSIGMA,RI0
  REAL RSIGMA
  ! A1.4 Thermodynamic gas phase
  REAL RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12
  REAL R, RMD, RMV, RD, RV, RCPD, RCPV, RCVD, RCVV
  REAL RKAPPA, RETV, eps_w
  ! A1.5,6 Thermodynamic liquid,solid phases
  REAL RCW, RCS
  ! A1.7 Thermodynamic transition of phase
  REAL RLVTT, RLSTT, RLMLT, RTT, RATM
  ! A1.8 Curve of saturation
  REAL RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS
  REAL RALPD, RBETD, RGAMD

  COMMON/YOMCST/RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
          , R_ecc, R_peri, R_incl                                      &
          , RA, RG, R1SA                                         &
          , RSIGMA                                                     &
          , R, RMD, RMV, RD, RV, RCPD                    &
          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
          , RCW, RCS                                                 &
          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
          , RALPD, RBETD, RGAMD
  !$OMP THREADPRIVATE(/YOMCST/)

END MODULE lmdz_yomcst