Parent Directory | Revision Log | Patch
trunk/dyn3d/laplacien_gam.f revision 82 by guez, Wed Mar 5 14:57:53 2014 UTC | trunk/Sources/dyn3d/laplacien_gam.f revision 134 by guez, Wed Apr 29 15:47:56 2015 UTC | |
---|---|---|
# | Line 31 SUBROUTINE laplacien_gam(klevel, cuvsga, | Line 31 SUBROUTINE laplacien_gam(klevel, cuvsga, |
31 | ||
32 | ! ........... variables locales ................. | ! ........... variables locales ................. |
33 | ||
34 | REAL ghy(ip1jm, llm), ghx(ip1jmp1, llm) | REAL ghy(ip1jm, klevel), ghx(ip1jmp1, klevel) |
35 | ! ...................................................... | ! ...................................................... |
36 | ||
37 | CALL scopy(ip1jmp1*klevel, teta, 1, divgra, 1) | CALL scopy(ip1jmp1*klevel, teta, 1, divgra, 1) |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |