--- trunk/libf/dyn3d/laplacien_rotgam.f	2012/08/29 14:47:17	64
+++ trunk/libf/dyn3d/laplacien_rotgam.f	2012/09/20 09:57:03	65
@@ -20,7 +20,7 @@
 c
 c    .............   variables  en  arguments    ...........
 c
-      INTEGER klevel
+      INTEGER, intent(in):: klevel
       REAL rotin( ip1jm,klevel ), rotout( ip1jm,klevel )
 c
 c   ............     variables   locales     ...............