--- trunk/Sources/dyn3d/bernoui.f	2015/04/30 18:35:49	136
+++ trunk/Sources/dyn3d/bernoui.f	2015/05/06 15:51:03	137
@@ -13,7 +13,7 @@
     ! Objet : calcul de la fonction de Bernouilli aux niveaux s.
  
     USE dimens_m, ONLY: iim, jjm, llm
-    USE filtreg_m, ONLY: filtreg
+    USE filtreg_scal_m, ONLY: filtreg_scal
 
     REAL, INTENT(IN):: phi(:, :, :), ecin (:, :, :) ! (iim + 1, jjm + 1, llm)
 
@@ -23,7 +23,7 @@
     !-----------------------------------------------------------------------
 
     bernoui = phi + ecin
-    CALL filtreg(bernoui, direct = .true., intensive = .true.)
+    CALL filtreg_scal(bernoui, direct = .true., intensive = .true.)
 
   END function bernoui