--- trunk/libf/dyn3d/bernoui.f	2010/03/25 14:29:07	27
+++ trunk/libf/dyn3d/bernoui.f	2012/08/29 14:47:17	64
@@ -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
 
@@ -52,7 +52,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