Commit b6f4abe3 authored by Knut's avatar Knut

bugfix - remove 0.25 in kondo's s0

parent 6f35e4ef
......@@ -278,7 +278,7 @@
cee_e = (ae_e+be_e*exp(pe_e*log(w+eps))+ce_e*(w-8.0)**2)*1.0e-3
! Stability - assume 10 meter wind
s0=0.25*(tw-ta)/(w+eps)**2
s0=(tw-ta)/(w+eps)**2
s=s0*abs(s0)/(abs(s0)+0.01)
if(s .lt. -3.3) then
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment