--- trunk/libf/dyn3d/laplacien_rot.f	2010/03/25 14:29:07	27
+++ trunk/dyn3d/laplacien_rot.f	2013/11/15 18:45:49	76
@@ -22,7 +22,7 @@
 c 
 c   ..........    variables  en  arguments     .............
 c
-      INTEGER klevel
+      INTEGER, intent(in):: klevel
       REAL rotin( ip1jm,klevel ), rotout( ip1jm,klevel )
 c
 c   ..........    variables   locales       ................
@@ -31,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             )