module comgeomfi_h

       implicit none

       REAL,ALLOCATABLE,DIMENSION(:),SAVE :: long,lati,area
       REAL,SAVE :: totarea, totarea_planet
!$OMP THREADPRIVATE(long,lati,area,totarea,totarea_planet)

       end module comgeomfi_h