--- trunk/libf/dyn3d/laplacien.f	2010/03/25 14:29:07	27
+++ trunk/libf/dyn3d/laplacien.f	2012/01/30 14:37:26	60
@@ -11,17 +11,20 @@
 c     klevel et teta  sont des arguments  d'entree pour le s-prog
 c      divgra     est  un argument  de sortie pour le s-prog
 c
+      use grad_m, only: grad
       use dimens_m
       use paramet_m
       use comgeom
       use filtreg_m, only: filtreg
+      use divergf_m, only: divergf
+
       IMPLICIT NONE
 c
 
 c
 c    .........      variables  en arguments   ..............
 c
-      INTEGER klevel
+      INTEGER, intent(in):: klevel
       REAL teta( ip1jmp1,klevel ), divgra( ip1jmp1,klevel )
 c
 c    ............     variables  locales      ..............