--- trunk/libf/dyn3d/rotatf.f	2008/02/27 13:16:39	3
+++ trunk/libf/dyn3d/rotatf.f	2012/08/29 14:47:17	64
@@ -15,6 +15,7 @@
       use dimens_m
       use paramet_m
       use comgeom
+      use filtreg_m, only: filtreg
       IMPLICIT NONE
 c
 c
@@ -45,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