Hello Laurent,
I am working with 3 boundaries, with variable initial free surface elevation. I have set "initial conditions: particular" and I am attempting to modify CONDIM.f. Please see if the modification (attached) is appropriate. Also, is the condim file setting the water depth or free surface elevation.
Free surface |Water depth (FreeSurface - bottom)
Boundary 1: 5.97 m |1.62 m
Boundary 2: 13.16 m |-3.15 m
Boundary 3: 6.28 m |2.05 m
*****************
USER INPUT :
CALL OS('X=C ' ,X=H,C=4.35D0)
CALL OS('X=C ' ,X=H,C=16.31D0)
CALL OS('X=C ' ,X=H,C=4.23D0)
IF(LNG.EQ.1) WRITE(LU,10)
IF(LNG.EQ.2) WRITE(LU,11)
10 FORMAT(1X,'CONDIM : AVEC DES CONDITIONS INITIALES PARTICULIERES'
& ,/,1X,' VOUS DEVEZ MODIFIER CONDIM')
11 FORMAT(1X,'CONDIM : WITH SPECIAL INITIAL CONDITIONS'
& ,/,1X,' YOU HAVE TO MODIFY CONDIM')
CALL PLANTE(1)
STOP
! END OF SPECIAL INITIAL CONDITIONS
! END OF USER INPUT
*****************
Regards,
Chijioke.