IF ( nIter0.EQ.PTRACERS_Iter0 ) THEN
IF ( nIter0.EQ.PTRACERS_Iter0 .AND. useOBCSprescribe ) THEN
IF (nIter0.GT.PTRACERS_Iter0) THEN
INTEGER PTRACERS_Iter0
& PTRACERS_Iter0,
PTRACERS_startAB(iTracer) = nIter0 - PTRACERS_Iter0
IF ( nIter0.GT.PTRACERS_Iter0 .OR.
& (nIter0.EQ.PTRACERS_Iter0 .AND. pickupSuff.NE.' ')
IF (nIter0.EQ.PTRACERS_Iter0) THEN
PTRACERS_Iter0 = 0
CALL WRITE_0D_I( PTRACERS_Iter0, INDEX_NONE,
myYear=float(myIter-PTRACERS_Iter0)*deltaTclock