user_borh.f

Go to the documentation of this file.

!                   ********************
                    SUBROUTINE user_borh
!                   ********************
!
!
!***********************************************************************
! ARTEMIS
!***********************************************************************
!
!brief    TAKES INTO ACCOUNT USER-SPECIFIED BOUNDARY CONDITIONS.
!+        THEY ARE GIVEN BY SEGMENT.
!
!history  J-M HERVOUET (LNH)
!+
!+
!
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
      USE bief
      USE declarations_telemac
      USE declarations_artemis
!
      USE declarations_special
      IMPLICIT NONE
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
!
!-----------------------------------------------------------------------
!
! ALL ANGLES ARE IN  DEGREES
!                    -------
! ---------------------------------------
! EXAMPLE
! ---------------------------------------
!
!      DO I=1,NPTFR
!        JB=BOUNDARY_COLOUR%I(I)
!!       SOLID BOUNDARY
!        IF(JB.GE.2.AND.JB.LE.139)THEN
!          RP%R(I) = 1.D0
!          TETAP%R(I) = 90.D0
!          ALFAP%R(I) = 0.D0
!        ENDIF
!      ENDDO
!
!-----------------------------------------------------------------------
!
      RETURN
      END