--- trunk/libf/dyn3d/Dissipation/nxgraro2.f	2012/01/10 19:02:02	56
+++ trunk/libf/dyn3d/Dissipation/nxgraro2.f	2012/08/29 14:47:17	64
@@ -54,7 +54,7 @@
       ENDDO
 c
 c
-      CALL filtreg( rot, jjm, klevel, 2,1, .FALSE.,1)
+      CALL filtreg( rot, jjm, klevel, 2,1, .FALSE.)
       CALL nxgrad ( klevel, rot, grx, gry )
 c
       DO    l = 1, klevel