! ! $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 :: debug_surf=.FALSE. !$OMP THREADPRIVATE(debug_surf) LOGICAL, SAVE :: newwind=.FALSE. !$OMP THREADPRIVATE(newwind) 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