--- trunk/libf/dyn3d/bernoui.f	2012/01/30 12:54:02	57
+++ trunk/libf/dyn3d/bernoui.f	2012/11/14 16:59:30	68
@@ -33,7 +33,8 @@
 c   ----------
 c
       INTEGER nlay,ngrid
-      REAL pphi(ngrid*nlay),pecin(ngrid*nlay),pbern(ngrid*nlay)
+      REAL, intent(in):: pphi(ngrid*nlay),pecin(ngrid*nlay)
+      real pbern(ngrid*nlay)
 c
 c   Local:
 c   ------
@@ -52,7 +53,7 @@
 c   filtre:
 c   -------
 c
-      CALL filtreg( pbern, jjp1, llm, 2,1, .true., 1 )
+      CALL filtreg( pbern, jjp1, llm, 2,1, .true.)
 c
 c-----------------------------------------------------------------------
       RETURN