--- trunk/libf/dyn3d/dynredem1.f90	2012/10/02 15:50:56	67
+++ 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
@@ -16,18 +16,17 @@
     use nr_util, only: assert
 
     CHARACTER(len=*), INTENT (IN):: fichnom
-    REAL, INTENT (IN):: vcov(:, :, :) ! (iim + 1, jjm, llm)
-    REAL, INTENT (IN):: ucov(:, :, :) ! (iim + 1, jjm + 1, llm)
-    REAL, INTENT (IN):: teta(:, :, :) ! (iim + 1, jjm + 1, llm)
-    REAL, INTENT (IN):: q(:, :, :, :) ! (iim + 1, jjm + 1, llm, nqmx)
-    REAL, INTENT (IN):: masse(:, :, :) ! (iim + 1, jjm + 1, llm)
-    REAL, INTENT (IN):: ps(:, :) ! (iim + 1, jjm + 1)
-    INTEGER, INTENT (IN):: itau
+    REAL, INTENT(IN):: vcov(:, :, :) ! (iim + 1, jjm, llm)
+    REAL, INTENT(IN):: ucov(:, :, :) ! (iim + 1, jjm + 1, llm)
+    REAL, INTENT(IN):: teta(:, :, :) ! (iim + 1, jjm + 1, llm)
+    REAL, INTENT(IN):: q(:, :, :, :) ! (iim + 1, jjm + 1, llm, nqmx)
+    REAL, INTENT(IN):: masse(:, :, :) ! (iim + 1, jjm + 1, llm)
+    REAL, INTENT(IN):: ps(:, :) ! (iim + 1, jjm + 1)
+    INTEGER, INTENT(IN):: itau
 
     ! 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"