_RL rbcsForcingCycle
& rbcsForcingCycle,
I rbcsForcingCycle, rbcsForcingPeriod,
rbcsForcingCycle = 0. _d 0
IF (rbcsForcingCycle.GT.0) THEN