Last change
on this file since 1720 was
1382,
checked in by emillour, 10 years ago
|
Mars GCM:
Some cleanup in iniorbit.F
FF+EM
|
File size:
549 bytes
|
Line | |
---|
1 | MODULE planete_h |
---|
2 | IMPLICIT NONE |
---|
3 | |
---|
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 |
---|
9 | REAL lmixmin |
---|
10 | REAL emin_turb |
---|
11 | REAL coefvis |
---|
12 | REAL coefir |
---|
13 | REAL timeperi ! angle of the perihelion, in rad |
---|
14 | REAL e_elips ! orbit eccentricity |
---|
15 | REAL p_elips |
---|
16 | REAL unitastr ! Astronomical unit AU, in Mkm |
---|
17 | |
---|
18 | END MODULE planete_h |
---|
Note: See
TracBrowser
for help on using the repository browser.