The TELEMAC-MASCARET system  trunk
lecadc.f
Go to the documentation of this file.
1 ! *****************
2  SUBROUTINE lecadc
3 ! *****************
4 !
5  &( x , y , zf , ikle , ngeo )
6 !
7 !***********************************************************************
8 ! PROGICIEL : STBTEL V5.2 13/08/01 J-M HERVOUET (LNH)
9 !
10 !***********************************************************************
11 !
12 ! FONCTION : LECTURE DU FICHIER DE LA GEOMETRIE CREE PAR ADCIRC
13 !
14 !-----------------------------------------------------------------------
15 ! ARGUMENTS
16 ! .________________.____.______________________________________________
17 ! | NOM |MODE| ROLE
18 ! |________________|____|______________________________________________
19 ! | X,Y |<-- | COORDONNEES DU MAILLAGE .
20 ! | X1,Y1 |<-- | COORDONNEES DU MAILLAGE LUES EN SIMPLE
21 ! | | | PRECISION DANS LE FICHIER SIMAIL
22 ! | IKLE |<-- | LISTE DES POINTS DE CHAQUE ELEMENT
23 ! | TITRE |<-- | TITRE DU MAILLAGE
24 ! |________________|____|______________________________________________
25 ! | COMMON: | |
26 ! | GEO: | |
27 ! | MESH | -->| TYPE DES ELEMENTS DU MAILLAGE
28 ! | NDP | -->| NOMBRE DE NOEUDS PAR ELEMENTS
29 ! | NPOIN | -->| NOMBRE TOTAL DE NOEUDS DU MAILLAGE
30 ! | NELEM | -->| NOMBRE TOTAL D'ELEMENTS DU MAILLAGE
31 ! | NPMAX | -->| DIMENSION EFFECTIVE DES TABLEAUX X ET Y
32 ! | | | (NPMAX = NPOIN + 0.1*NELEM)
33 ! | NELMAX | -->| DIMENSION EFFECTIVE DES TABLEAUX CONCERNANT
34 ! | | | LES ELEMENTS (NELMAX = NELEM + 0.2*NELEM)
35 ! | FICH: | |
36 ! | NRES | -->| NUMERO DU CANAL DU FICHIER DE SERAFIN
37 ! | NGEO | -->| NUMERO DU CANAL DU FICHIER MAILLEUR
38 ! | NLIM | -->| NUMERO DU CANAL DU FICHIER DYNAM DE TELEMAC
39 ! | NFO1 |--> | NUMERO DU CANAL DU FICHIER TRIANGLE TRIGRID
40 ! |________________|____|______________________________________________
41 ! MODE : -->(DONNEE NON MODIFIEE), <--(RESULTAT), <-->(DONNEE MODIFIEE)
42 !----------------------------------------------------------------------
43 ! APPELE PAR : STBTEL
44 ! APPEL DE : -
45 !***********************************************************************
46 !
47 ! LISTE DES ENREGISTREMENTS DU FICHIER GEOMETRIQUE:
48 ! (DOCUMENTION: NOTICE SIMAIL)
49 !
50 !***********************************************************************
51 !
54 !
55  IMPLICIT NONE
56 !
57  INTEGER, INTENT(IN) :: NGEO
58  INTEGER, INTENT(INOUT) :: IKLE(nelmax,4)
59  DOUBLE PRECISION, INTENT(INOUT) :: X(*) , Y(*),ZF(*)
60 !
61  INTEGER I,J,IBID
62 !
63 !
64 !=======================================================================
65 ! INITIALISATION
66 !=======================================================================
67 !
68 ! REWIND NGEO
69 !
70 !
71 !=======================================================================
72 ! LECTURE SEQUENTIELLE DES COORDONNEES
73 !=======================================================================
74 !
75  DO i=1,npoin
76  READ(ngeo,*) j,x(i),y(i),zf(i)
77  IF(i.NE.j) THEN
78  WRITE(lu,*) 'ERROR IN THE LIST OF COORDINATES LINE ',i
79  CALL plante(1)
80  stop
81  ENDIF
82  ENDDO
83 !
84 !=======================================================================
85 ! LECTURE SEQUENTIELLE DU TABLEAU IKLE
86 !=======================================================================
87 !
88  DO i=1,nelem
89  READ(ngeo,*) j,ibid,ikle(i,1),ikle(i,2),ikle(i,3)
90  ENDDO
91 !
92 !=======================================================================
93 !
94  RETURN
95  END
subroutine lecadc(X, Y, ZF, IKLE, NGEO)
Definition: lecadc.f:7