/[lmdze]/trunk/dyn3d/Dissipation/gradiv2.f90
ViewVC logotype

Diff of /trunk/dyn3d/Dissipation/gradiv2.f90

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

revision 103 by guez, Fri Aug 29 13:00:05 2014 UTC revision 107 by guez, Thu Sep 11 15:09:15 2014 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.)      CALL filtreg(div, direct = .true., intensive = .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.103  
changed lines
  Added in v.107
  ViewVC Help
Powered by ViewVC 1.1.21