|
Last change
on this file since 3404 was
816,
checked in by slebonnois, 12 years ago
|
|
SL: tools for postprocessing (Veznus and Titan); see DOC/documentation/vt-tools.pdf
|
|
File size:
594 bytes
|
| Rev | Line | |
|---|
| [816] | 1 | ! Parameters needed to integrate hydrostatic equation: |
|---|
| 2 | |
|---|
| 3 | real,parameter :: g0=8.87 |
|---|
| 4 | !g0: exact mean gravity at radius=6051.km |
|---|
| 5 | |
|---|
| 6 | real,parameter :: a0=6051.E3 |
|---|
| 7 | !a0: 'mean' radius=6051.km |
|---|
| 8 | |
|---|
| 9 | real,parameter :: R0=191.4 ! molecular gas constant |
|---|
| 10 | |
|---|
| 11 | real,parameter :: psref=9.2e6 ! reference pressure at surface (Pa) |
|---|
| 12 | |
|---|
| 13 | real,parameter :: omega=2.992677e-7 ! angular rotation speed (s-1) |
|---|
| 14 | |
|---|
| 15 | real,parameter :: localday=1.0087e7 ! local day (s) |
|---|
| 16 | |
|---|
| 17 | character (len=5),parameter :: planet="Venus" |
|---|
| 18 | |
|---|
| 19 | real,parameter :: cp0=1000. !doit etre egal a cpp (dyn) et RCPD (phy) |
|---|
| 20 | real,parameter :: t0=460. |
|---|
| 21 | real,parameter :: nu=0.35 |
|---|
| 22 | |
|---|
Note: See
TracBrowser
for help on using the repository browser.
