Hello,
in order to provide special initial conditions you should set the keyword:
INITIAL CONDITIONS ='SPECIAL'.
I don't know exactly why you need the corsui.f subroutine but in your case for a rectangular channel and if the initial water depth is depending only on the x-coordinate you could prescribe the water depth in condin.f as follows, where e.g. an x-ccordinate is 5.0 and the water surface level is 0.3m.
DO I=1,NPOIN
IF(X(I).LE.5.0D0) THEN
H%R(I) = 0.D0
ELSE
H%R(I) = 0.3D0-ZF%R(I)
ENDIF
END DO
By default, the velocity components U and V are zero anyway, see above in condin.f.
Hope this helps,
Clemens