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 22 c======================================= | Line 22 c======================================= |
22 | ||
23 | use dimens_m | use dimens_m |
24 | use paramet_m | use paramet_m |
25 | use logic | use conf_gcm_m |
26 | use comgeom | use comgeom |
27 | use filtreg_m, only: filtreg | |
28 | ||
29 | IMPLICIT NONE | IMPLICIT NONE |
30 | ||
31 | REAL rot( ip1jm,llm ) | REAL rot( ip1jm,llm ) |
# | Line 59 CDIR$ IVDEP | Line 61 CDIR$ IVDEP |
61 | 5 CONTINUE | 5 CONTINUE |
62 | ||
63 | ||
64 | CALL filtreg( rot, jjm, llm, 2, 1, .FALSE., 1 ) | CALL filtreg( rot, jjm, llm, 2, 1, .FALSE.) |
65 | ||
66 | ||
67 | DO 10 l = 1, llm | DO 10 l = 1, llm |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |