--- trunk/Sources/dyn3d/limx.f	2016/02/24 18:44:07	177
+++ trunk/Sources/dyn3d/limx.f	2016/03/11 18:47:26	178
@@ -40,9 +40,7 @@
   REAL dxqu(ip1jmp1)
   REAL adxqu(ip1jmp1), dxqmax(ip1jmp1)
 
-  REAL ssum
-  INTEGER ismax, ismin
-  EXTERNAL ssum, convflu, ismin, ismax
+  EXTERNAL convflu
 
   DO l = 1, llm
     DO ij = 1, ip1jmp1