Changeset 1382 for trunk/LMDZ.MARS/libf/phymars/planete_h.F90

Timestamp:

Mar 4, 2015, 10:03:37 AM (10 years ago)

Author:

emillour

Message:

Mars GCM:
Some cleanup in iniorbit.F
FF+EM

File:

• trunk/LMDZ.MARS/libf/phymars/planete_h.F90 (modified) (1 diff)

trunk/LMDZ.MARS/libf/phymars/planete_h.F90

@@ -2 +2 @@
       IMPLICIT NONE
 
-      REAL aphelie
-      REAL periheli
-      REAL year_day
-      REAL peri_day
-      REAL obliquit
+      REAL aphelie ! Aphelion, in Mkm
+      REAL periheli ! Perihelion, in Mkm
+      REAL year_day ! number of days in the year
+      REAL peri_day ! date of perihelion, in days
+      REAL obliquit ! obliquity of the planet, in degrees
       REAL lmixmin
       REAL emin_turb
       REAL coefvis
       REAL coefir
-      REAL timeperi
-      REAL e_elips
+      REAL timeperi ! angle of the perihelion, in rad
+      REAL e_elips ! orbit eccentricity
       REAL p_elips
-      REAL unitastr
+      REAL unitastr ! Astronomical unit AU, in Mkm
 
       END MODULE planete_h