module comgeomfi_h

       implicit none

       REAL,ALLOCATABLE,DIMENSION(:) :: long,lati,area
       REAL :: totarea, totarea_planet

       end module comgeomfi_h