pos = WeatherData["KP60", "Coordinates"]

g = GeoGraphics[{PointSize[Large], Darker@Red, Point[pos]}]

{range, projection} = {GeoRange, GeoProjection} /. Options[g, {GeoRange, GeoProjection}]

{a, b, d, c} = Tuples[Reverse@range]

GeoGraphics[{{GeoStyling["ContourMap", ContourShading -> None,  ContourLabels -> True], Polygon[{a, b, c, d}]}, {PointSize@Large, Darker@Red, Point[pos]}}, GeoRange -> range]