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

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

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

revision 26 by guez, Tue Mar 9 15:27:15 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/divgrad2.F,v 1.1.1.1 2004/05/19 12:53:06 lmdzadmin Exp $  ! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/divgrad2.F,v 1.1.1.1 2004/05/19 12:53:06 lmdzadmin Exp $
3  !  !
4        SUBROUTINE divgrad2 ( klevel, h, deltapres, lh, divgra )        SUBROUTINE divgrad2 ( klevel, h, deltapres, lh, divgra, cdivh )
5  c  c
6  c     P. Le Van  c     P. Le Van
7  c  c
# Line 15  c Line 15  c
15        use dimens_m        use dimens_m
16        use paramet_m        use paramet_m
17        use comgeom        use comgeom
             use inidissip_m  
18        IMPLICIT NONE        IMPLICIT NONE
19  c  c
20    
# Line 24  c Line 23  c
23        INTEGER klevel        INTEGER klevel
24        REAL h( ip1jmp1,klevel ), deltapres( ip1jmp1,klevel )        REAL h( ip1jmp1,klevel ), deltapres( ip1jmp1,klevel )
25        REAL divgra( ip1jmp1,klevel)        REAL divgra( ip1jmp1,klevel)
26          real, intent(in):: cdivh
27  c  c
28  c    .......    variables  locales    ..........  c    .......    variables  locales    ..........
29  c  c
Legend:
Removed from v.26  
changed lines
  Added in v.54
  ViewVC Help
Powered by ViewVC 1.1.21