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

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

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

revision 61 by guez, Fri Apr 20 14:58:43 2012 UTC revision 64 by guez, Wed Aug 29 14:47:17 2012 UTC
# Line 53  contains Line 53  contains
53         END DO         END DO
54      ENDIF      ENDIF
55    
56      CALL filtreg(div, jjm + 1, klevel, 2, 1, .TRUE., 1)      CALL filtreg(div, jjm + 1, klevel, 2, 1, .TRUE.)
57      CALL grad(klevel, div, gdx, gdy)      CALL grad(klevel, div, gdx, gdy)
58      nugrads = (-1.)**ld * cdivu      nugrads = (-1.)**ld * cdivu
59    
Legend:
Removed from v.61  
changed lines
  Added in v.64
  ViewVC Help
Powered by ViewVC 1.1.21