--- trunk/dyn3d/laplacien_gam.f	2014/07/15 13:43:24	102
+++ trunk/dyn3d/laplacien_gam.f	2014/08/29 13:00:05	103
@@ -31,7 +31,7 @@
 
   ! ...........    variables  locales    .................
 
-  REAL ghy(ip1jm, llm), ghx(ip1jmp1, llm)
+  REAL ghy(ip1jm, klevel), ghx(ip1jmp1, klevel)
   ! ......................................................
 
   CALL scopy(ip1jmp1*klevel, teta, 1, divgra, 1)