11 |
real, parameter:: NAVO = 6.0221367E23 ! Avogadro number, in mol-1 |
real, parameter:: NAVO = 6.0221367E23 ! Avogadro number, in mol-1 |
12 |
|
|
13 |
! A1.1 Astronomical constants |
! A1.1 Astronomical constants |
14 |
REAL RSIYEA, RSIDAY, ROMEGA |
|
15 |
|
REAL ROMEGA |
16 |
real, parameter:: RDAY = 86400. |
real, parameter:: RDAY = 86400. |
17 |
real, parameter:: REA = 149597870000. |
|
18 |
real, parameter:: REPSM = 0.409093 |
REAL, parameter:: RSIYEA = 365.25 * RDAY * 2. * PI / 6.283076 |
19 |
|
! sideral year, in s |
20 |
|
|
21 |
|
REAL, parameter:: RSIDAY = RDAY / (1. + RDAY / RSIYEA) ! sideral day, in s |
22 |
|
|
23 |
! A1.2 Geoide |
! A1.2 Geoide |
24 |
real, parameter:: RG = 9.80665 ! acceleration of gravity, in m s-2 |
real, parameter:: RG = 9.80665 ! acceleration of gravity, in m s-2 |
42 |
! specific ideal gas constant for dry air, in J K-1 kg-1 |
! specific ideal gas constant for dry air, in J K-1 kg-1 |
43 |
! (factor 1e3: conversion from g to kg) |
! (factor 1e3: conversion from g to kg) |
44 |
|
|
45 |
real, save:: RCPV, RCVD, RCVV |
real, parameter:: RCPV = 4. * RV |
46 |
|
! specific heat capacity at constant pressure of water vapor, in J K-1 kg-1 |
47 |
|
|
48 |
|
real, save:: RCVD |
49 |
|
real, save:: RCVV |
50 |
|
|
51 |
real, parameter:: RCPD = 7. / 2 * RD |
real, parameter:: RCPD = 7. / 2 * RD |
52 |
! specific heat capacity for dry air, in J K-1 kg-1 |
! specific heat capacity at constant pressure of dry air, in J K-1 kg-1 |
53 |
|
|
54 |
real, parameter:: RMO3 = 47.9942 |
real, parameter:: RMO3 = 47.9942 |
55 |
REAL, parameter:: RKAPPA = RD/RCPD |
REAL, parameter:: RKAPPA = RD/RCPD |
56 |
real, save:: RETV |
real, save:: RETV |
57 |
|
|
58 |
! A1.5, 6 Thermodynamic liquid, solid phases |
! A1.5, 6 Thermodynamic liquid, solid phases |
59 |
REAL, save:: RCW, RCS |
|
60 |
|
REAL, parameter:: RCW = RCPV ! LIQUID PHASE Cw |
61 |
|
real, save:: RCS |
62 |
|
|
63 |
! A1.7 Thermodynamic transition of phase |
! A1.7 Thermodynamic transition of phase |
64 |
REAL, save:: RLMLT |
REAL, save:: RLMLT |
65 |
real, parameter:: RTT = 273.16 |
real, parameter:: RTT = 273.16 |
66 |
real, parameter:: RLVTT = 2.5008E+6 |
|
67 |
|
real, parameter:: RLVTT = 2.5008E+6 |
68 |
|
! specific latent heat of vaporization of water at triple point, in J kg-1 |
69 |
|
|
70 |
real, parameter:: RLSTT = 2.8345E+6 |
real, parameter:: RLSTT = 2.8345E+6 |
71 |
real, parameter:: RATM = 1e5 |
real, parameter:: RATM = 1e5 |
72 |
|
|
90 |
|
|
91 |
! 2. DEFINE ASTRONOMICAL CONSTANTS |
! 2. DEFINE ASTRONOMICAL CONSTANTS |
92 |
|
|
|
RSIYEA = 365.25*RDAY*2.*PI/6.283076 |
|
|
RSIDAY = RDAY/(1.+RDAY/RSIYEA) |
|
93 |
ROMEGA = 2.*PI/RSIDAY |
ROMEGA = 2.*PI/RSIDAY |
94 |
|
|
95 |
print *, 'Astronomical constants ' |
print *, 'Astronomical constants ' |
|
print '('' day = '', E13.7, '' s'')', RDAY |
|
|
print '('' half g. axis = '', E13.7, '' m'')', REA |
|
|
print '('' mean anomaly = '', E13.7, '' -'')', REPSM |
|
|
print '('' sideral year = '', E13.7, '' s'')', RSIYEA |
|
|
print '('' sideral day = '', E13.7, '' s'')', RSIDAY |
|
96 |
print '('' omega = '', E13.7, '' s-1'')', ROMEGA |
print '('' omega = '', E13.7, '' s-1'')', ROMEGA |
97 |
|
|
98 |
! 3. DEFINE GEOIDE. |
! 3. DEFINE GEOIDE. |
109 |
! 5. DEFINE THERMODYNAMIC CONSTANTS, GAS PHASE. |
! 5. DEFINE THERMODYNAMIC CONSTANTS, GAS PHASE. |
110 |
|
|
111 |
RCVD = RCPD-RD |
RCVD = RCPD-RD |
|
RCPV = 4. * RV |
|
112 |
RCVV = RCPV-RV |
RCVV = RCPV-RV |
113 |
RETV = RV / RD - 1. |
RETV = RV / RD - 1. |
114 |
print *, 'Thermodynamics, gas' |
print *, 'Thermodynamics, gas' |
|
print '('' Ozone mass = '', e13.7)', RMO3 |
|
115 |
print *, "rd = ", RD, "J K-1 kg-1" |
print *, "rd = ", RD, "J K-1 kg-1" |
116 |
print *, "rv = ", RV, "J K-1 kg-1" |
print *, "rv = ", RV, "J K-1 kg-1" |
117 |
print '('' Cpd = '', e13.7)', RCPD |
print '('' Cpd = '', e13.7)', RCPD |
118 |
print '('' Cvd = '', e13.7)', RCVD |
print '('' Cvd = '', e13.7)', RCVD |
|
print '('' Cpv = '', e13.7)', RCPV |
|
119 |
print '('' Cvv = '', e13.7)', RCVV |
print '('' Cvv = '', e13.7)', RCVV |
120 |
print '('' Rd/Cpd = '', e13.7)', RKAPPA |
print '('' Rd/Cpd = '', e13.7)', RKAPPA |
121 |
print '('' Rv / Rd - 1 = '', e13.7)', RETV |
print '('' Rv / Rd - 1 = '', e13.7)', RETV |
122 |
|
|
|
! 6. DEFINE THERMODYNAMIC CONSTANTS, LIQUID PHASE. |
|
|
|
|
|
RCW = RCPV |
|
|
print *, 'Thermodynamic, liquid ' |
|
|
print '('' Cw = '', E13.7)', RCW |
|
|
|
|
123 |
! 7. DEFINE THERMODYNAMIC CONSTANTS, SOLID PHASE. |
! 7. DEFINE THERMODYNAMIC CONSTANTS, SOLID PHASE. |
124 |
|
|
125 |
RCS = RCPV |
RCS = RCPV |
131 |
RLMLT = RLSTT-RLVTT |
RLMLT = RLSTT-RLVTT |
132 |
print *, 'Thermodynamic, transition of phase:' |
print *, 'Thermodynamic, transition of phase:' |
133 |
print '('' Fusion point = '', E13.7)', RTT |
print '('' Fusion point = '', E13.7)', RTT |
|
print '('' RLvTt = '', E13.7)', RLVTT |
|
134 |
print '('' RLsTt = '', E13.7)', RLSTT |
print '('' RLsTt = '', E13.7)', RLSTT |
135 |
print '('' RLMlt = '', E13.7)', RLMLT |
print '('' RLMlt = '', E13.7)', RLMLT |
136 |
print '('' Normal pressure = '', E13.7)', RATM |
print '('' Normal pressure = '', E13.7)', RATM |