Remove local variable cdrag, which contained only 0, in procedure cltrac. (It still contains only 0 in LMDZ).