Parent Directory | Revision Log | Patch
trunk/dyn3d/laplacien_gam.f90 revision 81 by guez, Wed Mar 5 14:38:41 2014 UTC | trunk/dyn3d/laplacien_gam.f revision 103 by guez, Fri Aug 29 13:00:05 2014 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 |