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

Timestamp:

Sep 12, 2023, 11:41:22 AM (15 months ago)

Author:

jbclement

Message:

Mars PCM:
The variable 'timeperi' (defined in "planete_h.F90" and computed in "iniorbit.F") is renamed into 'lsperi' and thus slightly changed to be coherent to the solar longitude of perihelion in radian. It can now be used out of the box by other subroutines/programs like the PEM.
JBC

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  ! 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 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 ! angle of the perihelion, in rad
-      REAL e_elips ! orbit eccentricity
-      REAL p_elips
-      REAL unitastr ! Astronomical unit AU, in Mkm
+      REAL lsperi    ! Solar longitude of the perihelion, angle in rad
+      REAL e_elips   ! Orbit eccentricity
+      REAL p_elips   ! Ellipse semi-latus rectum
+      REAL unitastr  ! Astronomical unit AU, in Mkm
 
       END MODULE planete_h