--- trunk/dyn3d/dynredem1.f	2014/08/29 13:00:05	103
+++ trunk/dyn3d/dynredem1.f	2014/09/04 10:05:52	104
@@ -27,7 +27,6 @@
     ! Variables local to the procedure:
     INTEGER ncid, varid
     INTEGER iq
-    INTEGER:: nb = 0
 
     !---------------------------------------------------------
 
@@ -44,10 +43,8 @@
     call nf95_open(fichnom, nf90_write, ncid)
 
     ! Écriture/extension de la coordonnée temps
-    nb = nb + 1
     call nf95_inq_varid(ncid, 'temps', varid)
-    call nf95_put_var(ncid, varid, values=0., start=(/nb/))
-    PRINT *, "Enregistrement pour nb = ", nb
+    call nf95_put_var(ncid, varid, values = 0.)
 
     ! Récriture du tableau de contrôle, "itaufin" n'est pas défini quand
     ! on passe dans "dynredem0"