--- trunk/libf/dyn3d/etat0.f90	2012/11/14 16:59:30	68
+++ trunk/libf/dyn3d/etat0.f90	2013/06/24 15:39:52	70
@@ -107,7 +107,7 @@
     real pks(iim + 1, jjm + 1)
 
     REAL masse(iim + 1, jjm + 1, llm)
-    REAL phi(ip1jmp1, llm)
+    REAL phi(iim + 1, jjm + 1, llm)
     REAL pbaru(ip1jmp1, llm), pbarv(ip1jm, llm)
     REAL w(ip1jmp1, llm)
     REAL phystep
@@ -306,7 +306,7 @@
     day_ref = dayref
     annee_ref = anneeref
 
-    CALL geopot(ip1jmp1, tpot, pk , pks,  phis, phi)
+    CALL geopot(tpot, pk , pks,  phis, phi)
     CALL caldyn0(ucov, vcov, tpot, psol, masse, pk, phis, phi, w, pbaru, &
          pbarv)
     CALL dynredem0("start.nc", dayref, phis)