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