module comgeomfi_h

       implicit none

       ! These arrays are allocated in inifis
       REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: long,lati,area
       REAL,SAVE :: totarea

       end module comgeomfi_h