im = Import["http://i.stack.imgur.com/LF8lY.png"]
 imD = ImageData@im;
ListPlot3D[10*imD[[1]],
 ColorFunction -> "GreenBrownTerrain",
 MeshFunctions -> {#3 &},
 PlotRange -> All,
 Axes -> False,
 Filling -> Bottom,
 FillingStyle -> Brown,
 Mesh -> ControlActive[5, Automatic]
 ]