_RL rbcsForcingPeriod
& rbcsForcingPeriod,
Ifprd = NINT(rbcsForcingPeriod/deltaTrbcs)
IF (rbcsForcingPeriod.GT.0. _d 0) THEN
I rbcsForcingCycle, rbcsForcingPeriod,
rbcsForcingPeriod = 0. _d 0
IF (startTime.LT.rbcsForcingOffset+0.5*rbcsForcingPeriod .AND.