--- trunk/libf/dyn3d/laplacien_rot.f	2008/02/27 13:16:39	3
+++ trunk/dyn3d/laplacien_rot.f	2013/11/15 18:45:49	76
@@ -15,13 +15,14 @@
       use dimens_m
       use paramet_m
       use comgeom
+      use filtreg_m, only: filtreg
       IMPLICIT NONE
 c
 
 c 
 c   ..........    variables  en  arguments     .............
 c
-      INTEGER klevel
+      INTEGER, intent(in):: klevel
       REAL rotin( ip1jm,klevel ), rotout( ip1jm,klevel )
 c
 c   ..........    variables   locales       ................
@@ -30,7 +31,7 @@
 c   ........................................................
 c
 c
-      CALL  filtreg ( rotin ,   jjm, klevel,   2, 1, .FALSE., 1 )
+      CALL  filtreg ( rotin ,   jjm, klevel,   2, 1, .FALSE.)
 
       CALL   nxgrad ( klevel, rotin,   ghx ,  ghy               )
       CALL   rotatf  ( klevel, ghx  ,   ghy , rotout             )