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