Hello Sumit,
If I have understood, you only want to prescribe free surface for initial conditions, do you?
In that case, in CONDIN, as written in the header, you have to give H (see the example for 'CONSTANT ELEVATION' option). I would have written rather:
DO I1 = 1, NPOIN
H%R(I1) = 73.12D0 - ZF%R(I1) ! FREE SURFACE = ZF + H
IF (MESH%X%R(I1).GT.4453430D0) THEN
H%R(I1) = H%R(I1) - (MESH%X%R(I1) - 4453430D0)*SLP
ENDIF
ENDDO
I suppose that SLP is a slope defined by a double precision before?
Hope this helps,
Chi-Tuan