--- trunk/libf/dyn3d/leapfrog.f90	2008/07/25 19:59:34	13
+++ trunk/libf/dyn3d/leapfrog.f90	2008/10/15 16:19:57	20
@@ -46,7 +46,7 @@
     use pression_m, only: pression
     use pressure_var, only: p3d
 
-    integer nq
+    integer, intent(in):: nq
 
     ! Variables dynamiques:
     REAL vcov(ip1jm, llm), ucov(ip1jmp1, llm) ! vents covariants
@@ -94,7 +94,7 @@
 
     INTEGER itau, 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 +335,7 @@
                 dt = 2. * dtvr
              END IF
           ELSE
-             ! ...... pas leapfrog .....
+             ! pas leapfrog
              leapf = .TRUE.
              dt = 2. * dtvr
           END IF