timePhase(l) = UNSET_RL
IF ( timePhase(l).NE. UNSET_RL ) THEN
phase(n) = timePhase(l)
_RL frequency(ldimLoc), timePhase(ldimLoc)
& frequency, timePhase,