_RL DIC_forcingCycle
& DIC_forcingPeriod, DIC_forcingCycle,
IF ( DIC_forcingCycle.gt.0. _d 0 ) THEN
nForcingPeriods = NINT(DIC_forcingCycle/DIC_forcingPeriod)
Ifcyc = NINT(DIC_forcingCycle*rdt)
DIC_forcingCycle = externForcingCycle
CALL WRITE_0D_RL( DIC_forcingCycle,