--- trunk/Sources/dyn3d/limz.f	2015/07/16 17:39:10	156
+++ trunk/Sources/dyn3d/limz.f	2015/07/20 16:01:49	157
@@ -40,16 +40,10 @@
   REAL dzqw(ip1jmp1)
   REAL adzqw(ip1jmp1), dzqmax(ip1jmp1)
 
-  LOGICAL first
-  SAVE first
-
   REAL ssum
   INTEGER ismax, ismin
   EXTERNAL ssum, convflu, ismin, ismax
 
-  DATA first/.TRUE./
-
-
   DO l = 1, llm
     DO ij = 1, ip1jmp1
       q(ij, l) = s0(ij, l)/sm(ij, l)