Parent Directory | Revision Log | Patch
revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC | revision 12 by guez, Mon Jul 21 16:05:07 2008 UTC | |
---|---|---|
# | Line 60 c ------ | Line 60 c ------ |
60 | REAL bern(ip1jmp1,llm) | REAL bern(ip1jmp1,llm) |
61 | REAL massebxy(ip1jm,llm) | REAL massebxy(ip1jm,llm) |
62 | ||
63 | INTEGER ij,l | INTEGER ij,l |
64 | ||
65 | c----------------------------------------------------------------------- | c----------------------------------------------------------------------- |
# | Line 96 c -------------------------------- | Line 95 c -------------------------------- |
95 | ENDDO | ENDDO |
96 | ||
97 | ||
98 | CALL advect( ang, vcov, teta, w, massebx, masseby, du, dv,dteta ) | CALL advect( ang, vcov, teta, w, massebx, masseby, du, dv,dteta, |
99 | $ conser ) | |
100 | ||
101 | C WARNING probleme de peridocite de dv sur les PC/linux. Pb d'arrondi | C WARNING probleme de peridocite de dv sur les PC/linux. Pb d'arrondi |
102 | C probablement. Observe sur le code compile avec pgf90 3.0-1 | C probablement. Observe sur le code compile avec pgf90 3.0-1 |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |