The TELEMAC-MASCARET system  trunk
iniadc.f
Go to the documentation of this file.
1 ! *****************
2  SUBROUTINE iniadc
3 ! *****************
4 !
5  &(npoin1,typele,nsfond,ihaut,ngeo,titre)
6 !
7 !***********************************************************************
8 ! PROGICIEL : STBTEL V5.2 13/08/01 J.M. HERVOUET 01 30 87 80 18
9 !***********************************************************************
10 !
11 ! FONCTION : RECHERCHE LES NOMBRES TOTAUX DE NOEUDS ET D'ELEMENTS DU
12 ! MAILLAGE DANS LE FICHIER D'ENTREE ADCIRC
13 !
14 !-----------------------------------------------------------------------
15 ! ARGUMENTS
16 ! .________________.____.______________________________________________
17 ! | NOM |MODE| ROLE
18 ! |________________|____|______________________________________________
19 ! | NPOIN1 |<-- | NOMBRE REEL DE POINTS DU MAILLAGE
20 ! | | | (NPOIN REPRESENTE L'INDICE MAX DES NOEUDS CAR
21 ! | | | SUPERTAB LAISSE DES TROUS DANS LA NUMEROTATION
22 ! | TYPELE |<-- | TYPE D'ELEMENTS
23 ! | IHAUT |<-- | NUMERO DE LA VARIABLE HAUTEUR D'EAU
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 : HOMERE
44 ! APPEL DE : -
45 !***********************************************************************
46 !
49  IMPLICIT NONE
50 !
51  INTEGER, INTENT(IN) :: NGEO
52  INTEGER, INTENT(INOUT) :: NPOIN1 , NSFOND
53  INTEGER, INTENT(INOUT) :: IHAUT
54 !
55  CHARACTER(LEN=80), INTENT(INOUT) :: TITRE
56  CHARACTER(LEN=11), INTENT(INOUT) :: TYPELE
57 !
58 ! COMMON
59 !
60 !
61 !=======================================================================
62 ! INITIALISATIONS
63 !=======================================================================
64 !
65  nsfond = 2
66  rewind ngeo
67 !
68 !=======================================================================
69 ! LECTURE SEQUENTIELLE DU FICHIER ET RECHERCHE ENREGISTREMENT 5
70 !=======================================================================
71 !
72  titre=' '
73  READ(ngeo,*) titre(1:24)
74  READ(ngeo,*) nelem,npoin
75  ihaut = 0
76  ndp = 3
77  npoin1= npoin
78  mesh = 3
79  typele = 'TRIANGLES '
80 !
81 !-----------------------------------------------------------------------
82 !
83  RETURN
84  END
subroutine iniadc(NPOIN1, TYPELE, NSFOND, IHAUT, NGEO, TITRE)
Definition: iniadc.f:7