Hello,
Try the attached condin.f. In what you have written, you do not give the depth after giving the velocities, so I added it, plus a message indicating that we do go in the 'PARTICULAR' section. This gives, if for some reason the file is not attached:
C ZONE A MODIFIER
WRITE(LU,*) 'CONSTANT VELOCITIES GIVEN'
CALL OS('X=C ',X=U,C=0.05D0)
CALL OS('X=C ',X=V,C=0.02D0)
! copied from 'CONSTANT ELEVATION' section (I do not use COTINI but
! you can if you want)
CALL OS('X=C ',X=H,C=0.37D0)
CALL OS('X=X-Y ',X=H,Y=ZF)
C FIN DE LA ZONE A MODIFIER
That should do it,
With best regards,
Jean-Michel Hervouet