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