libf/phylmd/YOMCST.f90

module YOMCST

  implicit none

  ! From phylmd/YOMCST.h, version 1.2 2005/06/06 13:16:33

  ! 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 ! excentricite
  real R_peri ! equinoxe
  real R_incl ! inclinaison

  ! A1.2 Geoide
  REAL RA,RG,R1SA
  ! A1.3 Radiation
  !     REAL RSIGMA,RI0
  REAL RSIGMA
  ! A1.4 Thermodynamic gas phase
  REAL R,RMD,RMO3,RMV,RD,RV,RCPD,RCPV,RCVD,RCVV
  REAL RKAPPA,RETV
  ! 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

  save

end module YOMCST
1	guez	3	module YOMCST
2
3			implicit none
4
5			! From phylmd/YOMCST.h, version 1.2 2005/06/06 13:16:33
6
7			! A1.0 Fundamental constants
8			REAL RPI,RCLUM,RHPLA,RKBOL,RNAVO
9			! A1.1 Astronomical constants
10			REAL RDAY,REA,REPSM,RSIYEA,RSIDAY,ROMEGA
11
12			! A1.1.bis Constantes concernant l'orbite de la Terre:
13			REAL R_ecc ! excentricite
14			real R_peri ! equinoxe
15			real R_incl ! inclinaison
16
17			! A1.2 Geoide
18			REAL RA,RG,R1SA
19			! A1.3 Radiation
20			! REAL RSIGMA,RI0
21			REAL RSIGMA
22			! A1.4 Thermodynamic gas phase
23			REAL R,RMD,RMO3,RMV,RD,RV,RCPD,RCPV,RCVD,RCVV
24			REAL RKAPPA,RETV
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
32
33			save
34
35			end module YOMCST