--- trunk/phylmd/Orography/gwprofil.f90	2013/11/15 18:45:49	76
+++ trunk/Sources/phylmd/Orography/gwprofil.f	2015/04/29 15:47:56	134
@@ -38,7 +38,7 @@
 
     ! 0.2 LOCAL ARRAYS
 
-    INTEGER ilevh, ji, kgwd, jl, jk
+    INTEGER ilevh, kgwd, jl, jk
     REAL zsqr, zalfa, zriw, zdel, zb, zalpha, zdz2n
     REAL zdelp, zdelpt
     REAL zdz2(klon, klev), znorm(klon), zoro(klon)