source: trunk/LMDZ.MARS/libf/phymars/planete_h.F90 @ 1720

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.