--- trunk/libf/dyn3d/Dissipation/nxgrarot.f	2011/12/12 13:25:01	55
+++ trunk/libf/dyn3d/Dissipation/nxgrarot.f	2012/01/10 19:02:02	56
@@ -25,7 +25,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
       REAL rot(ip1jm,llm)