md_val for TSM

src/juobs_tools.jl

@@ -432,7 +432,7 @@ m_md1, m_md2 = md_val(m, corr_pp[1], derm[1])
 m_shifted = m + dm1 * m_md1 + dm2 * m_md2
 ```
 """
-function md_val(a::uwreal, obs::Corr, derm::Vector{Corr}; new_version::Bool=false)
+function md_val(a::uwreal, obs::Corr, derm::Vector{Corr}; new_version::Bool=false, TSM::Bool=false)
     nid = neid(a)
     if nid != 1
         error("Error: neid > 1")
@@ -471,6 +471,9 @@ function md_val(a::uwreal, obs::Corr, derm::Vector{Corr}; new_version::Bool=fals
         =#
         der = length(a.der) >= maximum(n_ow) ? a.der[n_ow] * w_mean : 0.0
     elseif all(count.(prop) .== 3)
+        if TSM == false
+            return nothing
+        else
             corr_der = getfield.(corr, :der)
             n = findall.(t-> t==1, prop)
             n = vcat(n'...)
@@ -492,6 +495,7 @@ function md_val(a::uwreal, obs::Corr, derm::Vector{Corr}; new_version::Bool=fals
                 error("w_mean with n_ow1 and with n_ow2 different")
             end
             der = length(a.der) >= maximum(n_ow1) && length(a.der) >= maximum(n_ow2) ? a.der[n_ow1] * w_mean : 0.0
+        end
     else
         return nothing
     end