Hello Amanj,
Your case is quite easy to implement. noerod.f by default sets the non-erodible bed elevation as 100m below bottom level:
! DEFAULT VALUE: ZR=ZF-100.D0
!
CALL OV('X=Y+C ',ZR,ZF,ZF,-100.D0,NPOIN)
You want to set the non-erodible bed at absolute level 0m, so you could make the following modification:
CALL OV('X=C ',ZR,ZF,ZF,0.D0,NPOIN)
You can find more details about subroutine OV in the "telemac guide for programming".
Edit:
I noticed that your leeward side is lower than 0, so you need to add an IF statement to set a different non-erodible bed level after the dam (e.g. when X>500).
Best Regards,
Costas