--- trunk/libf/dyn3d/nxgraro2.f	2010/03/05 16:43:45	25
+++ trunk/libf/dyn3d/Dissipation/nxgraro2.f	2011/12/12 13:25:01	55
@@ -1,7 +1,7 @@
 !
 ! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/nxgraro2.F,v 1.1.1.1 2004/05/19 12:53:06 lmdzadmin Exp $
 !
-       SUBROUTINE nxgraro2 (klevel,xcov, ycov, lr, grx, gry )
+       SUBROUTINE nxgraro2 (klevel,xcov, ycov, lr, grx, gry, crot )
 c
 c      P.Le Van .
 c   ***********************************************************
@@ -16,20 +16,22 @@
 c
       use dimens_m
       use paramet_m
-            use comdissipn
+      use filtreg_m, only: filtreg
       IMPLICIT NONE
 c
 c
 c    ......  variables en arguments  .......
 c
       INTEGER klevel
-      REAL xcov( ip1jmp1,klevel ), ycov( ip1jm,klevel )
+      REAL, intent(in):: xcov( ip1jmp1,klevel ), ycov( ip1jm,klevel )
       REAL  grx( ip1jmp1,klevel ),  gry( ip1jm,klevel )
+      real, intent(in):: crot
 c
 c    ......   variables locales     ........
 c
       REAL rot(ip1jm,llm) , signe, nugradrs
-      INTEGER l,ij,iter,lr
+      INTEGER l,ij,iter
+      integer, intent(in):: lr
 c    ........................................................
 c
 c
@@ -37,8 +39,8 @@
       signe    = (-1.)**lr
       nugradrs = signe * crot
 c
-      CALL SCOPY ( ip1jmp1* klevel, xcov, 1, grx, 1 )
-      CALL SCOPY (  ip1jm * klevel, ycov, 1, gry, 1 )
+      grx = xcov
+      gry = ycov
 c
       CALL     rotatf     ( klevel, grx, gry, rot )
 c