--- trunk/Sources/dyn3d/advtrac.f	2015/08/24 16:30:33	167
+++ trunk/Sources/dyn3d/advtrac.f	2015/09/09 10:41:47	168
@@ -54,7 +54,7 @@
     REAL qppm(iim*jjp1, llm, nqmx)
     REAL fluxwppm(iim, jjp1, llm)
     REAL apppm(llmp1), bpppm(llmp1)
-    LOGICAL:: dum = .TRUE., fill = .TRUE.
+    LOGICAL:: fill = .TRUE.
 
     !-----------------------------------------------------------