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

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

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

trunk/libf/dyn3d/divgrad.f revision 25 by guez, Fri Mar 5 16:43:45 2010 UTC trunk/libf/dyn3d/Dissipation/divgrad.f revision 55 by guez, Mon Dec 12 13:25:01 2011 UTC
# Line 1  Line 1 
1  !  !
2  ! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/divgrad.F,v 1.1.1.1 2004/05/19 12:53:05 lmdzadmin Exp $  ! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/divgrad.F,v 1.1.1.1 2004/05/19 12:53:05 lmdzadmin Exp $
3  !  !
4        SUBROUTINE divgrad (klevel,h, lh, divgra )        SUBROUTINE divgrad (klevel,h, lh, divgra, cdivh )
5        use dimens_m        use dimens_m
6        use paramet_m        use paramet_m
7        use logic        use logic
8        use comgeom        use comgeom
9              use comdissipn        use filtreg_m, only: filtreg
10        IMPLICIT NONE        IMPLICIT NONE
11  c  c
12  c=======================================================================  c=======================================================================
# Line 26  c   ------------- Line 26  c   -------------
26  c  c
27  c  c
28        INTEGER klevel        INTEGER klevel
29        REAL h( ip1jmp1,klevel ), divgra( ip1jmp1,klevel )        REAL, intent(in):: h( ip1jmp1,klevel )
30          real divgra( ip1jmp1,klevel )
31          real, intent(in):: cdivh
32  c  c
33        REAL ghy(ip1jm,llm), ghx(ip1jmp1,llm)        REAL ghy(ip1jm,llm), ghx(ip1jmp1,llm)
34    
35        INTEGER  l,ij,iter,lh        INTEGER  l,ij,iter
36          integer, intent(in):: lh
37  c  c
38  c  c
39  c  c
40        CALL SCOPY ( ip1jmp1*klevel,h,1,divgra,1 )        divgra = h
41  c  c
42        DO 10 iter = 1,lh        DO 10 iter = 1,lh
43    
Legend:
Removed from v.25  
changed lines
  Added in v.55
  ViewVC Help
Powered by ViewVC 1.1.21