|
Last change
on this file since 780 was
3,
checked in by slebonnois, 14 years ago
|
|
Creation de repertoires:
- chantiers : pour communiquer sur nos projets de modifs
- documentation : pour stocker les docs
Ajout de:
- libf/phytitan : physique de Titan
- libf/chimtitan: chimie de Titan
- libf/phyvenus : physique de Venus
|
|
File size:
267 bytes
|
| Line | |
|---|
| 1 | function CPCO2(T) |
|---|
| 2 | |
|---|
| 3 | implicit none |
|---|
| 4 | |
|---|
| 5 | real CPCO2,T |
|---|
| 6 | |
|---|
| 7 | c Computes specific heat of CO2 using a fit to |
|---|
| 8 | c data from www.engineeringtoolbox.com |
|---|
| 9 | |
|---|
| 10 | CPCO2 = 100.*(4.79 + 1.4416E-2*T - 7.2933E-6*T*T) !MKS |
|---|
| 11 | c |
|---|
| 12 | return |
|---|
| 13 | end |
|---|
| 14 | |
|---|
Note: See
TracBrowser
for help on using the repository browser.
