Index: /trunk/LMDZ.MARS/libf/phymars/testphys1d.F
===================================================================
--- /trunk/LMDZ.MARS/libf/phymars/testphys1d.F	(revision 719)
+++ /trunk/LMDZ.MARS/libf/phymars/testphys1d.F	(revision 720)
@@ -410,4 +410,22 @@
       call getin("tauvis",tauvis)
       write(*,*) " tauvis = ",tauvis
+
+c Orbital parameters
+c ------------------
+      print *,'Min. distance Sun-Mars (Mkm)?'
+      call getin("periheli",periheli)
+      write(*,*) " periheli = ",periheli
+
+      print *,'Max. distance Sun-Mars (Mkm)?'
+      call getin("aphelie",aphelie)
+      write(*,*) " aphelie = ",aphelie
+
+      print *,'Day of perihelion?'
+      call getin("periday",peri_day)
+      write(*,*) " periday = ",peri_day
+
+      print *,'Obliquity?'
+      call getin("obliquit",obliquit)
+      write(*,*) " obliquit = ",obliquit
  
 c  latitude/longitude