--- trunk/dyn3d/advyp.f	2014/03/05 14:57:53	82
+++ trunk/dyn3d/advyp.f	2014/09/18 19:56:46	113
@@ -101,11 +101,6 @@
   ! Special pour poles
 
   REAL sbms, sfms, sfzs, sbmn, sfmn, sfzn
-  REAL sns0(ntra), snsz(ntra), snsm
-  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 ssum
   EXTERNAL ssum