Hi,Laurent
Thanks for your usefull advice.
From bord3d.f
!
! PRESCRIBED ELEVATION GIVEN IN STEERING FILE (NCOTE<>0)
! OR IN BINARY BOUNDARY DATA FILE
! -------------------------------------------------------
!
IF(LIHBOR%I(K).EQ.KENT.AND.NCOTE.NE.0) THEN
!
IPOIN2 = NBOR2%I(K)
ICOT=NUMLIQ%I(K)
IF(STA_DIS_CURVES(ICOT).EQ.1) THEN
HBOR%R(K) = STA_DIS_CUR(ICOT,FLUX_BOUNDARIES(ICOT),
& PTS_CURVES(ICOT),QZ,NFRLIQ,
& ZF%R(IPOIN2)+H%R(IPOIN2))
& - ZF%R(IPOIN2)
HBOR%R(K) = MAX(0.D0,HBOR%R(K))
ELSEIF(NCOTE.GE.NUMLIQ%I(K)) THEN
N=IPOIN2
IF(NCSIZE.GT.1) N=MESH2D%KNOLG%I(N)
IF(READ_BIN_Z) THEN
! GET THE ELEVATION Z FROM THE LIQUID BOUNDARY BINARY FILE
IF(INFOGR.AND..NOT.DEJA) THEN
IF(LNG.EQ.1) WRITE(LU,*) 'COTES AUX FRONTIERES LUES DANS
& LE FICHIER BINAIRE'
IF(LNG.EQ.2) WRITE(LU,*) 'ELEVATION AT THE BOUNDARY READ
& IN THE BINARY FILE'
DEJA = .TRUE.
ENDIF
HBOR%R(K) = T3_01%R(N+(NPLAN-1)*NPOIN2)-ZF%R(IPOIN2)
ELSE
! GET THE ELEVATION Z FROM THE ASCII FILE
IF(INFOGR.AND..NOT.DEJA) THEN
IF(LNG.EQ.1) WRITE(LU,*) 'COTES AUX FRONTIERES LUES DANS
& LE FICHIER ASCII'
IF(LNG.EQ.2) WRITE(LU,*) 'ELEVATION AT THE BOUNDARY READ
& IN THE ASCII FILE'
DEJA = .TRUE.
ENDIF
HBOR%R(K) = SL3(ICOT,AT,N,INFOGR)-ZF%R(IPOIN2)
ENDIF
HBOR%R(K) = MAX(0.D0,HBOR%R(K))
From the code ,If i didn't set prescribing elevation and velocity, it won't use the elevation and velocity read from binary file,and the Thompson option "However it is important to note that, given the two-dimensional aspect, the Thompson method can only be used in the case of a zero velocity gradient imposed on the vertical (uniform velocity along the vertical)."(From manual of telemac 3d), as the manual said ,i think the Thompson method may not suitable for read case.
I think I should change some code in bord3d.f to make my real case run.
Regards,
liuy