& externForcingCycle, externForcingPeriod,
_RL externForcingCycle
gchem_ForcingCycle=externForcingCycle
nForcingPeriods = NINT(externForcingCycle/externForcingPeriod)
Ifcyc = NINT(externForcingCycle*rdt)
CALL WRITE_0D_RL( externForcingCycle, INDEX_NONE,
Imytm = Imytm + Ifcyc*( 1 - NINT(myTime/externForcingCycle) )
& periodicExternalForcing, externForcingPeriod, externForcingCycle,
IF ( externForcingCycle*externForcingPeriod .EQ. 0. ) THEN
IF ( INT(externForcingCycle/externForcingPeriod) .NE.
& externForcingCycle/externForcingPeriod ) THEN
IF ( externForcingCycle.lt.externForcingPeriod ) THEN
externForcingCycle = 0.
CFC_forcingCycle = externForcingCycle
& int(externForcingCycle/externForcingPeriod+0.5)
Ifcyc=int(externForcingCycle*rdt+0.5)
& DIFFERENT_MULTIPLE(externForcingCycle,myTime,deltaTClock)
nForcingPeriods=int(externForcingCycle/externForcingPeriod+0.5)
DIC_forcingCycle = externForcingCycle