Changeset 3996 for trunk/LMDZ.MARS/libf/phymars/planete_h.F90
- Timestamp:
- Jan 12, 2026, 9:49:50 AM (4 days ago)
- File:
-
- 1 edited
-
trunk/LMDZ.MARS/libf/phymars/planete_h.F90 (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.MARS/libf/phymars/planete_h.F90
r3974 r3996 17 17 REAL,SAVE :: lsperi ! Solar longitude of the perihelion, angle in rad 18 18 REAL,SAVE :: e_elips ! Orbit eccentricity 19 REAL,SAVE :: p_elips ! Ellipse semi-latus rectum19 REAL,SAVE :: p_elips ! Ellipse parameter (semi-latus rectum) 20 20 !$OMP THREADPRIVATE(lsperi,e_elips,p_elips) 21 21 REAL,PARAMETER :: unitastr=149.597927 ! Astronomical unit AU, in Mkm
Note: See TracChangeset
for help on using the changeset viewer.
