(in-package :clf)

;; физика

;;(defparameter *Cg* (sqrt (* *kappa* *Ro* *T*))) ;; sos = 340.0
(defparameter *Cg* 340.0)
(defparameter *sos* *Cg*) ; для совместимости со старым кодом
(defparameter *rl* 800.0) ; kg/m^3
(defparameter *kappa* 1.4)
(defparameter *Ro* 287.065476372)
(defparameter *T* (/ (* *Cg* *Cg*)
		     (* *Ro* *kappa*)))
(defparameter *sigma* 0) ;; добавочное давление

;; конфигурация программы

(defparameter *number-of-primitive-variables* 4)
;;(defparameter *format-variables* (string-join (loop repeat *number-of-primitive-variables* collect "~d")))
(defparameter *format-variables* "~d ~d ~d ~d")

(defparameter *number-of-conservative-variables* 4)

(defparameter *newton-max-iter* 50)
(defparameter *newton-est-error* 1.0d-8)

(defparameter *multi-root-iter* 10)
(defparameter *multi-root-est-error* 1.0d-8)

(defparameter *constant-timestep* .5d-8)
(defparameter *timestep-multiplier* 1.0d-4)

(defparameter *source-timestep-multiplier* 0.2d0)

(defparameter *minmod-coef* 1.5) ;; must be 1<=x<=2

(defparameter *debug-level* 0)

(defparameter *debug-shots* nil)

(defparameter *debug-newton* nil)
(defparameter *debug-grids-in-make-step* nil)
(defparameter *debug-radius* nil)

(defparameter *debug-messages* nil)
(defparameter *debug-predictor/corrector* nil)
(defparameter *debug-pseudo-vel* nil)


(defparameter *enable-breaks* nil)