module comgeomfi_h

       implicit none

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

       end module comgeomfi_h