Index error for EBOR%ADR(K) in bedload_main

In the subroutine BEDLOAD_MAIN at line 317 :

EBOR%ADR(K)%P is used in the loop : DO I = 1, NSICLA K=NUM_ICLA_ISAND(I)
…… In this case K is equal to ISAND. EBOR%ADR is declared and filled with NSICLA and not NSAND. (It was a problem, only if there is classes of mud, and if mud classes are declared before sand classes.)

So we have to replace EBOR%ADR(K)%P with EBOR%ADR(I)%P at line 317