/[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 25 by guez, Fri Mar 5 16:43:45 2010 UTC revision 27 by guez, Thu Mar 25 14:29:07 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 comdissipn              use inidissip_m
22          use filtreg_m, only: filtreg
23        IMPLICIT NONE        IMPLICIT NONE
24  c  c
25  c  c
# Line 32  c     ........       variables locales Line 33  c     ........       variables locales
33  c  c
34        REAL div(ip1jmp1,llm)        REAL div(ip1jmp1,llm)
35        REAL signe, nugrads        REAL signe, nugrads
36        INTEGER l,ij,iter,ld        INTEGER l,ij,iter
37          integer, intent(in):: ld
38                
39  c    ........................................................  c    ........................................................
40  c  c
Legend:
Removed from v.25  
changed lines
  Added in v.27
  ViewVC Help
Powered by ViewVC 1.1.21