4 |
|
|
5 |
! From phylmd/YOMCST.h, version 1.2 2005/06/06 13:16:33 |
! From phylmd/YOMCST.h, version 1.2 2005/06/06 13:16:33 |
6 |
|
|
7 |
! A1.0 Fundamental constants |
! A1.1.bis Constantes concernant l'orbite de la Terre |
8 |
REAL RPI,RCLUM,RHPLA,RKBOL,RNAVO |
! Default values from AMIP II |
|
! A1.1 Astronomical constants |
|
|
REAL RDAY,REA,REPSM,RSIYEA,RSIDAY,ROMEGA |
|
|
|
|
|
! A1.1.bis Constantes concernant l'orbite de la Terre: |
|
|
REAL R_ecc ! excentricité |
|
|
real R_peri ! équinoxe |
|
|
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 |
|
9 |
|
|
10 |
save |
REAL:: R_ecc = 0.016715 ! excentricité |
11 |
|
real:: R_peri = 102.7 ! équinoxe |
12 |
|
real:: R_incl = 23.441 ! inclinaison |
13 |
|
|
14 |
|
contains |
15 |
|
|
16 |
|
subroutine read_YOMCST |
17 |
|
|
18 |
|
use unit_nml_m, only: unit_nml |
19 |
|
|
20 |
|
namelist /YOMCST_nml/ R_ecc, R_peri, R_incl |
21 |
|
|
22 |
|
!------------------------------------ |
23 |
|
|
24 |
|
print *, "Enter namelist 'YOMCST_nml'." |
25 |
|
read(unit=*, nml=YOMCST_nml) |
26 |
|
write(unit_nml, nml=YOMCST_nml) |
27 |
|
|
28 |
|
end subroutine read_YOMCST |
29 |
|
|
30 |
end module YOMCST |
end module YOMCST |