--- trunk/dyn3d/bernoui.f	2014/09/11 15:09:15	107
+++ trunk/dyn3d/bernoui.f	2015/04/29 15:34:15	133
@@ -4,26 +4,27 @@
 
 contains
 
-  SUBROUTINE bernoui(phi, ecin, bern)
+  function bernoui(phi, ecin)
 
     ! From LMDZ4/libf/dyn3d/bernoui.F, version 1.1.1.1 2004/05/19 12:53:06
 
     ! Author: P. Le Van
 
-    ! Objet: calcul de la fonction de Bernouilli aux niveaux s.
-    ! fonction de Bernouilli = bern = filtre de(geopotentiel + energ.cinet.)
-
-    USE dimens_m, ONLY: jjm, llm
+    ! Objet : calcul de la fonction de Bernouilli aux niveaux s.
+ 
+    USE dimens_m, ONLY: iim, jjm, llm
     USE filtreg_m, ONLY: filtreg
 
-    REAL, INTENT(IN):: phi(:, :, :), ecin (:, :, :)! (iim + 1, jjm + 1, llm)
-    REAL, intent(out):: bern(:, :, :) ! (iim + 1, jjm + 1, llm)
+    REAL, INTENT(IN):: phi(:, :, :), ecin (:, :, :) ! (iim + 1, jjm + 1, llm)
+
+    REAL bernoui(iim + 1, jjm + 1, llm)
+    ! fonction de Bernouilli = filtre de (géopotentiel + énergie cinétique)
 
     !-----------------------------------------------------------------------
 
-    bern = phi + ecin
-    CALL filtreg(bern, direct = .true., intensive = .true.)
+    bernoui = phi + ecin
+    CALL filtreg(bernoui, direct = .true., intensive = .true.)
 
-  END SUBROUTINE bernoui
+  END function bernoui
 
 end module bernoui_m