!
! $Header$
!
MODULE surface_data

  USE dimphy, ONLY : klon

  REAL, PARAMETER        :: calice=1.0/(5.1444e+06*0.15)
  REAL, PARAMETER        :: tau_gl=86400.*5.
  REAL, PARAMETER        :: calsno=1./(2.3867e+06*.15)
  
  LOGICAL, SAVE          :: ok_veget       ! true for use of vegetation model ORCHIDEE
  !$OMP THREADPRIVATE(ok_veget)
  CHARACTER(len=6), SAVE :: ocean          ! force/slab/couple
  !$OMP THREADPRIVATE(ocean)

END MODULE surface_data
