Parent Directory | Revision Log | Patch
revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC | revision 64 by guez, Wed Aug 29 14:47:17 2012 UTC | |
---|---|---|
# | Line 15 c | Line 15 c |
15 | use dimens_m | use dimens_m |
16 | use paramet_m | use paramet_m |
17 | use comgeom | use comgeom |
18 | use filtreg_m, only: filtreg | |
19 | IMPLICIT NONE | IMPLICIT NONE |
20 | c | c |
21 | c | c |
# | Line 45 CDIR$ IVDEP | Line 46 CDIR$ IVDEP |
46 | c | c |
47 | 10 CONTINUE | 10 CONTINUE |
48 | ||
49 | CALL filtreg( rot, jjm, klevel, 2, 2, .FALSE., 1 ) | CALL filtreg( rot, jjm, klevel, 2, 2, .FALSE.) |
50 | ||
51 | DO l = 1, klevel | DO l = 1, klevel |
52 | DO ij = 1, ip1jm | DO ij = 1, ip1jm |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |