INTEGER, parameter :: nbsrf=4
      INTEGER, parameter :: is_oce=3 !ocean
      INTEGER, parameter :: is_sic = 4 ! glace de mer
      INTEGER, parameter :: is_ter = 1 ! terre
      INTEGER, parameter :: is_lic = 2 ! glacier continental
      REAL,parameter :: epsfra = 1.0E-05
!
      CHARACTER (len=3),dimension(nbsrf) :: clnsurf(nbsrf)
      DATA clnsurf/'ter', 'lic', 'oce', 'sic'/