--- trunk/libf/dyn3d/leapfrog.f90	2008/08/07 12:29:13	18
+++ trunk/libf/dyn3d/leapfrog.f90	2009/07/31 15:18:47	22
@@ -92,9 +92,10 @@
 
     REAL tppn(iim), tpps(iim), tpn, tps
 
-    INTEGER itau, itaufinp1
+    INTEGER itau ! index of the time step of the dynamics, starts at 0
+    integer itaufinp1
     INTEGER iday ! jour julien
-    REAL time ! Heure de la journee en fraction d'1 jour
+    REAL time ! time of day, as a fraction of day length
 
     REAL SSUM
     real finvmaold(ip1jmp1, llm)
@@ -335,7 +336,7 @@
                 dt = 2. * dtvr
              END IF
           ELSE
-             ! ...... pas leapfrog .....
+             ! pas leapfrog
              leapf = .TRUE.
              dt = 2. * dtvr
           END IF