--- trunk/phylmd/Orography/gwprofil.f	2014/09/04 10:05:52	104
+++ trunk/phylmd/Orography/gwprofil.f	2014/09/04 10:40:24	105
@@ -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)