--- trunk/Sources/dyn3d/leapfrog.f	2017/04/28 13:40:59	224
+++ trunk/Sources/dyn3d/leapfrog.f	2018/01/22 15:02:56	252
@@ -75,7 +75,7 @@
     ! Tendances dynamiques
     REAL dv((iim + 1) * jjm, llm), dudyn(iim + 1, jjm + 1, llm)
     REAL dteta(iim + 1, jjm + 1, llm)
-    real dp((iim + 1) * (jjm + 1))
+    real dp(iim + 1, jjm + 1)
 
     ! Tendances de la dissipation :
     REAL dvdis(iim + 1, jjm, llm), dudis(iim + 1, jjm + 1, llm)