The TELEMAC-MASCARET system  trunk
writesellim.f
Go to the documentation of this file.
1 ! *****************
2  SUBROUTINE writesellim
3 ! *****************
4 !
5  &(nlim,lihbor,liubor,livbor,hbor,ubor,vbor,
6  & chbord,nbor,npmax,nptfr)
7 !
8 !***********************************************************************
9 ! STBTEL
10 !***********************************************************************
11 !
12 !brief READS THE BOUNDARY CONDITIONS FILE AND
13 !+ STORES IN ARRAYS THE DATA READ.
14 !
15 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
16 !| NLIM |-->| LOGICAL UNIT OF BOUNDARY CONDITIONS FILE
17 !| LIHBOR |-->| TYPE OF BOUNDARY CONDITIONS ON DEPTH
18 !| LIUBOR |-->| TYPE OF BOUNDARY CONDITIONS ON U
19 !| LIVBOR |-->| TYPE OF BOUNDARY CONDITIONS ON V
20 !| HBOR |<--| PRESCRIBED BOUNDARY CONDITION ON DEPTH
21 !| UBOR |<--| PRESCRIBED BOUNDARY CONDITION ON VELOCITY U
22 !| VBOR |<--| PRESCRIBED BOUNDARY CONDITION ON VELOCITY V
23 !| CHBORD |<--| FRICTION COEFFICIENT AT BOUNDARY
24 !| NBORD |<--| BOUNDARY NUMBERING
25 !| NPTFR |-->| NUMBER OF BOUNDARY POINTS
26 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
27 !
30 !
31  IMPLICIT NONE
32 !
33 !
34 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
35 !
36  INTEGER, INTENT(IN) :: NLIM
37  INTEGER, INTENT(IN) :: NPTFR
38  INTEGER, INTENT(IN) :: NPMAX
39  INTEGER, INTENT(INOUT) :: LIUBOR(npmax),LIVBOR(npmax)
40  INTEGER, INTENT(INOUT) :: LIHBOR(npmax)
41  INTEGER, INTENT(INOUT) :: NBOR(npmax)
42  DOUBLE PRECISION, INTENT(INOUT) :: UBOR(npmax),VBOR(npmax)
43  DOUBLE PRECISION, INTENT(INOUT) :: HBOR(npmax),CHBORD(npmax)
44 !
45 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
46 !
47  INTEGER I, IERR
48  INTEGER, ALLOCATABLE :: NCOLOR(:)
49 
50  ALLOCATE(ncolor(nptfr))
51  DO i=1,nptfr
52  ncolor(i) = i
53  ENDDO
54 !
55  CALL set_bnd(out_format, nlim, typ_bnd_elem, nptfr, 1, nbor,
56  & nptfr, lihbor, liubor, livbor, hbor, ubor, vbor,
57  & chbord, lihbor, hbor, hbor, hbor, ncolor, ierr)
58  CALL check_call(ierr, 'WRITESELLIM:SET_BND')
59 
60  DEALLOCATE(ncolor)
61 !
62  END SUBROUTINE
character(len=8) out_format
subroutine set_bnd(FFORMAT, FID, TYPE_BND_ELT, NELEBD, NDP, IKLE, NPTFR, LIHBOR, LIUBOR, LIVBOR, HBOR, UBOR, VBOR, CHBORD, LITBOR, TBOR, ATBOR, BTBOR, COLOR, IERR)
Definition: set_bnd.f:9
subroutine writesellim(NLIM, LIHBOR, LIUBOR, LIVBOR, HBOR, UBOR, VBOR, CHBORD, NBOR, NPMAX, NPTFR)
Definition: writesellim.f:8