_RL rbcsForcingPeriod
& rbcsForcingPeriod,
nForcingPeriods = NINT(rbcsForcingCycle/rbcsForcingPeriod)
Ifprd = NINT(rbcsForcingPeriod*rdt)
rbcsForcingPeriod = 0. _d 0