/[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 25 by guez, Fri Mar 5 16:43:45 2010 UTC revision 26 by guez, Tue Mar 9 15:27:15 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 comdissipn              use inidissip_m
23        IMPLICIT NONE        IMPLICIT NONE
24  c  c
25    
# Line 30  c Line 30  c
30    
31        REAL div(ip1jmp1,llm)        REAL div(ip1jmp1,llm)
32    
33        INTEGER l,ij,iter,ld        INTEGER l,ij,iter
34          integer, intent(in):: ld
35  c  c
36  c  c
37  c  c
Legend:
Removed from v.25  
changed lines
  Added in v.26
  ViewVC Help
Powered by ViewVC 1.1.21