IF ( (myIter/cplSendFrq_iter)*cplSendFrq_iter .EQ. myIter ) THEN
cplTimeFraction = 1. _d 0 / DFLOAT(cplSendFrq_iter)
& cplSendFrq_iter
INTEGER cplSendFrq_iter
cplSendFrq_iter = NINT( cpl_atmSendFrq / deltaTClock )
IF ( cplSendFrq_iter .LT. 1) cplSendFrq_iter = 1
CALL WRITE_0D_I( cplSendFrq_iter, INDEX_NONE,'cplSendFrq_iter =',