--- trunk/dyn3d/advzp.f	2014/03/05 14:57:53	82
+++ trunk/dyn3d/advzp.f	2014/09/04 10:40:24	105
@@ -43,7 +43,7 @@
   ! parbu,pbarv : flux de masse en x et y en Pa.m2.s-1
 
   INTEGER lon, lat, niv
-  INTEGER i, j, jv, k, kp, l, lp
+  INTEGER i, j, jv, k, l, lp
   INTEGER ntra
   ! PARAMETER (ntra = 1)
 
@@ -90,8 +90,6 @@
   REAL fxx(iim, llm, ntra), fxy(iim, llm, ntra)
   REAL fxz(iim, llm, ntra), fyy(iim, llm, ntra)
   REAL fyz(iim, llm, ntra), fzz(iim, llm, ntra)
-  REAL s00(ntra)
-  REAL sm0 ! Just temporal variable
 
   ! work arrays