cplTimeFraction = 1. _d 0 / DFLOAT(cplSendFrq_iter)
& cplSendFrq_iter,
INTEGER cplSendFrq_iter
IF ( MOD(myIter,cplSendFrq_iter).EQ.0 ) THEN
IF ( MOD( nTimeSteps, cplSendFrq_iter ).NE.0 ) THEN
tmpFld(1) = nTimeSteps/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 =',