/[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 3 by guez, Wed Feb 27 13:16:39 2008 UTC revision 27 by guez, Thu Mar 25 14:29:07 2010 UTC
# 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
22                use inidissip_m
23          use filtreg_m, only: filtreg
24        IMPLICIT NONE        IMPLICIT NONE
25  c  c
       include "comdissipn.h"  
26    
27        INTEGER klevel        INTEGER klevel
28  c  c
# Line 30  c Line 31  c
31    
32        REAL div(ip1jmp1,llm)        REAL div(ip1jmp1,llm)
33    
34        INTEGER l,ij,iter,ld        INTEGER l,ij,iter
35          integer, intent(in):: ld
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