feat: ignore inner/outer scale for kolmogorov PSD etc.

src/newtypes.jl

@@ -91,7 +91,17 @@ struct TurbulentChannel{T}
     L0::T # outer scale of turbulence
     model::Function # power spectrum of phase fluctuations, e.g., Kolmogorov, Karman, ...
 
-    TurbulentChannel{T}(Cn²=1e-14, l0=1e-2, L0=1e2, model=andrews) where {T} = new{T}(Cn², l0, L0, model)
+    TurbulentChannel{T}(Cn²=1e-14, l0=1e-2, L0=1e2, model=andrews) where {T} = begin
+        if model === kolmogorov
+            l0 = 0
+            L0 = Inf
+        elseif model === karman
+            l0 = 0
+        elseif model === tatarskii
+            L0 = Inf
+        end
+        new{T}(Cn², l0, L0, model)
+    end
 end
 TurbulentChannel(args...) = TurbulentChannel{Float64}(args...)