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