/[lmdze]/trunk/libf/dyn3d/gradiv.f
ViewVC logotype

Diff of /trunk/libf/dyn3d/gradiv.f

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

revision 53 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/gradiv.F,v 1.1.1.1 2004/05/19 12:53:06 lmdzadmin Exp $  ! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/gradiv.F,v 1.1.1.1 2004/05/19 12:53:06 lmdzadmin Exp $
3  !  !
4        SUBROUTINE gradiv(klevel, xcov, ycov, ld, gdx, gdy )        SUBROUTINE gradiv(klevel, xcov, ycov, ld, gdx, gdy, cdivu)
5  c  c
6  c    Auteur :   P. Le Van  c    Auteur :   P. Le Van
7  c  c
# Line 19  c Line 19  c
19        use dimens_m        use dimens_m
20        use paramet_m        use paramet_m
21        use logic        use logic
             use inidissip_m  
22        use filtreg_m, only: filtreg        use filtreg_m, only: filtreg
23        IMPLICIT NONE        IMPLICIT NONE
24  c  c
# Line 28  c Line 27  c
27  c  c
28        REAL xcov( ip1jmp1,klevel ), ycov( ip1jm,klevel )        REAL xcov( ip1jmp1,klevel ), ycov( ip1jm,klevel )
29        REAL gdx( ip1jmp1,klevel ),   gdy( ip1jm,klevel )        REAL gdx( ip1jmp1,klevel ),   gdy( ip1jm,klevel )
30          real, intent(in):: cdivu
31        REAL div(ip1jmp1,llm)        REAL div(ip1jmp1,llm)
32    
33        INTEGER l,ij,iter        INTEGER l,ij,iter
Legend:
Removed from v.53  
changed lines
  Added in v.54
  ViewVC Help
Powered by ViewVC 1.1.21