!-----------------------------------------------------------------------
!
      RETURN
      END
!                    *********************
                     SUBROUTINE INIT_COMPO
!                    *********************
!
     &(NCOUCHES)
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!| NCOUCHES       |-->| NUMBER OF LAYER FOR EACH POINT
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
      USE BIEF
      USE DECLARATIONS_TELEMAC
      USE DECLARATIONS_SISYPHE
      USE DECLARATIONS_SPECIAL
      IMPLICIT NONE


!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
!                                       NPOIN
      INTEGER, INTENT (INOUT)::NCOUCHES(*)
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
      INTEGER I , J
      DOUBLE PRECISION EPAI,HEIGHT


!
!-----------------------------------------------------------------------
!


	DO J=1,NPOIN
	NCOUCHES(J)=1
		IF(PRIVE%ADR(1)%P%R(J).EQ.1.D0) THEN
		AVAIL(J,1,1)=1.D0
		AVAIL(J,1,2)=0.D0
		ELSEIF(PRIVE%ADR(1)%P%R(J).EQ.2.D0) THEN
		AVAIL(J,1,1)=0.D0
		AVAIL(J,1,2)=1.D0
		ELSE
		AVAIL(J,1,1)=0.5D0
		AVAIL(J,1,2)=0.5D0
		ENDIF
	ENDDO

!
!-----------------------------------------------------------------------
!
      ! USER FUNCTION
      CALL USER_INIT_COMPO(NCOUCHES)
!
!-----------------------------------------------------------------------
!
!     CHECKING THE CONSISTENCY OF DATA
!     THE FORMULA USED HERE ZR+SED. HEIGHT = ZF CAN BE USED TO GIVE THE
!     HEIGHT OF THE LAST LAYER.
!
      DO J=1,MESH%NPOIN
        EPAI=0.D0
        DO I=1,NCOUCHES(J)
          EPAI=EPAI+ES(J,I)
        ENDDO
        IF(ABS(ZR%R(J)+EPAI-ZF%R(J)).GT.1.D-6) THEN
          WRITE(LU,*) 'INIT_COMPO, ERROR:'
          WRITE(LU,*) 'ZR+SEDIMENT HEIGHT=',ZR%R(J)+EPAI
          WRITE(LU,*) 'ZF=',ZF%R(J),' ZR=',ZR%R(J),
     &                ' SEDIMENT HEIGHT=',EPAI
          WRITE(LU,*) 'AT POINT ',J
          CALL PLANTE(1)
          STOP
        ENDIF
      ENDDO
!
!-----------------------------------------------------------------------
!
      RETURN
      END