how to make player take damage in water

procedure damage_in_water:

On player tick:

if block at (x) (y) (z) is (WATER):

>deal damage to entity (entity) amount:[choose here] type:[choose a type here]

else if block at (x) (y) (z) is F(LOWING_WATER):

>deal damage to entity (entity) amount:[choose here] type:[choose a type here]

comment:if you want to deal damage if only head is in water add everything below otherwise don't

else:

comment:if you want to deal double damage if both feet and head is in water remove the "else"(but not "execute procedure)

>execute procedure (damage_in_water_2) at (x) (y+1) (z)

comment:copy prcedure as damage_in_water_2 and remove the "execute procedure" and "else" statements

EDIT:damage_in_water_2 should have NO TRIGGERS(change "on player tick" to "no additional triggers")