declarations_postel3d.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\postel3d\declarations_postel3d.f
00002 !
00016                        MODULE DECLARATIONS_POSTEL3D
00017 !                      ******************************
00018 !
00019 !***********************************************************************
00020 !  POSTEL3D VERSION 6.0
00021 !***********************************************************************
00022 !=======================================================================
00023 ! TELEMAC-3D BEST VERSION NUMBER
00024 ! FORTRAN95 VERSION         MARCH 1999        JACEK A. JANKOWSKI PINXIT
00025 !=======================================================================
00026 !
00027 !  DECLARATION OF THE GLOBAL DATA STRUCTURE IN TELEMAC-3D
00028 !
00029         USE BIEF_DEF
00030 !
00031 !       NOTE: THIS MODULE IS ORGANISED IN 10 PARTS
00032 !
00033 !       (1) VECTORS (WILL BE DECLARED AS BIEF_OBJ STRUCTURES)
00034 !       (2) MATRICES (WILL BE DECLARED AS BIEF_OBJ STRUCTURES)
00035 !       (3) BLOCKS (WILL BE DECLARED AS BIEF_OBJ STRUCTURES)
00036 !       (4) INTEGERS
00037 !       (5) LOGICAL VALUES
00038 !       (6) REALS
00039 !       (7) STRINGS
00040 !       (8) SLVCFG STRUCTURES
00041 !       (9) MESH STRUCTURE
00042 !      (10) ALIASES
00043 !
00044 !-----------------------------------------------------------------------
00045 ! (1) VECTORS (REAL AND INTEGER)
00046 !-----------------------------------------------------------------------
00047 !
00048 ! 3D VELOCITY COMPONENTS
00049 !
00050         TYPE(BIEF_OBJ), TARGET :: U, V, W
00051 !
00052 !-----------------------------------------------------------------------
00053 ! (2) MATRICES
00054 !-----------------------------------------------------------------------
00055 ! NONE
00056 !-----------------------------------------------------------------------
00057 ! (3) BLOCKS
00058 !-----------------------------------------------------------------------
00059 !
00060 !
00061         TYPE(BIEF_OBJ), TARGET :: TAB
00062 !
00063 !
00064 ! 2D OUTPUT COMPATIBILITY - OUTPUT VARIABLES ORGANISED IN BLOCKS
00065 !TH POUR BIENTOT, AVEC LE NOUVEAU FORMAT
00066 !TH        TYPE(BIEF_OBJ), TARGET :: VARSOR, VARCL
00067 !
00068 !-----------------------------------------------------------------------
00069 ! (4) INTEGERS
00070 !-----------------------------------------------------------------------
00071 ! KEY WORDS AND PARAMETERS
00072 !
00073 !       MAXIMUM DE VARIABLES DE SORTIE
00074         INTEGER, PARAMETER :: MAXVAR = 100
00075 !
00076 ! PREVIOUS COMMON MITINT: INTEGER STEERING PARAMETERS
00077 !
00078       INTEGER NPLAN  , NTRAC  , NTRPA , NVAR(2), NVA3
00079       INTEGER NR3D , NCOU2 , NENRE
00080 !
00081       INTEGER IELM3, IELM2H, IELM2V
00082       INTEGER IELM0, IELMH, IELMU, IELM1, IELMX
00083       INTEGER SORG3D
00084       INTEGER IM,JM,NPLINT
00085       INTEGER NUPRSO,PESOGR,NC2DH,NC2DV
00086       INTEGER NPLREF(9),NSEG(9)
00087 !
00088 !      NOMBRE MAX DE COUPES
00089         INTEGER, PARAMETER :: MAXCOU = 9
00090 !      NOMBRE MAX DE POINTS POUR LES COUPES VERTICALES
00091         INTEGER, PARAMETER :: MAXPTS = 50
00092 !
00093 !-----------------------------------------------------------------------
00094 ! (5) LOGICAL VALUES
00095 !-----------------------------------------------------------------------
00096 !
00097       LOGICAL SIGMAG
00098       LOGICAL SPHERI
00099       LOGICAL VARSUB
00100 !
00101 !-----------------------------------------------------------------------
00102 ! (6) REALS
00103 !-----------------------------------------------------------------------
00104 !
00105 ! PREVIOUS COMMON MITREA, REAL STEERING PARAMETERS PLUS NEW ONES
00106 !
00107       DOUBLE PRECISION HMIN,  COTINT
00108 !
00109 !TH  A VOIR SI ON MET LE PARAMETRE
00110 !TH  EN DUR POUR L'INSTANT
00111 !      DOUBLE PRECISION HREF(MAXCOU),DISTOR(MAXCOU)
00112 !      DOUBLE PRECISION X2DV(MAXPTS,MAXCOU),Y2DV(MAXPTS,MAXCOU)
00113       DOUBLE PRECISION HREF(9),DISTOR(9)
00114 !TH      DOUBLE PRECISION ZSTAR(5)
00115       DOUBLE PRECISION X2DV(50,9),Y2DV(50,9)
00116 !
00117 !-----------------------------------------------------------------------
00118 ! (7) STRINGS
00119 !-----------------------------------------------------------------------
00120 !
00121 ! PREVIOUS MITCAR
00122 ! CHANGES: NOMSUI -> NOMPRE ; NOMR3D -> NOMRES ; NOMR2D -> NOMRBI
00123 !     (SEE MODULE FOR TELEMAC DEFINITIONS)
00124 ! CONSEQUENTLY BINR3D -> BINRES ;  BINSUI -> BINPRE ; BINR2D -> BINRBI
00125 !
00126 !TH  ON LAISSE TOUT EN ATTENDANT
00127 !
00128       CHARACTER(LEN=72) TITCAS, SORT3D, SORT2D, VARIMP
00129       CHARACTER(LEN=3)  BINGEO, BINRES, BINPRE, BINRBI , BINR3D , BINCOU
00130 !
00131       CHARACTER(LEN=20) EQUA
00132       CHARACTER(LEN=32) VARCLA(10), TEXTE(MAXVAR), TEXTPR(MAXVAR)
00133       CHARACTER(LEN=32) TEXTLU(100)
00134 !
00135 !
00136 !-----------------------------------------------------------------------
00137 ! (8) SLVCFG STRUCTURES
00138 !-----------------------------------------------------------------------
00139 ! NONE
00140 !-----------------------------------------------------------------------
00141 ! (9) MESH STRUCTURE(S)
00142 !-----------------------------------------------------------------------
00143 ! TWO SEPARATE MESHES, 2D AS USUAL AND 3D WITH SIGMA-MESH SPECIFIC
00144 ! FEATURES, SEE ALMESH.F
00145 !
00146         TYPE(BIEF_MESH) :: MESH2D, MESH3D
00147 !
00148 !-----------------------------------------------------------------------
00149 ! (10) ALIASES
00150 !-----------------------------------------------------------------------
00151 ! DECLARATION OF POINTERS FOR ALIASES
00152 ! TARGETS ARE ALLOCATED AND POINTED TO IN POINT_POSTEL3D.
00153 !
00154 ! USEFUL POINTERS FOR OFTEN USED COMPONENTS IN 2D AND 3D MESH STRUCTURES
00155 !
00156 ! X,Y,Z NODE COORDINATES: BASE MESH AND 3D SIGMA MESH
00157 !
00158         TYPE(BIEF_OBJ), POINTER :: X2, Y2, Z2, X3, Y3, Z3
00159 !
00160 !TH SUREMENT PLEIN DE CHOSES A VIRER
00161 !TH
00162         TYPE(BIEF_OBJ), POINTER :: XNEBOR2, YNEBOR2
00163         TYPE(BIEF_OBJ), POINTER :: XNEBOR3, YNEBOR3, ZNEBOR3
00164 !
00165 ! 2D AND 3D LATERAL BOUNDARY NORMAL VECTORS DEFINED
00166 ! PER BOUNDARY SEGMENT (2D) OR BOUNDARY ELEMENT (3D)
00167 !
00168         TYPE(BIEF_OBJ), POINTER :: XSGBOR2, YSGBOR2
00169         TYPE(BIEF_OBJ), POINTER :: XSGBOR3, YSGBOR3, ZSGBOR3
00170 !
00171 ! CONNECTIVITY TABLES 2D AND 3D
00172 ! (ELEMENT NUMBER AND LOCAL NODE NUMBER) --> GLOBAL NODE NUMBER
00173 !
00174         TYPE(BIEF_OBJ), POINTER :: IKLE2, IKLE3
00175 !
00176 ! TABLES CONNECTING (NODE BOUNDARY NUMBER) --> GLOBAL NODE NUMBER
00177 !
00178         TYPE(BIEF_OBJ), POINTER :: NBOR2, NBOR3
00179 !
00180 ! REAL FIELD POINTERS FOR NODE COORDINATES
00181 !
00182         DOUBLE PRECISION, DIMENSION(:), POINTER :: X,Y,Z
00183 !
00184 ! A NUMBER OF EXTREMELY USEFUL INTEGERS DESCRIBING THE MESH STRUCTURE
00185 ! SEE ALMESH.F AND POINT_TELEMAC3D.F
00186 !
00187         INTEGER, POINTER :: NELEM2, NELEM3
00188 !
00189         INTEGER, POINTER :: NELMAX2
00190         INTEGER, POINTER :: NELMAX3 ! PREVIOUSLY NELMA3
00191 !
00192         INTEGER, POINTER :: NPTFR2  ! PREVIOUSLY SIMPLY NPTFR
00193         INTEGER, POINTER :: NPTFR3
00194         INTEGER, POINTER :: NELEB, NELEBX
00195 !
00196         INTEGER, POINTER :: NPTFRX2, NPTFRX3
00197         INTEGER, POINTER :: DIM2, DIM3
00198         INTEGER, POINTER :: TYPELM2, TYPELM3
00199         INTEGER, POINTER :: NPOIN2, NPOIN3
00200         INTEGER, POINTER :: NPMAX2, NPMAX3
00201         INTEGER, POINTER :: MXPTVS2, MXPTVS3
00202         INTEGER, POINTER :: MXELVS2, MXELVS3
00203 !
00204 !     NEW FILE FORMATS
00205 !
00206       TYPE(BIEF_FILE) :: POS_FILES(100)
00207       INTEGER POSPRE,POSHOR,POSVER,POSGEO
00208 !
00209 !-----------------------------------------------------------------------
00210 ! SAVE ALL - IMPORTANT
00211 !
00212       SAVE
00213 !
00214       END MODULE DECLARATIONS_POSTEL3D

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