--- trunk/libf/dyn3d/leapfrog.f90	2008/02/27 13:16:39	3
+++ trunk/libf/dyn3d/leapfrog.f90	2008/03/03 16:32:04	5
@@ -332,8 +332,7 @@
           ENDIF
 
           IF (itau == itaufin) THEN
-             CALL dynredem1("restart.nc", 0.0, &
-                  vcov, ucov, teta, q, nqmx, masse, ps)
+             CALL dynredem1("restart.nc", 0., vcov, ucov, teta, q, masse, ps)
              CLOSE(99)
           ENDIF