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

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

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

trunk/libf/dyn3d/divgrad2.f revision 54 by guez, Tue Dec 6 15:07:04 2011 UTC trunk/libf/dyn3d/Dissipation/divgrad2.f revision 55 by guez, Mon Dec 12 13:25:01 2011 UTC
# Line 21  c Line 21  c
21  c    .......    variables en arguments   .......  c    .......    variables en arguments   .......
22  c  c
23        INTEGER klevel        INTEGER klevel
24        REAL h( ip1jmp1,klevel ), deltapres( ip1jmp1,klevel )        REAL, intent(in):: h( ip1jmp1,klevel ), deltapres( ip1jmp1,klevel)
25        REAL divgra( ip1jmp1,klevel)        REAL divgra( ip1jmp1,klevel)
26        real, intent(in):: cdivh        real, intent(in):: cdivh
27  c  c
# Line 35  c    ................................... Line 35  c    ...................................
35  c  c
36        signe    = (-1.)**lh        signe    = (-1.)**lh
37        nudivgrs = signe * cdivh        nudivgrs = signe * cdivh
38          divgra = h
       CALL SCOPY ( ip1jmp1 * klevel, h, 1, divgra, 1 )  
39    
40  c  c
41        CALL laplacien( klevel, divgra, divgra )        CALL laplacien( klevel, divgra, divgra )
Legend:
Removed from v.54  
changed lines
  Added in v.55
  ViewVC Help
Powered by ViewVC 1.1.21