& rbcsForcingPeriod,
rbcsForcingPeriod=0.
_RL rbcsForcingPeriod
nForcingPeriods=int(rbcsForcingCycle/rbcsForcingPeriod+0.5)
Ifprd=int(rbcsForcingPeriod*rdt+0.5)