--- trunk/libf/dyn3d/Dissipation/divgrad2.f	2011/12/12 13:25:01	55
+++ trunk/libf/dyn3d/Dissipation/divgrad2.f	2012/01/10 19:02:02	56
@@ -22,7 +22,7 @@
 c
       INTEGER klevel
       REAL, intent(in):: h( ip1jmp1,klevel ), deltapres( ip1jmp1,klevel)
-      REAL divgra( ip1jmp1,klevel)
+      REAL, intent(out):: divgra( ip1jmp1,klevel)
       real, intent(in):: cdivh
 c
 c    .......    variables  locales    ..........