_RL DIC_forcingPeriod
& DIC_forcingPeriod, DIC_forcingCycle,
nForcingPeriods = NINT(DIC_forcingCycle/DIC_forcingPeriod)
Ifprd = NINT(DIC_forcingPeriod*rdt)
DIC_forcingPeriod = externForcingPeriod
CALL WRITE_0D_RL( DIC_forcingPeriod,