In procedure clmain, no need for intermediary variables ykmm and ykmn. In module coefcdrag_m, remove unused procedures fsta and fins.