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

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

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

trunk/libf/dyn3d/nxgraro2.f revision 54 by guez, Tue Dec 6 15:07:04 2011 UTC trunk/libf/dyn3d/Dissipation/nxgraro2.f revision 55 by guez, Mon Dec 12 13:25:01 2011 UTC
# Line 23  c Line 23  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        real, intent(in):: crot
29  c  c
# Line 39  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.54  
changed lines
  Added in v.55
  ViewVC Help
Powered by ViewVC 1.1.21