--- trunk/libf/dyn3d/dynredem1.f90	2013/11/15 17:48:30	73
+++ trunk/dyn3d/dynredem1.f	2015/02/24 15:43:51	130
@@ -6,7 +6,7 @@
 
   SUBROUTINE dynredem1(fichnom, vcov, ucov, teta, q, masse, ps, itau)
 
-    ! From dyn3d/dynredem.F, version 1.2 2004/06/22 11:45:30
+    ! From dyn3d/dynredem.F, version 1.2, 2004/06/22 11:45:30
     ! Ecriture du fichier de redémarrage au format NetCDF
 
     USE dimens_m, ONLY: iim, jjm, llm, nqmx
@@ -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"