LOGICAL PTRACERS_useRecords
& PTRACERS_useRecords,
IF (PTRACERS_useRecords) THEN
PTRACERS_useRecords = .FALSE.
CALL WRITE_0D_L( PTRACERS_useRecords, INDEX_NONE,