In procedure clqh, tq_cdrag from local variable to dummy argument, and recieve only eddy diffusion coefficient in dummy argument coef.
trunk/Sources/phylmd/clmain.f
trunk/Sources/phylmd/clqh.f