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 |