--- trunk/libf/dyn3d/dynredem0.f90	2008/03/31 12:24:17	7
+++ trunk/libf/dyn3d/dynredem0.f90	2008/08/01 15:24:12	15
@@ -7,12 +7,11 @@
   SUBROUTINE dynredem0(fichnom, iday_end, phis)
 
     ! From dyn3d/dynredem.F, v 1.2 2004/06/22 11:45:30
-
     ! Ecriture du fichier de redémarrage au format NetCDF (initialisation)
 
     USE IOIPSL, only: ymds2ju, ju2ymds
     use dimens_m, only: iim, jjm, llm, nqmx
-    use paramet_m, only: ip1jmp1, iip1, jjp1, llmp1
+    use paramet_m, only: iip1, jjp1, llmp1
     use comconst, only: rad, cpp, daysec, dtvr, kappa, g, omeg
     use comvert, only: pa, bp, ap, nivsigs, preff, presnivs, nivsig
     use logic