& CMAX, cvelTimeScale, CFIX, useFixedCEast, useFixedCWest
CMAX = 0.45 _d 0 /* maximum allowable phase speed-CFL for AB-II */
ELSEIF (CL.gt.CMAX) THEN
CL=CMAX