& int(externForcingCycle/externForcingPeriod+0.5)
Ifprd=int(externForcingPeriod*rdt+0.5)
nForcingPeriods=int(externForcingCycle/externForcingPeriod+0.5)
Ifprd = NINT(externForcingPeriod*rdt)
nForcingPeriods = NINT(externForcingCycle/externForcingPeriod)
CALL WRITE_0D_R8( externForcingPeriod, INDEX_NONE,
nForcingPeriods=int(externForcingCycle/externForcingPeriod)
Ifprd=int(externForcingPeriod*rdt)
aWght=mod(myTime/externForcingPeriod,1. _d 0)
& periodicExternalForcing, externForcingPeriod, externForcingCycle,
IF ( externForcingCycle*externForcingPeriod .EQ. 0. ) THEN
IF ( INT(externForcingCycle/externForcingPeriod) .NE.
& externForcingCycle/externForcingPeriod ) THEN
IF ( externForcingCycle.lt.externForcingPeriod ) THEN
IF ( externForcingPeriod.lt.deltaTclock ) THEN
& externForcingCycle, externForcingPeriod,
_RL externForcingPeriod
externForcingPeriod = 0.