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