/[lmdze]/trunk/libf/dyn3d/Dissipation/divgrad2.f
ViewVC logotype

Diff of /trunk/libf/dyn3d/Dissipation/divgrad2.f

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

revision 60 by guez, Tue Jan 10 19:02:02 2012 UTC revision 61 by guez, Fri Apr 20 14:58:43 2012 UTC
# Line 13  c   h ,klevel,lh et pext  sont des argum Line 13  c   h ,klevel,lh et pext  sont des argum
13  c         divgra     est  un argument  de sortie pour le s-prg  c         divgra     est  un argument  de sortie pour le s-prg
14  c  c
15        use dimens_m        use dimens_m
16          use laplacien_m, only: laplacien
17        use paramet_m        use paramet_m
18        use comgeom        use comgeom
19        IMPLICIT NONE        IMPLICIT NONE
# Line 38  c Line 39  c
39        divgra = h        divgra = h
40    
41  c  c
42        CALL laplacien( klevel, divgra, divgra )        CALL laplacien( klevel, divgra )
43            
44        DO l = 1, klevel        DO l = 1, klevel
45         DO ij = 1, ip1jmp1         DO ij = 1, ip1jmp1
# Line 67  c    ................................... Line 68  c    ...................................
68          ENDDO          ENDDO
69        ENDDO        ENDDO
70  c  c
71        CALL laplacien ( klevel, divgra, divgra )        CALL laplacien ( klevel, divgra )
72  c  c
73        DO l  = 1,klevel        DO l  = 1,klevel
74        DO ij = 1,ip1jmp1        DO ij = 1,ip1jmp1
Legend:
Removed from v.60  
changed lines
  Added in v.61
  ViewVC Help
Powered by ViewVC 1.1.21