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

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

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

revision 27 by guez, Thu Mar 25 14:29:07 2010 UTC revision 54 by guez, Tue Dec 6 15:07:04 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
             use inidissip_m  
19        use filtreg_m, only: filtreg        use filtreg_m, only: filtreg
20        IMPLICIT NONE        IMPLICIT NONE
21  c  c
# Line 26  c Line 25  c
25        INTEGER klevel        INTEGER klevel
26        REAL xcov( ip1jmp1,klevel ), ycov( ip1jm,klevel )        REAL 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
Legend:
Removed from v.27  
changed lines
  Added in v.54
  ViewVC Help
Powered by ViewVC 1.1.21