IF (usePTRACERS) CALL PACKAGES_CHECK_ERROR('PTRACERS', myThid)
IF ( usePTRACERS ) THEN
IF (usePTRACERS) CALL PTRACERS_INITIALISE(mythid)
IF (usePTRACERS)
& .AND. ( saltStepping .OR. tempStepping .OR. usePTRACERS )
IF ( useMATRIX .AND. .NOT.usePTRACERS ) THEN
usePTRACERS=.FALSE.
& usePTRACERS,
IF ( usePTRACERS )
IF (usePTRACERS) THEN
IF (usePTRACERS) CALL PTRACERS_READPARMS( myThid )
& .AND. usePTRACERS ) THEN
LOGICAL usePTRACERS
& usePTRACERS, useGCHEM,
IF (usePTRACERS) CALL PTRACERS_WRITE_STATE(myIter,myTime,myThid)
IF ( .NOT.usePTRACERS) THEN