SUBROUTINE PTRACERS_WRITE_PICKUP( permCheckPoint,
LOGICAL permCheckPoint
IF ( permCheckPoint ) THEN
I permCheckPoint,
LOGICAL permCheckPoint, tempCheckPoint
permCheckPoint = .FALSE.
permCheckPoint=
U permCheckPoint,
& ( .NOT.modelEnd .AND. (permCheckPoint.OR.tempCheckPoint) )
& ( modelEnd .AND. .NOT.(permCheckPoint.OR.tempCheckPoint) )
& permCheckPoint, myTime, myIter, myThid )