--- trunk/libf/dyn3d/gcm.f90	2008/03/03 16:32:04	5
+++ trunk/libf/dyn3d/gcm.f90	2008/03/31 12:24:17	7
@@ -39,6 +39,7 @@
   use grid_change, only: dyn_phy, init_dyn_phy
   use advtrac_m, only: iniadvtrac
   use leapfrog_m, only: leapfrog
+  use dynredem0_m, only: dynredem0
 
   IMPLICIT NONE
 
@@ -52,7 +53,7 @@
   REAL ps(ip1jmp1) ! pression au sol (Pa)
 
   REAL masse(ip1jmp1, llm) ! masse d'air
-  REAL phis(ip1jmp1) ! géopotentiel au sol
+  REAL phis(iim + 1, jjm + 1) ! géopotentiel au sol
 
   ! Variables pour le fichier histoire :
   REAL time_0