Parent Directory | Revision Log | Patch
revision 106 by guez, Tue Sep 9 12:54:30 2014 UTC | revision 107 by guez, Thu Sep 11 15:09:15 2014 UTC | |
---|---|---|
# | Line 41 contains | Line 41 contains |
41 | / apols | / apols |
42 | end DO | end DO |
43 | ||
44 | CALL filtreg(div, jjm + 1, klevel, 2, 2, .TRUE.) | CALL filtreg(div, direct = .true., intensive = .false.) |
45 | ||
46 | DO l = 1, klevel | DO l = 1, klevel |
47 | div(:, 2:jjm, l) = div(:, 2:jjm, l) * unsaire_2d(:, 2:jjm) | div(:, 2:jjm, l) = div(:, 2:jjm, l) * unsaire_2d(:, 2:jjm) |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |