& rbcsForcingCycle
rbcsForcingCycle=0.
_RL rbcsForcingCycle
& rbcsForcingCycle,
if (rbcsForcingCycle.gt.0.d0) then
nForcingPeriods=int(rbcsForcingCycle/rbcsForcingPeriod+0.5)
Ifcyc=int(rbcsForcingCycle*rdt+0.5)