_RL DIC_forcingCycle
& DIC_forcingPeriod, DIC_forcingCycle,
IF ( DIC_forcingCycle.gt.0. _d 0 ) THEN
I DIC_forcingCycle, DIC_forcingPeriod,
DIC_forcingCycle = externForcingCycle
CALL WRITE_0D_RL( DIC_forcingCycle,