--- trunk/libf/dyn3d/gcm.f90 2011/01/25 15:11:05 39 +++ trunk/libf/dyn3d/gcm.f90 2011/04/08 12:43:31 43 @@ -41,8 +41,8 @@ ! Variables dynamiques : REAL vcov(ip1jm, llm), ucov(ip1jmp1, llm) ! vents covariants - REAL teta(ip1jmp1, llm) ! température potentielle - REAL q(ip1jmp1, llm, nqmx) ! champs advectés + 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) REAL masse(ip1jmp1, llm) ! masse d'air