Index: trunk/LMDZ.COMMON/libf/phy_common/geometry_mod.F90
===================================================================
--- trunk/LMDZ.COMMON/libf/phy_common/geometry_mod.F90	(revision 3241)
+++ trunk/LMDZ.COMMON/libf/phy_common/geometry_mod.F90	(revision 3242)
@@ -36,8 +36,4 @@
 !$OMP THREADPRIVATE(cell_area_for_lonlat_outputs)
 
-  REAL,SAVE,ALLOCATABLE :: real_area(:) ! real area of the cell (m2)
-                                        ! multiplied by klon at poles
-  !$OMP THREADPRIVATE(real_area)
-
   INTEGER,SAVE,ALLOCATABLE :: ind_cell_glo(:)      ! global index of a local cell
 !$OMP THREADPRIVATE(ind_cell_glo)
@@ -51,5 +47,4 @@
   USE nrtype, ONLY : PI
   IMPLICIT NONE
-  include "dimensions.h"
     INTEGER,INTENT(IN) :: klon ! number of columns for this MPI/OpenMP domain
     REAL,INTENT(IN) :: longitude_(klon)
@@ -69,5 +64,4 @@
     ALLOCATE(boundslat(klon,nvertex))
     ALLOCATE(cell_area(klon))
-    ALLOCATE(real_area(klon))
     IF (PRESENT(ind_cell_glo_)) ALLOCATE(ind_cell_glo(klon))
     IF (PRESENT(dx_)) ALLOCATE(dx(klon))
@@ -81,9 +75,4 @@
     boundslat(:,:) = boundslat_(:,:)
     cell_area(:) = cell_area_(:)
-
-    real_area(2:klon-1)=cell_area(2:klon-1)
-    real_area(1)=cell_area(1)*iim
-    real_area(klon)=cell_area(klon)*iim
-
     IF (PRESENT(ind_cell_glo_)) ind_cell_glo(:) = ind_cell_glo_(:)
     IF (PRESENT(dx_)) dx(:) = dx_(:)