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


(def default-dim-stride 1)
(def default-lat-lon-stride 1)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;   Records   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


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