--- trunk/dyn3d/laplacien_gam.f	2014/03/05 14:57:53	82
+++ 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)