declarations_postel3d.f

Go to the documentation of this file.

!                     ******************************
                      MODULE declarations_postel3d
!                     ******************************
!
!***********************************************************************
!  POSTEL3D VERSION 6.0
!***********************************************************************
!=======================================================================
! Telemac-3D best version number
! fortran95 version         march 1999        Jacek A. Jankowski pinxit
!=======================================================================
!
!  declaration of the global data structure in Telemac-3D
!
      USE bief_def
!
!       note: this module is organised in 10 parts
!
!       (1) vectors (will be declared as bief_obj structures)
!       (2) matrices (will be declared as bief_obj structures)
!       (3) blocks (will be declared as bief_obj structures)
!       (4) integers
!       (5) logical values
!       (6) reals
!       (7) strings
!       (8) slvcfg structures
!       (9) mesh structure
!      (10) aliases
!
!-----------------------------------------------------------------------
! (1) vectors (real and integer)
!-----------------------------------------------------------------------
!
! 3D velocity components
!
      TYPE(bief_obj), TARGET :: u, v, w
!
!-----------------------------------------------------------------------
! (2) matrices
!-----------------------------------------------------------------------
! none
!-----------------------------------------------------------------------
! (3) blocks
!-----------------------------------------------------------------------
!
!
      TYPE(bief_obj), TARGET :: tab
!
!
! 2D output compatibility - output variables organised in blocks
!th pour bientot, avec le nouveau format
!th        type(bief_obj), target :: varsor, varcl
!
!-----------------------------------------------------------------------
! (4) integers
!-----------------------------------------------------------------------
! key words and parameters
!
!       maximum de variables de sortie
      INTEGER, PARAMETER :: maxvar = 100
!
! previous common mitint: integer steering parameters
!
      INTEGER nplan  , ntrac  , ntrpa , nvar(2), nva3
      INTEGER nr3d , nenre
!
      INTEGER ielm3, ielm2h, ielm2v
      INTEGER ielm0, ielmh, ielmu, ielm1, ielmx
      INTEGER sorg3d
      INTEGER im,jm,nplint
      INTEGER nuprso,pesogr,nc2dh,nc2dv
      INTEGER nplref(9),nseg(9)
!
!      nombre max de coupes
      INTEGER, PARAMETER :: maxcou = 9
!      nombre max de points pour les coupes verticales
      INTEGER, PARAMETER :: maxpts = 50

!
!-----------------------------------------------------------------------
! (5) logical values
!-----------------------------------------------------------------------
!
      LOGICAL sigmag
      LOGICAL spheri
      LOGICAL varsub
!
!-----------------------------------------------------------------------
! (6) reals
!-----------------------------------------------------------------------
!
! previous common mitrea, real steering parameters plus new ones
!
      DOUBLE PRECISION hmin,  cotint
!
!th  a voir si on met le parametre
!th  en dur pour l'instant
!      double precision href(maxcou),distor(maxcou)
!      double precision x2dv(maxpts,maxcou),y2dv(maxpts,maxcou)
      DOUBLE PRECISION href(9),distor(9)
!th      double precision zstar(5)
      DOUBLE PRECISION x2dv(50,9),y2dv(50,9)
!
!-----------------------------------------------------------------------
! (7) strings
!-----------------------------------------------------------------------
!
!
!
      CHARACTER(LEN=72) titcas, sort3d, sort2d, varimp
!
      CHARACTER(LEN=20) equa
      CHARACTER(LEN=32) varcla(10), texte(maxvar), textpr(maxvar)
      CHARACTER(LEN=32) textlu(100)
!
!
!-----------------------------------------------------------------------
! (8) slvcfg structures
!-----------------------------------------------------------------------
! none
!-----------------------------------------------------------------------
! (9) mesh structure(s)
!-----------------------------------------------------------------------
! two separate meshes, 2D as usual and 3D with sigma-mesh specific
! features, see almesh.f
!
      TYPE(bief_mesh) :: mesh2d, mesh3d
!
!-----------------------------------------------------------------------
! (10) aliases
!-----------------------------------------------------------------------
! declaration of pointers for aliases
! targets are allocated and pointed to in POINT_POSTEL3D.
!
! useful pointers for often used components in 2d and 3D mesh structures
!
! x,y,z node coordinates: base mesh and 3D sigma mesh
!
      TYPE(bief_obj), POINTER :: x2, y2, z2, x3, y3, z3
!
!th surement plein de choses a virer
!th
      TYPE(bief_obj), POINTER :: xnebor2, ynebor2
      TYPE(bief_obj), POINTER :: xnebor3, ynebor3, znebor3
!
! 2D and 3D lateral boundary normal vectors defined
! per boundary segment (2D) or boundary element (3D)
!
      TYPE(bief_obj), POINTER :: xsgbor2, ysgbor2
      TYPE(bief_obj), POINTER :: xsgbor3, ysgbor3, zsgbor3
!
! connectivity tables 2D and 3D
! (element number and local node number) --> global node number
!
      TYPE(bief_obj), POINTER :: ikle2, ikle3
!
! tables connecting (node boundary number) --> global node number
!
      TYPE(bief_obj), POINTER :: nbor2, nbor3
!
! real field pointers for node coordinates
!
      DOUBLE PRECISION, DIMENSION(:), POINTER :: x,y,z
      ! COORDINATES OFFSET
      INTEGER x_orig,y_orig
!
! a number of extremely useful integers describing the mesh structure
! see almesh.f and point_telemac3d.f
!
      INTEGER, POINTER :: nelem2, nelem3
!
      INTEGER, POINTER :: nelmax2
      INTEGER, POINTER :: nelmax3 ! PREVIOUSLY NELMA3
!
      INTEGER, POINTER :: nptfr2  ! PREVIOUSLY SIMPLY NPTFR
      INTEGER, POINTER :: nptfr3
      INTEGER, POINTER :: neleb, nelebx
!
      INTEGER, POINTER :: nptfrx2, nptfrx3
      INTEGER, POINTER :: dim2, dim3
      INTEGER, POINTER :: typelm2, typelm3
      INTEGER, POINTER :: npoin2, npoin3
      INTEGER, POINTER :: npmax2, npmax3
      INTEGER, POINTER :: mxptvs2, mxptvs3
      INTEGER, POINTER :: mxelvs2, mxelvs3
!
!     NEW FILE FORMATS
!
      TYPE(bief_file) :: pos_files(100)
      INTEGER pospre,poshor,posver,posgeo
!
!-----------------------------------------------------------------------
!
      SAVE
!
      END MODULE declarations_postel3d