Replace arguments u, v of procedure clcdrag by argument speed, preparing merge with procedure coefcdrag.