А что такое "уровень морали а обществе"? Есть какая-то общепринятая шкала морали, есть возможность оценить мораль общества по этой шкале и как-то оказывать влияние на общество, чтобы мораль увеличивалась или уменьшалась?
Мораль и моральность - это изменчивое понятие. Еще сто лет назад аморально было белой девушке вступить в связь с чернокожим мужчиной.
Аморально было родить ребенка вне брака. Сейчас это уже устаревшие предрассудки. Значит ли это, что уровень морали в обществе повысился? Или понизился?
Я лично считаю, что мораль связана с эмпатией. Наличие эмпатии - биологическая норма для нашего вида. Мы склонны сопереживать другим людям. И для человека, психологически и социально адекватного, затруднительно причинять страдания другим таким же людям как и он. И только жизненный опыт (порожденный воспитанием, общесвтенным давлением, СМИ наконец) и позволяет лююдям избегать сопереживания и связанных с этим эмоций при совершении преступных деяний против других людей.
Для кого то этот опыт включает и веру в бессмертие души и посмертное наказание за грехи. А кому-то эта вера не нужна, они и так не хотят совершать всякое нехорошее, они не чувствуют себя благополучно, причиняя боль другим.
Еще раз - для человека естесвтенна эмпатия. Она мешает причинять страдания ему подобным. И чем больше других существ человек включает в свой круг себе подобных, чем к большим существам он проявляет эмпатию, тем более он морален (ИМХО).