iniadc.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\stbtel\iniadc.f
00002 !
00021                         SUBROUTINE INIADC
00022 !                       *****************
00023 !
00024      &(NPOIN1,TYPELE,NSFOND,IHAUT,NGEO,TITRE)
00025 !
00026 !***********************************************************************
00027 ! PROGICIEL : STBTEL  V5.2      13/08/01    J.M. HERVOUET 01 30 87 80 18
00028 !***********************************************************************
00029 !
00030 !   FONCTION  : RECHERCHE LES NOMBRES TOTAUX DE NOEUDS ET D'ELEMENTS DU
00031 !               MAILLAGE DANS LE FICHIER D'ENTREE ADCIRC
00032 !
00033 !-----------------------------------------------------------------------
00034 !                             ARGUMENTS
00035 ! .________________.____.______________________________________________
00036 ! |      NOM       |MODE|                   ROLE
00037 ! |________________|____|______________________________________________
00038 ! | NPOIN1         |<-- | NOMBRE REEL DE POINTS DU MAILLAGE
00039 ! |                |    | (NPOIN REPRESENTE L'INDICE MAX DES NOEUDS CAR
00040 ! |                |    | SUPERTAB LAISSE DES TROUS DANS LA NUMEROTATION
00041 ! | TYPELE         |<-- | TYPE D'ELEMENTS
00042 ! | IHAUT          |<-- | NUMERO DE LA VARIABLE HAUTEUR D'EAU
00043 ! |________________|____|______________________________________________
00044 ! | COMMON:        |    |
00045 ! |  GEO:          |    |
00046 ! |    MESH        |<-- | TYPE DES ELEMENTS DU MAILLAGE
00047 ! |    NDP         | -->| NOMBRE DE NOEUDS PAR ELEMENTS
00048 ! |    NPOIN       |<-- | NOMBRE TOTAL DE NOEUDS DU MAILLAGE
00049 ! |    NELEM       |<-- | NOMBRE TOTAL D'ELEMENTS DU MAILLAGE
00050 ! |    NPMAX       | -->| DIMENSION EFFECTIVE DES TABLEAUX X ET Y
00051 ! |                |    | (NPMAX = NPOIN + 0.1*NELEM)
00052 ! |    NELMAX      | -->| DIMENSION EFFECTIVE DES TABLEAUX CONCERNANT
00053 ! |                |    | LES ELEMENTS (NELMAX = NELEM + 0.2*NELEM)
00054 ! |  FICH:         |    |
00055 ! |    NRES        |--> | NUMERO DU CANAL DU FICHIER DE SERAFIN
00056 ! |    NGEO        |--> | NUMERO DU CANAL DU FICHIER MAILLEUR
00057 ! |    NLIM        |--> | NUMERO DU CANAL DU FICHIER DYNAM DE TELEMAC
00058 ! |    NFO1        |--> | NUMERO DU CANAL DU FICHIER TRIANGLE TRIGRID
00059 ! |________________|____|______________________________________________
00060 ! MODE : -->(DONNEE NON MODIFIEE), <--(RESULTAT), <-->(DONNEE MODIFIEE)
00061 !-----------------------------------------------------------------------
00062 ! APPELE PAR : HOMERE
00063 ! APPEL DE : -
00064 !***********************************************************************
00065 !
00066       IMPLICIT NONE
00067       INTEGER LNG,LU
00068       COMMON/INFO/LNG,LU
00069 !
00070       INTEGER NGEO
00071       INTEGER MESH , NDP , NPOIN , NELEM , NPMAX , NELMAX
00072       INTEGER NPOIN1 , NSFOND
00073       INTEGER IHAUT
00074 !
00075       CHARACTER*80 TITRE
00076       CHARACTER*11 TYPELE
00077 !
00078 ! COMMON
00079 !
00080       COMMON/GEO/ MESH , NDP , NPOIN , NELEM , NPMAX , NELMAX
00081 !
00082 !=======================================================================
00083 ! INITIALISATIONS
00084 !=======================================================================
00085 !
00086       NSFOND = 2
00087       REWIND NGEO
00088 !
00089 !=======================================================================
00090 ! LECTURE SEQUENTIELLE DU FICHIER ET RECHERCHE ENREGISTREMENT 5
00091 !=======================================================================
00092 !
00093       TITRE=' '
00094       READ(NGEO,*) TITRE(1:24)
00095       READ(NGEO,*) NELEM,NPOIN
00096       IHAUT = 0
00097       NDP   = 3
00098       NPOIN1= NPOIN
00099       MESH = 3
00100       TYPELE = 'TRIANGLES  '
00101 !
00102 !-----------------------------------------------------------------------
00103 !
00104       RETURN
00105       END

Generated on Fri Aug 31 2013 18:12:58 by S.E.Bourban (HRW) using doxygen 1.7.0