data = Flatten[{#[[1, 1 ;; 2]], #[[2]]}] & /@ WeatherData["KTUL", "MeanTemperature", {{1950}, {2008}, "Month"}];
ListPlot3D[data, ColorFunction -> "ThermometerColors", Filling -> Bottom, FillingStyle -> LightPink, Mesh -> False, Boxed -> False]