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


(defn lat-hi-phase-shift
  [lat-max lat-hi]
  (int
    (- lat-max
       1
       (Math/ceil (/ (* (dec lat-max)
                        (- lat-hi default-lat-lo))
                     (- default-lat-hi default-lat-lo))))))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;   Core Functions   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(defn lat-lo-phase-shift
  [lat-max lat-lo]
  (log/debug "Got lat-max:" lat-max)
  (int
    (- lat-max
       1
