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