/[lmdze]/trunk/Sources/dyn3d/Dissipation/nxgraro2.f
ViewVC logotype

Diff of /trunk/Sources/dyn3d/Dissipation/nxgraro2.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

trunk/libf/dyn3d/nxgraro2.f revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC trunk/libf/dyn3d/Dissipation/nxgraro2.f revision 55 by guez, Mon Dec 12 13:25:01 2011 UTC
# Line 1  Line 1 
1  !  !
2  ! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/nxgraro2.F,v 1.1.1.1 2004/05/19 12:53:06 lmdzadmin Exp $  ! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/nxgraro2.F,v 1.1.1.1 2004/05/19 12:53:06 lmdzadmin Exp $
3  !  !
4         SUBROUTINE nxgraro2 (klevel,xcov, ycov, lr, grx, gry )         SUBROUTINE nxgraro2 (klevel,xcov, ycov, lr, grx, gry, crot )
5  c  c
6  c      P.Le Van .  c      P.Le Van .
7  c   ***********************************************************  c   ***********************************************************
# Line 16  c Line 16  c
16  c  c
17        use dimens_m        use dimens_m
18        use paramet_m        use paramet_m
19          use filtreg_m, only: filtreg
20        IMPLICIT NONE        IMPLICIT NONE
21  c  c
       include "comdissipn.h"  
22  c  c
23  c    ......  variables en arguments  .......  c    ......  variables en arguments  .......
24  c  c
25        INTEGER klevel        INTEGER klevel
26        REAL xcov( ip1jmp1,klevel ), ycov( ip1jm,klevel )        REAL, intent(in):: xcov( ip1jmp1,klevel ), ycov( ip1jm,klevel )
27        REAL  grx( ip1jmp1,klevel ),  gry( ip1jm,klevel )        REAL  grx( ip1jmp1,klevel ),  gry( ip1jm,klevel )
28          real, intent(in):: crot
29  c  c
30  c    ......   variables locales     ........  c    ......   variables locales     ........
31  c  c
32        REAL rot(ip1jm,llm) , signe, nugradrs        REAL rot(ip1jm,llm) , signe, nugradrs
33        INTEGER l,ij,iter,lr        INTEGER l,ij,iter
34          integer, intent(in):: lr
35  c    ........................................................  c    ........................................................
36  c  c
37  c  c
# Line 37  c Line 39  c
39        signe    = (-1.)**lr        signe    = (-1.)**lr
40        nugradrs = signe * crot        nugradrs = signe * crot
41  c  c
42        CALL SCOPY ( ip1jmp1* klevel, xcov, 1, grx, 1 )        grx = xcov
43        CALL SCOPY (  ip1jm * klevel, ycov, 1, gry, 1 )        gry = ycov
44  c  c
45        CALL     rotatf     ( klevel, grx, gry, rot )        CALL     rotatf     ( klevel, grx, gry, rot )
46  c  c
Legend:
Removed from v.3  
changed lines
  Added in v.55
  ViewVC Help
Powered by ViewVC 1.1.21