Parent Directory | Revision Log | 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 |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |