--- trunk/libf/dyn3d/bernoui.f	2010/03/25 14:29:07	27
+++ trunk/libf/dyn3d/bernoui.f	2012/11/14 16:59:30	68
@@ -4,7 +4,7 @@
       SUBROUTINE bernoui (ngrid,nlay,pphi,pecin,pbern)
       use dimens_m
       use paramet_m
-      use logic
+      use conf_gcm_m
       use filtreg_m, only: filtreg
       IMPLICIT NONE
 
@@ -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