lecadc.f

Go to the documentation of this file.

!                       *****************
                        SUBROUTINE lecadc
!                       *****************
!
     &( x , y , zf , ikle , ngeo )
!
!***********************************************************************
! PROGICIEL : STBTEL V5.2         13/08/01    J-M HERVOUET  (LNH)
!
!***********************************************************************
!
!     FONCTION  :  LECTURE DU FICHIER DE LA GEOMETRIE CREE PAR ADCIRC
!
!-----------------------------------------------------------------------
!                             ARGUMENTS
! .________________.____.______________________________________________
! |      NOM       |MODE|                   ROLE
! |________________|____|______________________________________________
! |   X,Y          |<-- | COORDONNEES DU MAILLAGE .
! |   X1,Y1        |<-- | COORDONNEES DU MAILLAGE LUES EN SIMPLE
! |                |    | PRECISION DANS LE FICHIER SIMAIL
! |   IKLE         |<-- | LISTE DES POINTS DE CHAQUE ELEMENT
! |   TITRE        |<-- | TITRE DU MAILLAGE
! |________________|____|______________________________________________
! | COMMON:        |    |
! |  GEO:          |    |
! |    MESH        | -->| TYPE DES ELEMENTS DU MAILLAGE
! |    NDP         | -->| NOMBRE DE NOEUDS PAR ELEMENTS
! |    NPOIN       | -->| NOMBRE TOTAL DE NOEUDS DU MAILLAGE
! |    NELEM       | -->| NOMBRE TOTAL D'ELEMENTS DU MAILLAGE
! |    NPMAX       | -->| DIMENSION EFFECTIVE DES TABLEAUX X ET Y
! |                |    | (NPMAX = NPOIN + 0.1*NELEM)
! |    NELMAX      | -->| DIMENSION EFFECTIVE DES TABLEAUX CONCERNANT
! |                |    | LES ELEMENTS (NELMAX = NELEM + 0.2*NELEM)
! |  FICH:         |    |
! |    NRES        | -->| NUMERO DU CANAL DU FICHIER DE SERAFIN
! |    NGEO        | -->| NUMERO DU CANAL DU FICHIER MAILLEUR
! |    NLIM        | -->| NUMERO DU CANAL DU FICHIER DYNAM DE TELEMAC
! |    NFO1        |--> | NUMERO DU CANAL DU FICHIER TRIANGLE TRIGRID
! |________________|____|______________________________________________
! MODE : -->(DONNEE NON MODIFIEE), <--(RESULTAT), <-->(DONNEE MODIFIEE)
!----------------------------------------------------------------------
! APPELE PAR : STBTEL
! APPEL DE : -
!***********************************************************************
!
!    LISTE DES ENREGISTREMENTS DU FICHIER GEOMETRIQUE:
!             (DOCUMENTION: NOTICE SIMAIL)
!
!***********************************************************************
!
      USE declarations_special
      USE declarations_stbtel, ONLY: nelem,npoin,nelmax
!
      IMPLICIT NONE
!
      INTEGER, INTENT(IN) :: NGEO
      INTEGER, INTENT(INOUT) :: IKLE(nelmax,4)
      DOUBLE PRECISION, INTENT(INOUT) :: X(*) , Y(*),ZF(*)
!
      INTEGER I,J,IBID
!
!
!=======================================================================
!   INITIALISATION
!=======================================================================
!
!     REWIND NGEO
!
!
!=======================================================================
! LECTURE SEQUENTIELLE DES COORDONNEES
!=======================================================================
!
      DO i=1,npoin
        READ(ngeo,*) j,x(i),y(i),zf(i)
        IF(i.NE.j) THEN
          WRITE(lu,*) 'ERROR IN THE LIST OF COORDINATES LINE ',i
          CALL plante(1)
          stop
        ENDIF
      ENDDO
!
!=======================================================================
! LECTURE SEQUENTIELLE DU TABLEAU IKLE
!=======================================================================
!
      DO i=1,nelem
        READ(ngeo,*) j,ibid,ikle(i,1),ikle(i,2),ikle(i,3)
      ENDDO
!
!=======================================================================
!
      RETURN
      END