INTEGER nbsrf
      PARAMETER (nbsrf=4) ! nombre de sous-fractions pour une maille
c
      INTEGER is_oce
      PARAMETER (is_oce=1) ! ocean
      INTEGER is_sic
      PARAMETER (is_sic=2) ! glace de mer
      INTEGER is_ter
      PARAMETER (is_ter=3) ! terre
      INTEGER is_lic
      PARAMETER (is_lic=4) ! glacier continental
c
      REAL epsfra
      PARAMETER (epsfra=1.0E-05)