Parent Directory | Revision Log | Patch
revision 25 by guez, Fri Mar 5 16:43:45 2010 UTC | revision 27 by guez, Thu Mar 25 14:29:07 2010 UTC | |
---|---|---|
# | Line 6 | Line 6 |
6 | use paramet_m | use paramet_m |
7 | use logic | use logic |
8 | use comgeom | use comgeom |
9 | use comdissipn | use inidissip_m |
10 | use filtreg_m, only: filtreg | |
11 | IMPLICIT NONE | IMPLICIT NONE |
12 | c | c |
13 | c======================================================================= | c======================================================================= |
# | Line 30 c | Line 31 c |
31 | c | c |
32 | REAL ghy(ip1jm,llm), ghx(ip1jmp1,llm) | REAL ghy(ip1jm,llm), ghx(ip1jmp1,llm) |
33 | ||
34 | INTEGER l,ij,iter,lh | INTEGER l,ij,iter |
35 | integer, intent(in):: lh | |
36 | c | c |
37 | c | c |
38 | c | c |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |