/[lmdze]/trunk/dyn3d/Dissipation/nxgraro2.f90
ViewVC logotype

Diff of /trunk/dyn3d/Dissipation/nxgraro2.f90

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

revision 55 by guez, Mon Dec 12 13:25:01 2011 UTC revision 64 by guez, Wed Aug 29 14:47:17 2012 UTC
# Line 24  c    ......  variables en arguments  ... Line 24  c    ......  variables en arguments  ...
24  c  c
25        INTEGER klevel        INTEGER klevel
26        REAL, intent(in):: xcov( ip1jmp1,klevel ), ycov( ip1jm,klevel )        REAL, intent(in):: xcov( ip1jmp1,klevel ), ycov( ip1jm,klevel )
27        REAL  grx( ip1jmp1,klevel ),  gry( ip1jm,klevel )        REAL, intent(out)::  grx( ip1jmp1,klevel ),  gry( ip1jm,klevel )
28        real, intent(in):: crot        real, intent(in):: crot
29  c  c
30  c    ......   variables locales     ........  c    ......   variables locales     ........
# Line 54  c Line 54  c
54        ENDDO        ENDDO
55  c  c
56  c  c
57        CALL filtreg( rot, jjm, klevel, 2,1, .FALSE.,1)        CALL filtreg( rot, jjm, klevel, 2,1, .FALSE.)
58        CALL nxgrad ( klevel, rot, grx, gry )        CALL nxgrad ( klevel, rot, grx, gry )
59  c  c
60        DO    l = 1, klevel        DO    l = 1, klevel
Legend:
Removed from v.55  
changed lines
  Added in v.64
  ViewVC Help
Powered by ViewVC 1.1.21