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

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

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

trunk/libf/dyn3d/gradiv.f revision 54 by guez, Tue Dec 6 15:07:04 2011 UTC trunk/libf/dyn3d/Dissipation/gradiv.f revision 55 by guez, Mon Dec 12 13:25:01 2011 UTC
# Line 25  c Line 25  c
25    
26        INTEGER klevel        INTEGER klevel
27  c  c
28        REAL xcov( ip1jmp1,klevel ), ycov( ip1jm,klevel )        REAL, intent(in):: xcov( ip1jmp1,klevel ), ycov( ip1jm,klevel )
29        REAL gdx( ip1jmp1,klevel ),   gdy( ip1jm,klevel )        REAL gdx( ip1jmp1,klevel ),   gdy( ip1jm,klevel )
30        real, intent(in):: cdivu        real, intent(in):: cdivu
31        REAL div(ip1jmp1,llm)        REAL div(ip1jmp1,llm)
# Line 35  c Line 35  c
35  c  c
36  c  c
37  c  c
38        CALL SCOPY( ip1jmp1*klevel,xcov,1,gdx,1 )        gdx = xcov
39        CALL SCOPY( ip1jm*klevel,  ycov,1,gdy,1 )        gdy = ycov
40  c  c
41        DO 10 iter = 1,ld        DO 10 iter = 1,ld
42  c  c
Legend:
Removed from v.54  
changed lines
  Added in v.55
  ViewVC Help
Powered by ViewVC 1.1.21