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, parameter:: RCPV = 4. * RV ! Cpv, gas phase |
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, RCVV |
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 |
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 |
|
|
132 |
RLMLT = RLSTT-RLVTT |
RLMLT = RLSTT-RLVTT |
133 |
print *, 'Thermodynamic, transition of phase:' |
print *, 'Thermodynamic, transition of phase:' |
134 |
print '('' Fusion point = '', E13.7)', RTT |
print '('' Fusion point = '', E13.7)', RTT |
|
print '('' RLvTt = '', E13.7)', RLVTT |
|
135 |
print '('' RLsTt = '', E13.7)', RLSTT |
print '('' RLsTt = '', E13.7)', RLSTT |
136 |
print '('' RLMlt = '', E13.7)', RLMLT |
print '('' RLMlt = '', E13.7)', RLMLT |
137 |
print '('' Normal pressure = '', E13.7)', RATM |
print '('' Normal pressure = '', E13.7)', RATM |