--- trunk/libf/dyn3d/bernoui.f	2012/08/29 14:47:17	64
+++ 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   ------