--- trunk/Sources/dyn3d/laplacien.f	2015/04/29 15:47:56	134
+++ trunk/dyn3d/laplacien.f	2018/03/20 09:35:59	265
@@ -10,11 +10,11 @@
     ! P. Le Van
     ! Calcul de div(grad) de teta.
 
-    use dimens_m, only: iim, jjm
+    use dimensions, only: iim, jjm
     use divergf_m, only: divergf
-    use filtreg_m, only: filtreg
+    use filtreg_scal_m, only: filtreg_scal
     use grad_m, only: grad
-    USE paramet_m, ONLY: ip1jm, ip1jmp1, jjp1
+    USE paramet_m, ONLY: ip1jm, ip1jmp1
 
     INTEGER, intent(in):: klevel
     REAL, intent(inout):: teta(iim + 1, jjm + 1, klevel)
@@ -24,7 +24,7 @@
 
     !-----------------------------------------------------------------
 
-    CALL filtreg(teta, direct = .true., intensive = .true.)
+    CALL filtreg_scal(teta, direct = .true., intensive = .true.)
     CALL grad(klevel, teta, ghx, ghy)
     CALL divergf(klevel, ghx, ghy, teta)