--- trunk/dyn3d/leapfrog.f	2014/03/06 17:51:03	86
+++ trunk/dyn3d/leapfrog.f	2014/03/11 16:03:19	89
@@ -73,7 +73,7 @@
     REAL massem1(iim + 1, jjm + 1, llm)
 
     ! Tendances dynamiques
-    REAL dv((iim + 1) * jjm, llm), dudyn((iim + 1) * (jjm + 1), llm)
+    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))
 
@@ -178,7 +178,7 @@
           IF (time > 1.) time = time - 1.
 
           CALL calfis(rdayvrai, time, ucov, vcov, teta, q, ps, pk, phis, phi, &
-               dudyn, dv, w, dufi, dvfi, dtetafi, dqfi, dpfi, &
+               dudyn, w, dufi, dvfi, dtetafi, dqfi, dpfi, &
                lafin = itau + 1 == itaufin)
 
           ! Ajout des tendances physiques: