COMMON/comgeomfi1/long(ngridmx),lati(ngridmx),area(ngridmx)
      COMMON/comgeomfi2/ totarea

      REAL long,lati,area,totarea