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

Diff of /trunk/libf/dyn3d/gradiv2.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 26 by guez, Tue Mar 9 15:27:15 2010 UTC
# Line 18  c Line 18  c
18        use dimens_m        use dimens_m
19        use paramet_m        use paramet_m
20        use comgeom        use comgeom
21                use inidissip_m
22        IMPLICIT NONE        IMPLICIT NONE
23  c  c
       include "comdissipn.h"  
24  c  c
25  c     ........    variables en arguments      ........  c     ........    variables en arguments      ........
26    
# Line 32  c     ........       variables locales Line 32  c     ........       variables locales
32  c  c
33        REAL div(ip1jmp1,llm)        REAL div(ip1jmp1,llm)
34        REAL signe, nugrads        REAL signe, nugrads
35        INTEGER l,ij,iter,ld        INTEGER l,ij,iter
36          integer, intent(in):: ld
37                
38  c    ........................................................  c    ........................................................
39  c  c
Legend:
Removed from v.3  
changed lines
  Added in v.26
  ViewVC Help
Powered by ViewVC 1.1.21