Index: /trunk/LMDZ.MARS/libf/phymars/comgeomfi_h.F90
===================================================================
--- /trunk/LMDZ.MARS/libf/phymars/comgeomfi_h.F90	(revision 1951)
+++ /trunk/LMDZ.MARS/libf/phymars/comgeomfi_h.F90	(revision 1952)
@@ -4,9 +4,4 @@
        implicit none
 
-       ! These arrays are allocated in phys_state_var_init
-!       REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: long ! longitudes (rad)
-!       REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: lati ! latitudes (rad)
-!       REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: area ! mesh area (m2)
-!       REAL,SAVE :: totarea
        REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: sinlon 
        REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: coslon
@@ -21,7 +16,4 @@
          integer,intent(in) :: ngrid ! number of atmospheric columns
 
-!        allocate(lati(ngrid))
-!         allocate(long(ngrid))
-!         allocate(area(ngrid))
          allocate(sinlat(ngrid))
          allocate(coslat(ngrid))
@@ -48,13 +40,6 @@
          INTEGER,INTENT(IN) :: ngrid ! number of atmospheric columns
          REAL,INTENT(IN) :: plat(ngrid),plon(ngrid),parea(ngrid)
-         EXTERNAL SSUM
-         REAL SSUM
          integer :: ig
 
-         ! fill "comgeomfi_h" data
-!         call SCOPY(ngrid,plon,1,long,1)
-!         call SCOPY(ngrid,plat,1,lati,1)
-!         call SCOPY(ngrid,parea,1,area,1)
-!         totarea=SSUM(ngrid,area,1)
          DO ig=1,ngrid
             sinlat(ig)=sin(plat(ig))