--- trunk/libf/dyn3d/nxgrarot.f	2010/03/25 14:29:07	27
+++ trunk/libf/dyn3d/Dissipation/nxgrarot.f	2012/01/30 12:54:02	57
@@ -1,7 +1,7 @@
 !
 ! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/nxgrarot.F,v 1.1.1.1 2004/05/19 12:53:06 lmdzadmin Exp $
 !
-      SUBROUTINE nxgrarot (klevel,xcov, ycov, lr, grx, gry )
+      SUBROUTINE nxgrarot (klevel,xcov, ycov, lr, grx, gry, crot )
 c   ***********************************************************
 c
 c    Auteur :  P.Le Van  
@@ -17,16 +17,16 @@
 c
       use dimens_m
       use paramet_m
-      use logic
-            use inidissip_m
+      use conf_gcm_m
       use filtreg_m, only: filtreg
       IMPLICIT NONE
 c
 c
 c
       INTEGER klevel
-      REAL xcov( ip1jmp1,klevel ), ycov( ip1jm,klevel )
-      REAL  grx( ip1jmp1,klevel ),  gry( ip1jm,klevel )
+      REAL, intent(in):: xcov( ip1jmp1,klevel ), ycov( ip1jm,klevel )
+      REAL, intent(out)::  grx( ip1jmp1,klevel ),  gry( ip1jm,klevel )
+      real, intent(in):: crot
 c
       REAL rot(ip1jm,llm)
 
@@ -35,8 +35,8 @@
 c
 c
 c
-      CALL SCOPY ( ip1jmp1*klevel, xcov, 1, grx, 1 )
-      CALL SCOPY (  ip1jm*klevel, ycov, 1, gry, 1 )
+      grx = xcov
+      gry = ycov
 c
       DO 10 iter = 1,lr
       CALL  rotat (klevel,grx, gry, rot )