--- trunk/libf/dyn3d/rotatf.f	2012/08/01 14:13:57	63
+++ trunk/libf/dyn3d/rotatf.f	2012/08/29 14:47:17	64
@@ -46,7 +46,7 @@
 c
   10  CONTINUE
 
-        CALL filtreg( rot, jjm, klevel, 2, 2, .FALSE., 1 )
+        CALL filtreg( rot, jjm, klevel, 2, 2, .FALSE.)
       
         DO l = 1, klevel
           DO ij = 1, ip1jm