   [entry]
   (->> (get-in entry [:umm :Dimensions])
        (map #(vector (keyword (:Name %)) (:Size %)))
-       (into (array-map))))
+       (into (array-map))
+       normalize-lat-lon))
 
 (defn parse-annotated-bounds
   "Parse bounds that are annotated with Lat and Lon, returning values

  ([bounding-box]
   (create-opendap-bounds {:Longitude default-lon-abs-hi
                           :Latitude default-lat-abs-hi} bounding-box))
  ([{lon-max :Longitude lat-max :Latitude :as _dimensions}
    [lon-lo lat-lo lon-hi lat-hi :as bounding-box]]
   (when bounding-box
     (let [lon-lo (lon-lo-phase-shift lon-max lon-lo)
           lon-hi (lon-hi-phase-shift lon-max lon-hi)


(defn lon-lo-phase-shift
  [lon-max lon-lo]
  (log/debug "Got lon-max:" lon-max)
  (-> (/ (* (dec lon-max)
            (- lon-lo default-lon-lo))
         (- default-lon-hi default-lon-lo))
