--- trunk/libf/dyn3d/laplacien_rot.f	2012/08/29 14:47:17	64
+++ trunk/libf/dyn3d/laplacien_rot.f	2012/09/20 09:57:03	65
@@ -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       ................