--- trunk/dyn3d/advy.f	2014/03/05 14:57:53	82
+++ trunk/dyn3d/advy.f	2014/09/18 13:36:51	112
@@ -84,18 +84,9 @@
 
   ! Special pour poles
 
-  REAL sbms, sfms, sfzs, sbmn, sfmn, sfzn
-  REAL sns0(ntra), snsz(ntra), snsm
-  REAL s1v(llm), slatv(llm)
-  REAL qy1(iim, llm, ntra), qylat(iim, llm, ntra)
-  REAL cx1(llm, ntra), cxlat(llm, ntra)
-  REAL cy1(llm, ntra), cylat(llm, ntra)
-  REAL z1(iim), zcos(iim), zsin(iim)
-  REAL smpn, smps, s0pn, s0ps
   REAL ssum
   EXTERNAL ssum
 
-  REAL sqi, sqf
   LOGICAL limit
 
   lon = iim ! rem : Il est possible qu'un pbl. arrive ici