rC4km = highFac(i,j)*(rCenter+ABS(rCenter))*mskM
& + rC4km
& - ( (rCenter+rUpwind) + rC4km )
& - rC4km
& + ( (rCenter+rUpwind) + rC4km )
_RL rC4km, rC4kp
rC4km = rC4km2D (i,j)
rC4km = oneSixth*rCenter*mskM
rC4km = rHigh * (rCenter+ABS(rCenter))*mskM
rC4km = oneSixth*(rCenter+ABS(rCenter))*mskM
_RL rC4km, rC4kp, rHigh