COMMON/surfdat/albedodat(ngridmx),inertiedat(ngridmx),
     s   phisfi(ngridmx),albedice(2),emisice(2),emissiv,
     s   iceradius(2) , dtemisice(2),
     s   zmea(ngridmx),zstd(ngridmx),
     s   zsig(ngridmx),zgam(ngridmx),zthe(ngridmx)

      REAL albedodat,inertiedat,phisfi,albedice,emisice,emissiv,
     s   iceradius , dtemisice
      real zmea,zstd,zsig,zgam,zthe