IF (nIter0.GT.PTRACERS_Iter0) THEN
IF (nIter0.EQ.PTRACERS_Iter0) THEN
CALL WRITE_0D_I( PTRACERS_Iter0, INDEX_NONE,
& PTRACERS_Iter0,
PTRACERS_Iter0 = 0
INTEGER PTRACERS_Iter0
myYear=float(myIter-PTRACERS_Iter0)*deltaTclock