--- trunk/dyn3d/pres2lev.f	2014/03/05 14:57:53	82
+++ trunk/dyn3d/pres2lev.f	2014/09/04 10:40:24	105
@@ -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