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