data = Reverse[Reverse /@ Partition[dem[[All, 1]], 121]];
ListContourPlot[GaussianFilter[data, 10],
Contours -> {1580, 1670, 1480, 1715}, ContourShading -> None,
ColorFunction -> "Pastel",
DataRange -> Transpose[dem[[{-1, 1}, {3, 2}]]]]
How to contour plot show value in graphic ? if value=1580 change 350 in show graphic.If value 1670 I want show this value show in picture 370. Thank you
ContourLabels
$\endgroup$