--- trunk/libf/dyn3d/gcm.f90	2011/02/22 13:49:36	40
+++ trunk/libf/dyn3d/gcm.f90	2011/12/06 15:07:04	54
@@ -22,6 +22,7 @@
   use grid_change, only: dyn_phy, init_dyn_phy
   use iniadvtrac_m, only: iniadvtrac
   use inidissip_m, only: inidissip
+  use inifilr_m, only: inifilr
   use inigeom_m, only: inigeom
   use initdynav_m, only: initdynav
   use inithist_m, only: inithist
@@ -41,7 +42,7 @@
 
   ! Variables dynamiques :
   REAL vcov(ip1jm, llm), ucov(ip1jmp1, llm) ! vents covariants
-  REAL teta(ip1jmp1, llm) ! température potentielle 
+  REAL teta(iim + 1, jjm + 1, llm) ! température potentielle 
   REAL q(iim + 1, jjm + 1, llm, nqmx) ! champs advectés
   REAL ps(iim + 1, jjm + 1) ! pression au sol (Pa)