 
 (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))

  [entry]
  (->> (get-in entry [:umm :Dimensions])
       (map #(vector (keyword (:Name %)) (:Size %)))
       (into (array-map))))

(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]]
   (log/debug "Got dimensions:" dimensions)
   (when bounding-box
     (let [lon-lo (lon-lo-phase-shift lon-max lon-lo)
           lon-hi (lon-hi-phase-shift lon-max lon-hi)
