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

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

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

revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC revision 27 by guez, Thu Mar 25 14:29:07 2010 UTC
# Line 6  Line 6 
6        use paramet_m        use paramet_m
7        use logic        use logic
8        use comgeom        use comgeom
9                use inidissip_m
10          use filtreg_m, only: filtreg
11        IMPLICIT NONE        IMPLICIT NONE
12  c  c
13  c=======================================================================  c=======================================================================
# Line 23  c Line 25  c
25  c   declarations:  c   declarations:
26  c   -------------  c   -------------
27  c  c
       include "comdissipn.h"  
28  c  c
29        INTEGER klevel        INTEGER klevel
30        REAL h( ip1jmp1,klevel ), divgra( ip1jmp1,klevel )        REAL h( ip1jmp1,klevel ), divgra( ip1jmp1,klevel )
31  c  c
32        REAL ghy(ip1jm,llm), ghx(ip1jmp1,llm)        REAL ghy(ip1jm,llm), ghx(ip1jmp1,llm)
33    
34        INTEGER  l,ij,iter,lh        INTEGER  l,ij,iter
35          integer, intent(in):: lh
36  c  c
37  c  c
38  c  c
Legend:
Removed from v.3  
changed lines
  Added in v.27
  ViewVC Help
Powered by ViewVC 1.1.21