& DIC_forcingPeriod, DIC_forcingCycle,
_RL DIC_forcingPeriod
I DIC_forcingCycle, DIC_forcingPeriod,
DIC_forcingPeriod = externForcingPeriod
CALL WRITE_0D_RL( DIC_forcingPeriod,