--- trunk/dyn3d/pres2lev.f90	2014/03/05 14:38:41	81
+++ trunk/Sources/dyn3d/pres2lev.f	2015/04/29 15:47:56	134
@@ -32,7 +32,7 @@
   INTEGER ni, nj
   REAL pn(ni, nj, lmn) ! niveau de pression en pascals
 
-  INTEGER i, j, nhoriz ! nombre de point horizontale (input)
+  INTEGER i, j ! nombre de point horizontale (input)
 
   REAL varo(ni, nj, lmo) ! var dans l'ancienne grille (input)
   REAL varn(ni, nj, lmn) ! var dans la nouvelle grille (output)
@@ -41,7 +41,7 @@
 
   ! Autres variables
   ! """"""""""""""""
-  INTEGER n, ln, lo
+  INTEGER ln, lo
   REAL coef
 
   ! run