Changeset 119 for trunk/libf/phytitan/suphec.F

Timestamp:

May 17, 2011, 10:56:57 AM (14 years ago)

Author:

slebonnois

Message:

Sebastien Lebonnois: apres validation des versions Venus et Titan,
correction d'un certain nombre de bugs.

File:

• trunk/libf/phytitan/suphec.F (modified) (1 diff)

trunk/libf/phytitan/suphec.F

@@ -58 +58 @@
 c     RSIDAY=1.37889e6   ! 15.96 j
       RDAY=1.37889e6   ! 15.96 j
-      ROMEGA=2.*RPI/RSIDAY
 c 1/(duree du jour) = 1/(periode rotation) - 1/(periode revolution)
 c     RDAY=RSIDAY/(1.-RSIDAY/RSIYEA) 
       RSIDAY=RDAY/(1.+RDAY/RSIYEA)
+      ROMEGA=2.*RPI/RSIDAY
       REA=1.5e12
       REPSM=0.  ! 0. veut dire qu'on commence au point vernal