Index: trunk/LMDZ.MARS/libf/phymars/iniorbit.F
===================================================================
--- trunk/LMDZ.MARS/libf/phymars/iniorbit.F	(revision 3008)
+++ trunk/LMDZ.MARS/libf/phymars/iniorbit.F	(revision 3010)
@@ -68,5 +68,4 @@
 
       timeperi=2.*atan(sqrt((1.+e_elips)/(1.-e_elips))*tan(zx0/2.))
-      if(timeperi.lt.0) timeperi=-timeperi
       PRINT*,'iniorbit: Perihelion solar long. Ls (deg)=',
      &       360.-timeperi*180./pi