Changeset 3010
- Timestamp:
- Jul 24, 2023, 8:59:01 AM (17 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.MARS/libf/phymars/iniorbit.F
r2963 r3010 68 68 69 69 timeperi=2.*atan(sqrt((1.+e_elips)/(1.-e_elips))*tan(zx0/2.)) 70 if(timeperi.lt.0) timeperi=-timeperi71 70 PRINT*,'iniorbit: Perihelion solar long. Ls (deg)=', 72 71 & 360.-timeperi*180./pi
Note: See TracChangeset
for help on using the changeset viewer.