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, parameter:: RETV = RV / RD - 1. |
57 |
|
|
58 |
! A1.5, 6 Thermodynamic liquid, solid phases |
! A1.5, 6 Thermodynamic liquid, solid phases |
59 |
|
|
110 |
|
|
111 |
RCVD = RCPD-RD |
RCVD = RCPD-RD |
112 |
RCVV = RCPV-RV |
RCVV = RCPV-RV |
|
RETV = RV / RD - 1. |
|
113 |
print *, 'Thermodynamics, gas' |
print *, 'Thermodynamics, gas' |
114 |
print *, "rd = ", RD, "J K-1 kg-1" |
print *, "rd = ", RD, "J K-1 kg-1" |
115 |
print *, "rv = ", RV, "J K-1 kg-1" |
print *, "rv = ", RV, "J K-1 kg-1" |