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	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