--- trunk/libf/dyn3d/Dissipation/divgrad2.f	2012/01/10 19:02:02	56
+++ trunk/libf/dyn3d/Dissipation/divgrad2.f	2012/04/20 14:58:43	61
@@ -13,6 +13,7 @@
 c         divgra     est  un argument  de sortie pour le s-prg
 c
       use dimens_m
+      use laplacien_m, only: laplacien
       use paramet_m
       use comgeom
       IMPLICIT NONE
@@ -38,7 +39,7 @@
       divgra = h
 
 c
-      CALL laplacien( klevel, divgra, divgra )
+      CALL laplacien( klevel, divgra )
      
       DO l = 1, klevel
        DO ij = 1, ip1jmp1
@@ -67,7 +68,7 @@
         ENDDO
       ENDDO
 c
-      CALL laplacien ( klevel, divgra, divgra )
+      CALL laplacien ( klevel, divgra )
 c
       DO l  = 1,klevel
       DO ij = 1,ip1jmp1