--- trunk/libf/dyn3d/dynredem0.f90	2008/08/07 12:29:13	18
+++ trunk/libf/dyn3d/dynredem0.f90	2009/07/31 15:18:47	22
@@ -34,8 +34,7 @@
     !   Local:
 
     INTEGER :: iq, l
-    INTEGER :: length
-    PARAMETER (length=100)
+    INTEGER, PARAMETER:: length = 100
     REAL :: tab_cntrl(length) ! tableau des parametres du run
 
     !   Variables locales pour NetCDF: