& CFC_forcingPeriod, CFC_forcingCycle
_RL CFC_forcingCycle
IF ( CFC_forcingCycle .GT. 0. _d 0 ) THEN
nForcingPeriods = NINT(CFC_forcingCycle/CFC_forcingPeriod)
Ifcyc = NINT(CFC_forcingCycle*rdt)
CFC_forcingCycle = externForcingCycle