module comgeomfi_h

       implicit none

       ! These arrays are allocated in inifis
       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

       end module comgeomfi_h