|
Last change
on this file since 3663 was
3663,
checked in by gmilcareck, 4 months ago
|
|
Generic PCM:
Cleaning up the code. The gas constant and Avogadro number values
was not the same between the files in the model.
We choose the value recommended by the 2019 revision of the SI.
R=8.314463 J.K-1.mol-1 and NA=6.022141e23 mol-1.
GM
|
|
File size:
570 bytes
|
| Line | |
|---|
| 1 | MODULE comcstfi_mod |
|---|
| 2 | IMPLICIT NONE |
|---|
| 3 | |
|---|
| 4 | REAL,SAVE :: pi ! something like 3.14159 |
|---|
| 5 | REAL,SAVE :: rad ! radius of the planet (m) |
|---|
| 6 | REAL,SAVE :: g ! gravity (m/s2) |
|---|
| 7 | REAL,SAVE :: r ! reduced gas constant (r=8.314463/(mugaz/1000.0)) |
|---|
| 8 | REAL,SAVE :: cpp ! Cp of the atmosphere |
|---|
| 9 | REAL,SAVE :: rcp ! r/cpp |
|---|
| 10 | REAL,SAVE :: mugaz ! molar mass of the atmosphere (g/mol) |
|---|
| 11 | REAL,SAVE :: omeg ! planet rotation rate (rad/s) |
|---|
| 12 | REAL,SAVE :: avocado ! 6.022141e23 |
|---|
| 13 | !$OMP THREADPRIVATE(pi,rad,g,r,cpp,rcp,mugaz,omeg,avocado) |
|---|
| 14 | |
|---|
| 15 | END MODULE comcstfi_mod |
|---|
Note: See
TracBrowser
for help on using the repository browser.
