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