& CFC_forcingPeriod, CFC_forcingCycle
_RL CFC_forcingPeriod
nForcingPeriods = NINT(CFC_forcingCycle/CFC_forcingPeriod)
Ifprd = NINT(CFC_forcingPeriod*rdt)
CFC_forcingPeriod = externForcingPeriod