An oceanographic research database uses the following algorithm to sort marine biodiversity logs:

# surveyLog has the format [speciesCode, commonName, observationDepth]

PROCEDURE sortSurveyData()
    SET temp TO []
    SET n TO LENGTH(surveyLog)
    FOR i FROM 0 TO n - 1 DO
        FOR j FROM 0 TO n - i - 2 DO
            IF surveyLog[j, 2] < surveyLog[j + 1, 2] THEN
                SET temp TO surveyLog[j]
                SET surveyLog[j] TO surveyLog[j + 1]
                SET surveyLog[j + 1] TO temp
            END IF
        END FOR
    END FOR
END PROCEDURE