--- trunk/libf/dyn3d/Dissipation/nxgraro2.f	2011/12/12 13:25:01	55
+++ trunk/libf/dyn3d/Dissipation/nxgraro2.f	2012/01/10 19:02:02	56
@@ -24,7 +24,7 @@
 c
       INTEGER klevel
       REAL, intent(in):: xcov( ip1jmp1,klevel ), ycov( ip1jm,klevel )
-      REAL  grx( ip1jmp1,klevel ),  gry( ip1jm,klevel )
+      REAL, intent(out)::  grx( ip1jmp1,klevel ),  gry( ip1jm,klevel )
       real, intent(in):: crot
 c
 c    ......   variables locales     ........