CALL PTRACERS_WRITE_CHECKPOINT(fn,myIter,myTime,myThid)
SUBROUTINE PTRACERS_WRITE_CHECKPOINT( suff,myIter,myTime,myThid )