|
Last change
on this file since 2156 was
1382,
checked in by emillour, 10 years ago
|
|
Mars GCM:
Some cleanup in iniorbit.F
FF+EM
|
|
File size:
549 bytes
|
| Rev | Line | |
|---|
| [1226] | 1 | MODULE planete_h |
|---|
| 2 | IMPLICIT NONE |
|---|
| 3 | |
|---|
| [1382] | 4 | REAL aphelie ! Aphelion, in Mkm |
|---|
| 5 | REAL periheli ! Perihelion, in Mkm |
|---|
| 6 | REAL year_day ! number of days in the year |
|---|
| 7 | REAL peri_day ! date of perihelion, in days |
|---|
| 8 | REAL obliquit ! obliquity of the planet, in degrees |
|---|
| [1226] | 9 | REAL lmixmin |
|---|
| 10 | REAL emin_turb |
|---|
| 11 | REAL coefvis |
|---|
| 12 | REAL coefir |
|---|
| [1382] | 13 | REAL timeperi ! angle of the perihelion, in rad |
|---|
| 14 | REAL e_elips ! orbit eccentricity |
|---|
| [1226] | 15 | REAL p_elips |
|---|
| [1382] | 16 | REAL unitastr ! Astronomical unit AU, in Mkm |
|---|
| [1226] | 17 | |
|---|
| 18 | END MODULE planete_h |
|---|
Note: See
TracBrowser
for help on using the repository browser.
