declarations_telemac3d.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\telemac3d\declarations_telemac3d.f
00002 !
00044                      MODULE DECLARATIONS_TELEMAC3D
00045 !                    *****************************
00046 !
00047 !
00048 !***********************************************************************
00049 ! TELEMAC3D   V6P2                                   21/08/2010
00050 !***********************************************************************
00051 !
00052 !
00053 !
00054 !
00055 !
00056 !
00057 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00058 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00059 !
00060       USE BIEF_DEF
00061 !
00062 !       NOTE: THIS MODULE IS ORGANISED IN 10 PARTS
00063 !
00064 !       (1) VECTORS (WILL BE DECLARED AS BIEF_OBJ STRUCTURES)
00065 !       (2) MATRICES (WILL BE DECLARED AS BIEF_OBJ STRUCTURES)
00066 !       (3) BLOCKS (WILL BE DECLARED AS BIEF_OBJ STRUCTURES)
00067 !       (4) INTEGERS
00068 !       (5) LOGICAL VALUES
00069 !       (6) REALS
00070 !       (7) STRINGS
00071 !       (8) SLVCFG STRUCTURES
00072 !       (9) MESH STRUCTURE
00073 !      (10) ALIASES
00074 !
00075 !-----------------------------------------------------------------------
00076 ! (1) VECTORS (REAL AND INTEGER)
00077 !-----------------------------------------------------------------------
00078 !
00079 !
00080 !     3D VELOCITY COMPONENTS AT PREVIOUS TIMESTEP (TIME N)
00081 !
00082       TYPE(BIEF_OBJ), TARGET :: UN,VN,WN
00083 !
00084 !     3D VELOCITY COMPONENTS AFTER ADVECTION
00085 !
00086       TYPE(BIEF_OBJ), TARGET :: UC,VC,WC
00087 !
00088 !     3D VELOCITY COMPONENTS AFTER DIFFUSION
00089 !
00090       TYPE(BIEF_OBJ), TARGET :: UD,VD,WD
00091 !
00092 !     3D VELOCITY COMPONENTS AT CURRENT TIMESTEP (TIME N+1)
00093 !
00094       TYPE(BIEF_OBJ), TARGET :: U,V,W
00095 !
00096 !     EXPLICIT SOURCE TERMS ON VELOCITIES
00097 !
00098       TYPE(BIEF_OBJ), TARGET :: S0U,S0V,S0W
00099 !
00100 !     IMPLICIT SOURCE TERMS ON VELOCITIES U
00101 !
00102       TYPE(BIEF_OBJ), TARGET :: S1U,S1V,S1W
00103 !
00104 !     RIGHT-HAND SIDE ON VELOCITIES EQUATIONS
00105 !
00106       TYPE(BIEF_OBJ), TARGET :: SMU,SMV
00107 !
00108 !     PRESCRIBED VELOCITY COMPONENTS ON THE BOTTOM
00109 !
00110       TYPE(BIEF_OBJ), TARGET :: UBORF,VBORF,WBORF
00111 !
00112 !     PRESCRIBED VELOCITY COMPONENTS ON THE LATERAL BOUNDARY
00113 !
00114       TYPE(BIEF_OBJ), TARGET :: UBORL,VBORL,WBORL
00115 !
00116 !     PRESCRIBED VELOCITY COMPONENTS AT THE FREE SURFACE
00117 !
00118       TYPE(BIEF_OBJ), TARGET :: UBORS,VBORS,WBORS
00119 !
00120 !     ORIGINAL PRESCRIBED VALUES AT THE FREE SURFACE
00121 !
00122       TYPE(BIEF_OBJ), TARGET :: TRBORSAVE,UBORSAVE,VBORSAVE
00123       TYPE(BIEF_OBJ), TARGET :: WBORSAVE,KBORSAVE,EBORSAVE
00124 !
00125 !     (FRICTION VELOCITY)**2 FOR BOTTOM AND LATERAL BOUNDARIES
00126 !
00127       TYPE(BIEF_OBJ), TARGET :: UETCAR,UETCAL
00128 !
00129 !     LOGARITHMIC LAW FOR U-VELOCITY COMPONENT, ON THE BOTTOM: NU*DU/DN = AUBORF*U + BUBORF
00130 !
00131       TYPE(BIEF_OBJ), TARGET :: AUBORF,BUBORF
00132 !
00133 !     LOGARITHMIC LAW FOR U-VELOCITY COMPONENT, ON THE LATERAL BOUNDARIES: NU*DU/DN = AUBORL*U + BUBORL
00134 !
00135       TYPE(BIEF_OBJ), TARGET :: AUBORL,BUBORL
00136 !
00137 !     LOGARITHMIC LAW FOR U-VELOCITY COMPONENT, AT THE FREE SURFACE: NU*DU/DN = AUBORS*U + BUBORS
00138 !
00139       TYPE(BIEF_OBJ), TARGET :: AUBORS,BUBORS
00140 !
00141 !     LOGARITHMIC LAW FOR V-VELOCITY COMPONENT, ON THE BOTTOM: NU*DV/DN = AVBORF*V + BVBORF
00142 !
00143       TYPE(BIEF_OBJ), TARGET :: AVBORF,BVBORF
00144 !
00145 !     LOGARITHMIC LAW FOR V-VELOCITY COMPONENT, ON THE LATERAL BOUNDARIES: NU*DV/DN = AVBORL*V + BVBORL
00146 !
00147       TYPE(BIEF_OBJ), TARGET :: AVBORL,BVBORL
00148 !
00149 !     LOGARITHMIC LAW FOR V-VELOCITY COMPONENT, AT THE FREE SURFACE: NU*DV/DN = AVBORS*V + BVBORS
00150 !
00151       TYPE(BIEF_OBJ), TARGET :: AVBORS,BVBORS
00152 !
00153 !     LOGARITHMIC LAW FOR W-VELOCITY COMPONENT, ON THE BOTTOM: NU*DW/DN = AWBORF*W + BWBORF
00154 !
00155       TYPE(BIEF_OBJ), TARGET :: AWBORF,BWBORF
00156 !
00157 !     LOGARITHMIC LAW FOR W-VELOCITY COMPONENT, ON THE LATERAL BOUNDARIES: NU*DW/DN = AWBORL*W + BWBORL
00158 !
00159       TYPE(BIEF_OBJ), TARGET :: AWBORL,BWBORL
00160 !
00161 !     LOGARITHMIC LAW FOR W-VELOCITY COMPONENT, AT THE FREE SURFACE: NU*DW/DN = AWBORS*W + BWBORS
00162 !
00163       TYPE(BIEF_OBJ), TARGET :: AWBORS,BWBORS
00164 !
00165 !     TYPES OF BOUNDARY CONDITIONS FOR VELOCITY COMPONENTS ON THE BOTTOM
00166 !
00167       TYPE(BIEF_OBJ), TARGET :: LIUBOF,LIVBOF,LIWBOF
00168 !
00169 !     TYPES OF BOUNDARY CONDITIONS FOR U ON THE LATERAL BOUNDARIES
00170 !
00171       TYPE(BIEF_OBJ), TARGET :: LIUBOL,LIVBOL,LIWBOL
00172       TYPE(BIEF_OBJ), TARGET :: LIUBOL_USER,LIVBOL_USER
00173 !
00174 !     TYPES OF BOUNDARY CONDITIONS FOR VELOCITY COMPONENTS AT THE FREE SURFACE
00175 !
00176       TYPE(BIEF_OBJ), TARGET :: LIUBOS,LIVBOS,LIWBOS
00177 !
00178 !     'COLOUR' OF BOUNDARY NODES (TAKEN IN BOUNDARY CONDITIONS FILE)
00179 !
00180       TYPE(BIEF_OBJ), TARGET :: BOUNDARY_COLOUR
00181 !
00182 !     PLANE NUMBER OF LAST PLANE WHICH HAS A CRUSHED LAYER ABOVE IT
00183 !
00184       TYPE(BIEF_OBJ), TARGET :: IPBOT
00185 !
00186 !     SIGMA-TRANSFORMED VERTICAL VELOCITY COMPONENT
00187 !
00188       TYPE(BIEF_OBJ), TARGET :: WS
00189 !
00190 !     DYNAMIC PRESSURE AT TIME N+1 AND TIME N (NON-HYDROSTATIC)
00191 !
00192       TYPE(BIEF_OBJ), TARGET :: DP,DPN
00193 !
00194 !     HYDROSTATIC PRESSURE (NON-HYDROSTATIC)
00195 !
00196       TYPE(BIEF_OBJ), TARGET :: PH
00197 !
00198 !     PRESCRIBED DYNAMIC PRESSURE ON BOTTOM, LATERAL BOUNDARIES AND FREE SURFACE
00199 !
00200       TYPE(BIEF_OBJ), TARGET :: PBORF, PBORL, PBORS
00201 !
00202 !     TYPE OF BOUNDARY CONDITIONS FOR DYNAMIC PRESSURE
00203 !
00204       TYPE(BIEF_OBJ), TARGET :: LIPBOF, LIPBOL, LIPBOS
00205 !
00206 !     K OF K-EPSILON MODEL AT PREVIOUS TIMESTEP (TIME N)
00207 !
00208       TYPE(BIEF_OBJ), TARGET :: AKN
00209 !
00210 !     K OF K-EPSILON MODEL AFTER ADVECTION
00211 !
00212       TYPE(BIEF_OBJ), TARGET :: AKC
00213 !
00214 !     K OF K-EPSILON MODEL AT TIME N+1
00215 !
00216       TYPE(BIEF_OBJ), TARGET :: AK
00217 !
00218 !     EXPLICIT SOURCE TERMA FOR K IN K-EPSILON MODEL
00219 !
00220       TYPE(BIEF_OBJ), TARGET :: S0AK
00221 !
00222 !     IMPLICIT SOURCE TERMA FOR K IN K-EPSILON MODEL
00223 !
00224       TYPE(BIEF_OBJ), TARGET :: S1AK
00225 !
00226 !     PRESCRIBED K OF K-EPSILON MODEL ON: LATERAL BOUNDARY
00227 !                                         FREE SURFACE
00228 !                                         BOTTOM
00229 !
00230       TYPE(BIEF_OBJ), TARGET :: KBORL,KBORS,KBORF
00231 !
00232 !     COEFFICIENTS OF LOGARITHMIC LAW FOR K OF K-EPSILON MODEL, ON THE BOTTOM
00233 !                                                               FREE SURFACE
00234 !
00235       TYPE(BIEF_OBJ), TARGET :: AKBORF,BKBORF,AKBORL
00236       TYPE(BIEF_OBJ), TARGET :: BKBORL,AKBORS,BKBORS
00237 !
00238 !     TYPES OF BOUNDARY CONDITIONS FOR K OF K-EPSILON MODEL ON THE BOTTOM
00239 !                                                        LATERAL BOUNDARY
00240 !                                                            FREE SURFACE
00241       TYPE(BIEF_OBJ), TARGET :: LIKBOF,LIKBOL,LIKBOS
00242 !
00243 !     EPSILON OF K-EPSILON MODEL AT PREVIOUS TIMESTEP (TIME N)
00244 !
00245       TYPE(BIEF_OBJ), TARGET :: EPN
00246 !
00247 !     EPSILON OF K-EPSILON MODEL AFTER ADVECTION
00248 !
00249       TYPE(BIEF_OBJ), TARGET :: EPC
00250 !
00251 !     EPSILON OF K-EPSILON MODEL AT TIME N+1
00252 !
00253       TYPE(BIEF_OBJ), TARGET :: EP
00254 !
00255 !     EXPLICIT/IMPLICIT SOURCE TERM OF EPSILON IN K-EPSILON MODEL
00256 !
00257       TYPE(BIEF_OBJ), TARGET :: S0EP,S1EP
00258 !
00259 !     PRESCRIBED EPSILON OF K-EPSILON MODEL ON THE BOTTOM
00260 !                                        LATERAL BOUNDARY
00261 !                                            FREE SURFACE
00262 !
00263       TYPE(BIEF_OBJ), TARGET :: EBORF,EBORL,EBORS
00264 !
00265 !     COEFFICIENTS IN LOGARITHMIC LAW FOR EPSILON OF K-EPSILON MODEL, ON THE BOTTOM
00266 !                                                                  LATERAL BOUNDARY
00267 !                                                                      FREE SURFACE
00268       TYPE(BIEF_OBJ), TARGET :: AEBORF,AEBORL,AEBORS
00269       TYPE(BIEF_OBJ), TARGET :: BEBORF,BEBORL,BEBORS
00270 !
00271 !     TYPES OF BOUNDARY CONDITIONS FOR EPSILON OF K-EPSILON MODEL ON THE BOTTOM
00272 !                                                              LATERAL BOUNDARY
00273 !                                                                  FREE SURFACE
00274       TYPE(BIEF_OBJ), TARGET :: LIEBOF,LIEBOL,LIEBOS
00275 !
00276 !     VERTICALLY INTEGRATED VELOCITY COMPONENTS
00277 !
00278       TYPE(BIEF_OBJ), TARGET :: U2D,V2D
00279 !
00280 !     VERTICALLY INTEGRATED VELOCITY COMPONENTS ON BOUNFDARIES
00281 !
00282       TYPE(BIEF_OBJ), TARGET :: UBOR2D,VBOR2D
00283 !
00284 !     VERTICALLY INTEGRATED VELOCITY COMPONENTS AT PREVIOUS TIME STEP
00285 !
00286       TYPE(BIEF_OBJ), TARGET :: UN2D,VN2D
00287 !
00288 !     SOURCE TERMS ON VELOCITIES
00289 !
00290       TYPE(BIEF_OBJ), TARGET :: FU,FV
00291 !
00292 !     WAVE STRESSES FROM ARTEMIS OR TOMAWAC
00293 !
00294       TYPE(BIEF_OBJ), TARGET :: FXH,FYH
00295 !
00296 !     FLUXES ON BOUNDARIES
00297 !
00298       TYPE(BIEF_OBJ), TARGET :: FLBOR,FLBLIM
00299 !
00300 !     ADVECTION FIELD
00301 !
00302       TYPE(BIEF_OBJ), TARGET :: UCONV,VCONV,WCONV
00303 !
00304 !     VERTICAL VELOCITY IN TRANSFORMED MESH
00305 !
00306       TYPE(BIEF_OBJ), TARGET :: WSCONV
00307 !
00308 !     ADVECTION FIELD FOR CHARACTERISTICS
00309 !
00310       TYPE(BIEF_OBJ), TARGET :: UCONVC,VCONVC
00311 !
00312 !     PSEUDO-VISCOSITY IN WAVE EQUATION
00313 !
00314       TYPE(BIEF_OBJ), TARGET :: NUWAVE
00315 !
00316 !     PIECE-WISE LINEAR FUNCTION, AND ITS GRADIENT
00317 !     USED WITH "COMPATIBILITY OF FREE SURFACE GRADIENT"
00318 !
00319       TYPE(BIEF_OBJ), TARGET :: ZCONV,GRAZCO
00320 !
00321 !     D**-1 IN WAVE EQUATION (SEE BOOK)
00322 !
00323       TYPE(BIEF_OBJ), TARGET :: DM1
00324 !
00325 !     EDGE BY EDGE FLUXES (AND ASSEMBLED IN PARALLEL VERSION)
00326 !
00327       TYPE(BIEF_OBJ), TARGET :: FLODEL,FLOPAR
00328 !
00329 !     LIMITATION OF FLUXES
00330 !
00331       TYPE(BIEF_OBJ), TARGET :: FLULIM
00332 !
00333 !     VOLUME AROUND POINTS AT TIME N+1, NOT ASSEMBLED (VOLU)
00334 !                                       ASSEMBLED IN PARALLEL (VOLUPAR)
00335 !
00336       TYPE(BIEF_OBJ), TARGET :: VOLU,VOLUPAR
00337 !
00338 !     VOLUME AROUND POINTS AT TIME N
00339 !
00340       TYPE(BIEF_OBJ), TARGET :: VOLUN,VOLUNPAR
00341 !
00342 !     VARIOUS VOLUMES (AT AN INTERMEDIATE TIME STEP)
00343 !
00344       TYPE(BIEF_OBJ), TARGET :: VOLUT,VOLU3D,VOLU3DPAR
00345 !
00346 !     INTEGRAL OF 2D BASES (SCALAR AND ASSEMBLED IN PARALLEL)
00347 !
00348       TYPE(BIEF_OBJ), TARGET :: VOLU2D,V2DPAR
00349 !
00350 !     INVERSE OF INTEGRAL OF BASES IN 2D, IN 3D
00351 !
00352       TYPE(BIEF_OBJ), TARGET :: UNSV2D,UNSV3D
00353 !
00354 !     INTERNAL FLUXES, PER NODE
00355 !
00356       TYPE(BIEF_OBJ), TARGET :: FLUINT
00357 !
00358 !     FLUX AT BOUNDARIES, AND ASSEMBLED FORM IN PARALLEL
00359 !
00360       TYPE(BIEF_OBJ), TARGET :: FLUEXT,FLUEXTPAR
00361 !
00362 !     FLUXES INTEGRATED ALONG THE VERTICAL
00363 !
00364       TYPE(BIEF_OBJ), TARGET :: FLINT2
00365 !
00366 !     ABSOLUTE VALUE OF THE VORTICITY
00367 !
00368       TYPE(BIEF_OBJ), TARGET :: ROTAT
00369 !
00370 !     RELATIVE DENSITY = (RHO-RHO0)/RHO0
00371 !
00372       TYPE(BIEF_OBJ), TARGET :: DELTAR
00373 !
00374 !     RICHARDSON NUMBER
00375 !
00376       TYPE(BIEF_OBJ), TARGET :: RI
00377 !
00378 !     FRICTION COEFFICIENT ON THE BOTTOM
00379 !
00380       TYPE(BIEF_OBJ), TARGET :: RUGOF
00381 !
00382 !     FRICTION COEFFICIENT ON THE LATERAL BOUNDARY
00383 !
00384       TYPE(BIEF_OBJ), TARGET :: RUGOL
00385 !
00386 !     ADIMENSIONAL FRICTION COEFFICIENT
00387 !
00388       TYPE(BIEF_OBJ), TARGET :: CF
00389 !
00390 !     WIND VELOCITY
00391 !
00392       TYPE(BIEF_OBJ), TARGET :: WIND
00393 !
00394 !     ATMOSPHERIC PRESSURE
00395 !
00396       TYPE(BIEF_OBJ), TARGET :: PATMOS
00397 !
00398 !     PARAMETERS FOR GLOBAL MASS AND FLUX BALANCES
00399 !
00400       TYPE(BIEF_OBJ), TARGET :: MASINI,MASSE,MASSEN
00401 !
00402 !     FLUX (ACCROSS THE BOUNDARIES)
00403 !
00404       TYPE(BIEF_OBJ), TARGET :: FLUX
00405 !
00406 !     CUMULATED FLUXES OF TRACERS SINCE BEGINNING OF COMPUTATION
00407 !
00408       TYPE(BIEF_OBJ), TARGET :: FLUCUM
00409 !
00410 !     DEPTH AT TIME N+1, AT TIME TN
00411 !
00412       TYPE(BIEF_OBJ), TARGET :: H,HN
00413 !
00414 !     PROPAGATION DEPTH, I.E. DEPTH INTO THE TERM DIV(HU)
00415 !
00416       TYPE(BIEF_OBJ), TARGET :: HPROP
00417 !
00418 !     HIGH WATER MARK, HIGH WATER TIME
00419 !
00420       TYPE(BIEF_OBJ), TARGET :: MAXZ,TMAXZ
00421 !
00422 !     VARIATION OF DEPTH : H(N+1)-H(N)
00423 !
00424       TYPE(BIEF_OBJ), TARGET :: DH
00425 !
00426 !     RIGHT-HAND SIDE FOR WATER DEPTH
00427 !
00428       TYPE(BIEF_OBJ), TARGET :: SMH
00429 !
00430 !     PRESCRIBED DEPTH ON LATERAL BOUNDARIES
00431 !
00432       TYPE(BIEF_OBJ), TARGET :: HBOR
00433 !
00434 !     RAIN IN M/S MULTIPLIED BY VOLU2D, AND VERSION ASSEMBLED IN PARALLEL
00435 !
00436       TYPE(BIEF_OBJ), TARGET :: PLUIE,PARAPLUIE
00437 !
00438 !     BLOCK OF VARIABLES TO BE ADVECTED BY CHARACTERISTICS
00439 !
00440       TYPE(BIEF_OBJ), TARGET :: FN3D,FC3D
00441 !
00442 !     BLOCK OF VARIOUS BIEF_OBJ STRUCTURES FOR VARIABLES TO BE ADVECTED
00443 !
00444       TYPE(BIEF_OBJ), TARGET :: BL_FN,BL_FC,BL_S0F,BL_FSC
00445       TYPE(BIEF_OBJ), TARGET :: BL_BOL,BL_BORL
00446 !
00447 !     VERTICAL COORDINATES FOR PROPAGATION STEP
00448 !
00449       TYPE(BIEF_OBJ), TARGET :: ZPROP
00450 !
00451 !     BOTTOM ELEVATION
00452 !
00453       TYPE(BIEF_OBJ), TARGET :: ZF
00454 !
00455 !     BOTTOM COORDINATES GIVEN PER ELEMENT
00456 !
00457       TYPE(BIEF_OBJ), TARGET :: ZFE
00458 !
00459 !     PERCENTUAL MESH PLANES
00460 !
00461       TYPE(BIEF_OBJ), TARGET :: ZSTAR
00462 !
00463 !     Z: DISTRIBUTION
00464 !
00465       TYPE(BIEF_OBJ), TARGET :: ZT
00466 !
00467 !     DH/DT
00468 !
00469       TYPE(BIEF_OBJ), TARGET :: DSSUDT
00470 !
00471 !     PRESCRIBED ELEVATIONS OF PLANES
00472 !
00473       TYPE(BIEF_OBJ), TARGET :: ZPLANE
00474 !
00475 !     TYPE OF SIGMA TRANSFORMATION
00476 !
00477       TYPE(BIEF_OBJ), TARGET :: TRANSF_PLANE
00478 !
00479 !     COORDINATES IN THE TRANSFORMED MESH FOR THE METHOD OF CHARACTERISTICS
00480 !
00481       TYPE(BIEF_OBJ), TARGET :: ZCHAR
00482 !
00483 !     MASK OF ELEMENTS
00484 !
00485       TYPE(BIEF_OBJ), TARGET :: MASKEL
00486 !
00487 !     MASK OF NODES
00488 !
00489       TYPE(BIEF_OBJ), TARGET :: MASKPT
00490 !
00491 !     3D MASK OF BOUNDARY ELEMENTS (CASE WITH MASKING)
00492 !
00493       TYPE(BIEF_OBJ), TARGET :: MASKBR
00494 !
00495 !     3D MASK OF BOUNDARY ELEMENTS (WORKING ARRAY FOR DEBIMP_3D)
00496 !
00497       TYPE(BIEF_OBJ), TARGET :: MASKTR
00498 !
00499 !     POSITIONS OF FLOATING BODIES (X,Y, Z AND Z IN TRANSFORMED MESH)
00500 !
00501       TYPE(BIEF_OBJ), TARGET :: XFLOT,YFLOT,ZFLOT
00502 !
00503 !     BARYCENTRIC COORDINATES OF FLOATING BODIES, AT THE FOOT OF CHARACTERISTICS
00504 !     HORIZONTAL AND VERTICAL
00505 !
00506       TYPE(BIEF_OBJ), TARGET :: SHPFLO,SHZFLO
00507 !
00508 !     TAGS FOR FLOATING BODIES
00509 !
00510       TYPE(BIEF_OBJ), TARGET :: TAGFLO
00511 !
00512 !     STARTING ELEMENTS OF FLOATING BODIES FOR CHARACTERISTICS
00513 !
00514       TYPE(BIEF_OBJ), TARGET :: ELTFLO
00515 !
00516 !     STARTING LEVEL OF FLOATING BODIES FOR CHARACTERISTICS
00517 !
00518       TYPE(BIEF_OBJ), TARGET :: ETAFLO
00519 !
00520 !     TYPE OF BOUNDARY CONDITIONS ON DEPTH (AND VALUE OF USER SAVED IF THOMPSON)
00521 !
00522       TYPE(BIEF_OBJ), TARGET :: LIHBOR,LIHBOR_USER
00523 !
00524 !     LIQUID BOUNDARY NUMNER OF BOUNDARY POINTS, OF BOUNDARY ELEMENTS
00525 !
00526       TYPE(BIEF_OBJ), TARGET :: NUMLIQ,NUMLIQ_ELM
00527 !
00528 !     PROPAGATION BC TYPES (TELEMAC2D'S PROPAG)
00529 !
00530       TYPE(BIEF_OBJ), TARGET :: LIMPRO
00531 !
00532 !     RIGHT HAND SIDE FOR THE LINEAR EQUATIONS IN 3D
00533 !
00534       TYPE(BIEF_OBJ), TARGET :: SEM3D
00535 !
00536 !     RIGHT HAND SIDE FOR THE LINEAR EQUATIONS IN 2D
00537 !
00538       TYPE(BIEF_OBJ), TARGET :: SEM2D
00539 !
00540 !     ELEMENT-ORIENTED WORKING ARRAYS
00541 !
00542       TYPE(BIEF_OBJ), TARGET :: TE1,TE2,TE3
00543 !
00544 !     PIECE-WISE LINEAR FREE SURFACE
00545 !
00546       TYPE(BIEF_OBJ), TARGET :: ZFLATS
00547 !
00548 !     VOID VECTOR STRUCTURE
00549 !
00550       TYPE(BIEF_OBJ), TARGET :: SVIDE
00551 !
00552 !     RIGHT HAND SIDE OF CONTINUITY EQUATION WHEN SOURCES
00553 !
00554       TYPE(BIEF_OBJ), TARGET :: SOURCES
00555 !
00556 !     SETTLING VELOCITY
00557 !
00558       TYPE(BIEF_OBJ), TARGET :: WCHU
00559 !
00560 !     THICKNESS OF SOLID FRACTION OF THE BED LAYER ( EPAI=DZ/(1+IVIDE), DZ BED LAYER THICKNESS )
00561 !
00562 !      TYPE(BIEF_OBJ), TARGET :: EPAI
00563 !
00564 !     VOID RATIO (GIBSON MODEL ONLY)
00565 !
00566       TYPE(BIEF_OBJ), TARGET :: IVIDE
00567 !
00568 !     TIME COUNTER FOR CONSOLIDATION MODEL (MULTILAYER MODEL)
00569 !
00570       TYPE(BIEF_OBJ), TARGET :: TEMP
00571 !
00572 !     CONCENTRATION OF MUD BED LAYER (MULTILAYER MODEL)
00573 !
00574 !     TYPE(BIEF_OBJ), TARGET :: CONC
00575 !
00576       DOUBLE PRECISION,DIMENSION(:,:), TARGET, ALLOCATABLE :: CONC
00577 !
00578 ! TBE FLOCULATION AND HINDERED SETTLING MODEL
00579 !     HINDERED SETTLING SWITCH
00580       LOGICAL HINDER
00581 !     HINDERED SETTLING METHOD
00582       INTEGER HIND_TYPE
00583 !
00584       DOUBLE PRECISION CGEL, CINI
00585 !
00586 !     FLOCULATION SWITCH
00587       LOGICAL FLOC
00588 !     FLOCULATION METHOD
00589       INTEGER FLOC_TYPE
00590 !
00591 ! BLOCK OF DATA FOR SETTLING AND DIFFUSION 1D PROFILE MODEL
00592       TYPE(BIEF_OBJ), TARGET :: TRAV1
00593 ! CV...
00594 ! uniformisation avec SISYPHE
00595 !
00596 !     MAXIMUM NUMBER OF LAYERS ON THE MESH
00597 !
00598       INTEGER, PARAMETER :: NLAYMAX = 20
00599 !
00600 !     BED SHEAR STRENGTH OF THE MUD BED LAYER (MULTILAYER MODEL)
00601 !
00602 !      TYPE(BIEF_OBJ), TARGET :: TOCE
00603 
00604       DOUBLE PRECISION,DIMENSION(:,:), TARGET, ALLOCATABLE :: TOCE
00605 !
00606       TYPE(BIEF_OBJ), TARGET :: LAYTOCE
00607 !
00608       DOUBLE PRECISION,DIMENSION(:,:), TARGET, ALLOCATABLE :: EPAI
00609 !
00610       TYPE(BIEF_OBJ), TARGET :: LAYTHI
00611 !
00612 !     MUD CONCENTRATION FOR EACH LAYER (Constante for initialisation)
00613 !
00614       DOUBLE PRECISION :: CONC_LAYER(NLAYMAX)
00615 !
00616 !     CRITICAL SHEAR STRESS FOR EROSION (Initialisation)
00617 !
00618       DOUBLE PRECISION :: TOCE_LAYER(NLAYMAX)
00619 !
00620 !     SEDIMENT BED LAYER THICKNESS (Initialisation)
00621 !
00622       DOUBLE PRECISION :: ES_LAYER(NLAYMAX)
00623 !
00624 !  Mass bilan
00625 ! MASSINI IN SISYPHE
00626 !
00627       DOUBLE PRECISION :: MASSUSP0, MASSUSP
00628 !
00629 !      DOUBLE PRECISION :: MASTEN, MASTOU
00630 !
00631 !      DOUBLE PRECISION :: MASTCP, MASFIN
00632 !
00633       DOUBLE PRECISION :: MASDEP
00634 !
00635       DOUBLE PRECISION :: MASBED0,MASBED
00636 
00637 ! ...CV
00638 !
00639 !     THICKNESS OF FRESH DEPOSIT (FLUID MUD LAYER)
00640 !
00641       TYPE(BIEF_OBJ), TARGET :: HDEP
00642 !
00643 !     EROSION FLUX
00644 !
00645       TYPE(BIEF_OBJ), TARGET :: FLUER
00646 !
00647 !     PROBABILITY OF DEPOSIT
00648 !
00649       TYPE(BIEF_OBJ), TARGET :: PDEPO
00650 !
00651 ! CV...
00652 !       Harmonisation avec Sisyphe
00653 !
00654 !     DEPOSITION FLUX
00655 !
00656       TYPE(BIEF_OBJ), TARGET :: FLUDP
00657 !
00658 !     DEPOSITION FLUX (Implict part : can replace PDEPO)
00659 !
00660       TYPE(BIEF_OBJ), TARGET :: FLUDPT
00661 !
00662 !     BED EVOLUTION
00663 !
00664       TYPE(BIEF_OBJ), TARGET :: ZF_S
00665 !
00666 !     CUMULATED BED EVOLUTION
00667 !
00668       TYPE(BIEF_OBJ), TARGET :: ESOMT
00669 !
00670 ! ...CV
00671 !
00672 !     RIDIG BED ELEVATION
00673 !
00674       TYPE(BIEF_OBJ), TARGET :: ZR
00675 !
00676 !     EQUILIBRIUM CONCENTRATION
00677 !
00678       TYPE(BIEF_OBJ), TARGET :: CREF
00679 !
00680 !     AVERAGE DIAMETER OF GRAINS
00681 !
00682       TYPE(BIEF_OBJ), TARGET :: DMOY
00683 !
00684 !     NUMBER OF POINTS WITHIN THE BED ALONG THE VERTICAL
00685 !
00686       TYPE(BIEF_OBJ), TARGET :: NPF
00687 !
00688 !     VECTOR OF SIZE NDP*NELEM (NUMBER OF POINTS IN THE ELEMENT * NELEM)
00689 !
00690       TYPE(BIEF_OBJ), TARGET :: WEL
00691 !
00692 !     3D VECTOR TO STORE DH AND HN IN 3D MESH (RESTART PROCEDURE)
00693 !
00694       TYPE(BIEF_OBJ), TARGET :: DHHN
00695 !
00696 !     FOR TIDAL BOUNDARY CONDITIONS
00697 !
00698       TYPE(BIEF_OBJ),TARGET :: HBTIDE,UBTIDE,VBTIDE,NUMTIDE
00699 !
00700 !     VARIABLES TRANSMITTED FROM TOMAWAC TO SISYPHE
00701 !
00702       TYPE(BIEF_OBJ),TARGET :: DIRMOY,HM0,TPR5,ORBVEL
00703 !
00704 !     VARIABLES USED IN CASE OF MIXED SEDIMENT
00705 !
00706       TYPE(BIEF_OBJ),TARGET :: EPAICO,EPAINCO,PVSCO,PVSNCO,FLUERC
00707       TYPE(BIEF_OBJ),TARGET :: FLUDPTC,FLUDPTNC,FLUDPC,FLUDPNC,FLUERNC
00708 !
00709 !-----------------------------------------------------------------------
00710 ! (2) MATRICES
00711 !-----------------------------------------------------------------------
00712 !
00713 !
00714 !     SUPG NON SYMMETRIC MATRIX
00715 !
00716       TYPE(BIEF_OBJ), TARGET :: MSUPG
00717 !
00718 !     MURD NON SYMMETRIC MATRIX
00719 !
00720       TYPE(BIEF_OBJ), TARGET :: MMURD
00721 !
00722 !     DIFFUSION MATRIX
00723 !
00724       TYPE(BIEF_OBJ), TARGET :: MDIFF
00725 !
00726 !     MURD MATRIX FOR TIDAL FLATS VERSION
00727 !
00728       TYPE(BIEF_OBJ), TARGET :: MURD_TF
00729 !
00730 !     WORKING MATRICES
00731 !
00732       TYPE(BIEF_OBJ), TARGET :: MTRA1,MTRA2
00733 !
00734 !     2D BOUNDARY MATRIX
00735 !
00736       TYPE(BIEF_OBJ), TARGET :: MBOR2D
00737 !
00738 !     WORKING 2D MATRIX
00739 !
00740       TYPE(BIEF_OBJ), TARGET :: MATR2H
00741 !
00742 !-----------------------------------------------------------------------
00743 ! (3) BLOCKS
00744 !-----------------------------------------------------------------------
00745 !
00746 !
00747 !     TRACERS AT PREVIOUS TIME STEP (TAN IN VERSIONS PRIOR TO 6.3
00748 !                                    WHICH WAS A CONFLICT WITH TANgent)
00749 !
00750       TYPE(BIEF_OBJ), TARGET :: TRN
00751 !
00752 !     TRACERS AFTER ADVECTION
00753 !
00754       TYPE(BIEF_OBJ), TARGET :: TAC
00755 !
00756 !     TRACERS AT CURRENT TIME STEP
00757 !
00758       TYPE(BIEF_OBJ), TARGET :: TA
00759 !
00760 !     EXPLICIT SOURCE TERM FOR TRACERS
00761 !
00762       TYPE(BIEF_OBJ), TARGET :: S0TA
00763 !
00764 !     IMPLICIT SOURCE TERM FOR TRACERS
00765 !
00766       TYPE(BIEF_OBJ), TARGET :: S1TA
00767 !
00768 !     PRESCRIBED TRACERS ON THE BOTTOM
00769 !
00770       TYPE(BIEF_OBJ), TARGET :: TABORF
00771 !
00772 !     PRESCRIBED TRACERS ON THE LATERAL BOUNDARY
00773 !
00774       TYPE(BIEF_OBJ), TARGET :: TABORL
00775 !
00776 !     PRESCRIBED TRACERS AT THE FREE SURFACE
00777 !
00778       TYPE(BIEF_OBJ), TARGET :: TABORS
00779 !
00780 !     LOGARITHMIC LAW FOR TRACERS: NU*DTA/DN = ATABO*TA + BTABO
00781 !
00782       TYPE(BIEF_OBJ), TARGET :: ATABOF
00783 !
00784 !     LOGARITHMIC LAW FOR TRACERS: NU*DTA/DN = ATABO*TA + BTABO
00785 !
00786       TYPE(BIEF_OBJ), TARGET :: BTABOF
00787 !
00788 !     LOGARITHMIC LAW FOR TRACERS: NU*DTA/DN = ATABO*TA + BTABO
00789 !
00790       TYPE(BIEF_OBJ), TARGET :: ATABOL
00791 !
00792 !     LOGARITHMIC LAW FOR TRACERS: NU*DTA/DN = ATABO*TA + BTABO
00793 !
00794       TYPE(BIEF_OBJ), TARGET :: BTABOL
00795 !
00796 !     LOGARITHMIC LAW FOR TRACERS: NU*DTA/DN = ATABO*TA + BTABO
00797 !
00798       TYPE(BIEF_OBJ), TARGET :: ATABOS
00799 !
00800 !     LOGARITHMIC LAW FOR TRACERS: NU*DTA/DN = ATABO*TA + BTABO
00801 !
00802       TYPE(BIEF_OBJ), TARGET :: BTABOS
00803 !
00804 !     TYPES OF BOUNDARY CONDITIONS FOR TRACERS ON THE BOTTOM
00805 !
00806       TYPE(BIEF_OBJ), TARGET :: LITABF
00807 !
00808 !     TYPES OF BOUNDARY CONDITIONS FOR TRACERS ON THE LATERAL BOUNDARY
00809 !
00810       TYPE(BIEF_OBJ), TARGET :: LITABL
00811 !
00812 !     TYPES OF BOUNDARY CONDITIONS FOR TRACERS AT THE FREE SURFACE
00813 !
00814       TYPE(BIEF_OBJ), TARGET :: LITABS
00815 !
00816 !     VISCOSITY
00817 !
00818       TYPE(BIEF_OBJ), TARGET :: VISCVI
00819 !
00820 !     DIFFUSIVITY FOR TRACERS
00821 !
00822       TYPE(BIEF_OBJ), TARGET :: VISCTA
00823 !
00824 !     BOTTOM GRADIENTS
00825 !
00826       TYPE(BIEF_OBJ), TARGET :: GRADZF
00827 !
00828 !     FREE SURFACE GRADIENT (BLOCK OF 2 COMPONENTS)
00829 !
00830       TYPE(BIEF_OBJ), TARGET :: GRADZS
00831 !
00832 !     OLD FREE SURFACE GRADIENT (BLOCK OF 2 COMPONENTS)
00833 !
00834       TYPE(BIEF_OBJ), TARGET :: GRADZN
00835 !
00836 !     2D MASK, FOR TELEMAC2D COMPATIBILITY
00837 !
00838       TYPE(BIEF_OBJ), TARGET :: MASK,MASK_3D
00839 !
00840 !     BLOCKS OF ARRAYS FOR THE USER
00841 !
00842       TYPE(BIEF_OBJ), TARGET :: PRIVE
00843 !
00844 !     BLOCKS OF ARRAYS FOR THE USER
00845 !
00846       TYPE(BIEF_OBJ), TARGET :: MAT2D, TM1
00847 !
00848 !     BLOCKS THAT WILL CONTAIN WORK STRUCTURES
00849 !
00850       TYPE(BIEF_OBJ), TARGET :: TRAV3,TRAV2,ITRAV3
00851 !
00852       TYPE(BIEF_OBJ), TARGET :: VARSOR, VARCL
00853 !
00854       TYPE(BIEF_OBJ), TARGET :: VARSO3
00855 !
00856 !     VALUES OF ADVECTED VARIABLES AT SOURCES
00857 !
00858       TYPE(BIEF_OBJ), TARGET :: U_SCE,V_SCE,W_SCE,AK_SCE,EP_SCE,TA_SCE
00859 !
00860 !     VOID BLOCK FOR CALL COMPATIBILITY
00861 !
00862       TYPE(BIEF_OBJ), TARGET :: BVIDE
00863 !
00864 !-----------------------------------------------------------------------
00865 ! (4) INTEGERS
00866 !-----------------------------------------------------------------------
00867 !
00868 !     KEYWORDS AND PARAMETERS
00869 !
00870 !     MAXIMUM OF SOURCE POINTS
00871 !
00872       INTEGER, PARAMETER :: MAXSCE = 100
00873 !
00874 !     MAXIMUM OF LIQUID BOUNDARIES
00875 !
00876       INTEGER, PARAMETER :: MAXFRO = 3000
00877 !
00878 !     MAXIMUM OF TRACERS
00879 !
00880       INTEGER, PARAMETER :: MAXTRA = 20
00881 !
00882 !     MAXIMUM OF OUTPUT VARIABLES
00883 !
00884       INTEGER, PARAMETER :: MAXVAR = 100
00885 !
00886 !     MAXIMUM OF OUTPUT VARIABLES FOR 3D
00887 !
00888       INTEGER, PARAMETER :: MAXVA3 = 100
00889 !
00890 !     ADDRESS OF TRACERS IN VARSO3
00891 !     IT IS COMPUTED IN POINT_TELEMAC3D, BUT IS USED BEFORE
00892 !
00893       INTEGER, PARAMETER :: ADR_TRAC = 29
00894 !
00895 !     NUMBER OF TIME STEPS
00896 !
00897       INTEGER NIT
00898 !
00899 !     NUMBER OF HORIZONTAL PLANES
00900 !
00901       INTEGER NPLAN
00902 !
00903 !     NUMBER OF TRACERS
00904 !
00905       INTEGER NTRAC
00906 !
00907 !     NUMBER OF PRESCRIBED TRACERS GIVEN
00908 !
00909       INTEGER NTRACER
00910 !
00911 !     PRINTOUT PERIOD FOR FLOATING BODIES
00912 !
00913       INTEGER FLOPRD
00914 !
00915 !     NUMBER OF DROGUES (CONSIDERED AS THE MAXIMUM)
00916 !
00917       INTEGER NFLOT_MAX,NFLOT
00918 !
00919 !     PRINTOUT PERIOD FOR RESULT FILE
00920 !
00921       INTEGER GRAPRD
00922 !
00923 !     LISTING PRINTOUT PERIOD
00924 !
00925       INTEGER LISPRD
00926 !
00927 !     NUMBER OF FIRST TIME STEP FOR GRAPHIC PRINTOUTS
00928 !
00929       INTEGER GRADEB
00930 !
00931 !     NUMBER OF FIRST TIME STEP FOR LISTING PRINTOUTS
00932 !
00933       INTEGER LISDEB
00934 !
00935 !     NUMBER OF BOTTOM SMOOTHINGS
00936 !
00937       INTEGER LISFON
00938 !
00939 !     NUMBER OF SUB ITERATIONS FOR NON LINEARITIES
00940 !
00941       INTEGER NSOUSI
00942 !
00943 !     HORIZONTAL TURBULENCE MODEL
00944 !
00945       INTEGER ITURBH
00946 !
00947 !     VERTICAL TURBULENCE MODEL
00948 !
00949       INTEGER ITURBV
00950 !
00951 !     TURBULENCE MODEL FOR THE BOTTOM
00952 !
00953       INTEGER LISRUF
00954 !
00955 !     TURBULENCE MODEL FOR LATERAL SOLID BOUNDARIES
00956 !
00957       INTEGER LISRUL
00958 !
00959 !     INITIAL GUESS FOR DEPTH
00960 !
00961       INTEGER IORDRH
00962 !
00963 !     SPATIAL PROJECTION TYPE
00964 !
00965       INTEGER PROTYP
00966 !
00967 !     NUMBER OF SOURCE POINTS
00968 !
00969       INTEGER NSCE
00970 !
00971 !     ADDRESSES OF SOURCE POINTS IN THE 2D MESH
00972 !
00973       INTEGER ISCE(MAXSCE)
00974 !
00975 !     PLANE NUMBERS OF SOURCE POINTS IN THE 2D MESH
00976 !
00977       INTEGER KSCE(MAXSCE)
00978 !
00979 !     NUMBER OF VELOCITIES OF SOURCES GIVEN
00980 !
00981       INTEGER NREJEU
00982 !
00983 !     SCHEME FOR ADVECTION OF VELOCITIES
00984 !
00985       INTEGER SCHCVI
00986 !
00987 !     SCHEME FOR ADVECTION OF TRACERS
00988 !
00989       INTEGER SCHCTA(MAXTRA)
00990 !
00991 !     SCHEME FOR ADVECTION OF K-EPSILON
00992 !
00993       INTEGER SCHCKE
00994 !
00995 !     SCHEME FOR ADVECTION OF DEPTH
00996 !
00997       INTEGER SCHCH
00998 !
00999 !     SCHEME FOR DIFFUSION OF VELOCITIES
01000 !
01001       INTEGER SCHDVI
01002 !
01003 !     SCHEME FOR DIFFUSION OF TRACERS
01004 !
01005       INTEGER SCHDTA
01006 !
01007 !     SCHEME FOR DIFFUSION OF K-EPSILON
01008 !
01009       INTEGER SCHDKE
01010 !
01011 !     TREATMENT ON TIDAL FLATS FOR VELOCITIES
01012 !
01013       INTEGER TRBAVI
01014 !
01015 !     TREATMENT ON TIDAL FLATS FOR TRACERS
01016 !
01017       INTEGER TRBATA
01018 !
01019 !     TREATMENT ON TIDAL FLATS FOR K-EPSILON
01020 !
01021       INTEGER TRBAKE
01022 !
01023 !     NUMBER OF BOUNDARIES WITH PRESCRIBED DISCHARGE
01024 !
01025       INTEGER NDEBIT
01026 !
01027 !     NUMBER OF BOUNDARIES WITH PRESCRIBED ELEVATION
01028 !
01029       INTEGER NCOTE
01030 !
01031 !     NUMBER OF BOUNDARIES WITH PRESCRIBED VELOCITY
01032 !
01033       INTEGER NVIT
01034 !
01035 !     ORIGINAL DATE OF TIME
01036 !
01037       INTEGER MARDAT(3)
01038 !
01039 !     ORIGINAL HOUR OF TIME
01040 !
01041       INTEGER MARTIM(3)
01042 !
01043 !     VECTOR LENGTH
01044 !
01045       INTEGER LVMAC
01046 !
01047 !     NUMBER OF ARRAYS IN BLOCK PRIVE
01048 !
01049       INTEGER NPRIV
01050 !
01051 !     RANK OF TEMPERATURE IN TRACERS
01052 !
01053       INTEGER IND_T
01054 !
01055 !     RANK OF SALINITY IN TRACERS
01056 !
01057       INTEGER IND_S
01058 !
01059 !     NUMBER OF POINTS IN THE ELEMENT
01060 !
01061       INTEGER NDP
01062 !
01063 !     LAW OF BOTTOM FRICTION
01064 !
01065       INTEGER KFROT
01066 !
01067 !     LAW OF FRICTION ON LATERAL BOUNDARIES
01068 !
01069       INTEGER KFROTL
01070 !
01071 !     MATRIX STORAGE
01072 !
01073       INTEGER OPTASS
01074 !
01075 !     MATRIX-VECTOR PRODUCT
01076 !
01077       INTEGER PRODUC
01078 !
01079 !     OPTION FOR THE TREATMENT OF TIDAL FLATS
01080 !
01081       INTEGER OPTBAN
01082 !
01083 !     TREATMENT OF NEGATIVE DEPTHS
01084 !
01085       INTEGER OPT_HNEG
01086 !
01087 !     OPTION FOR THE DIFFUSION OF VELOCITIES
01088 !
01089       INTEGER OPDVIT
01090 !
01091 !     OPTION FOR THE TREATMENT OF SOURCES
01092 !
01093       INTEGER OPTSOU
01094 !
01095 !     SUPG OPTION
01096 !
01097       INTEGER OPTSUP(4)
01098 !
01099 !     MATRIX STORAGE FOR 2D MATRICES
01100 !
01101       INTEGER OPTASS2D
01102 !
01103 !     3D DISCRETISATION TYPE
01104 !
01105       INTEGER IELM3
01106 !
01107 !     2D DISCRETISATION TYPES, HORIZONTAL, VERTICAL
01108 !
01109       INTEGER IELM2H,IELM2V
01110 !
01111 !     DISCRETISATION TYPES
01112 !
01113       INTEGER IELM0, IELMH, IELMU, IELM1, IELMX
01114 !
01115 !     NUMBER OF LAYERS OF 3D ELEMENTS (NPLAN - 1)
01116 !
01117       INTEGER NETAGE
01118 !
01119 !     NUMBER OF VARIABLES TREATED IN MASS BALANCE
01120 !
01121       INTEGER NVBIL
01122 !
01123 !     MAXIMUM NUMBER OF HORIZONTAL PLANES WITHIN THE BED (GIBSON MODEL)
01124 ! OBSOLETE, replaced by NCOUCH ou NLAYMAX
01125       INTEGER NPFMAX
01126 
01127 ! NEW
01128 !     NUMBER OF LAYERS WITHIN THE BED (MULTILAYER MODEL)
01129 !
01130       INTEGER NCOUCH
01131 !
01132 !     MIXING LENGTH MODEL
01133 !
01134       INTEGER MIXING
01135 !
01136 !     DAMPING FUNCTION
01137 !
01138       INTEGER DAMPING
01139 !
01140 !     VELOCITY PROFILES
01141 !
01142       INTEGER PROFVEL(MAXFRO)
01143 !
01144 !     TREATMENT OF FLUXES AT THE BOUNDARIES
01145 !
01146       INTEGER DIRFLU(0:MAXFRO)
01147 !
01148 !     VELOCITY VERTICAL PROFILES
01149 !
01150       INTEGER VERPROVEL(MAXFRO)
01151 !
01152 !     TRACERS VERTICAL PROFILES
01153 !
01154       INTEGER VERPROTRA(MAXFRO*MAXTRA)
01155 !
01156 !     NUMBER OF LIQUID BOUNDARIES, OF SOLID BOUNDARIES
01157 !     FIRST AND LAST POINTS OF THESE BOUNDARIES
01158 !
01159       INTEGER NFRLIQ,NFRSOL
01160       INTEGER DEBLIQ(MAXFRO),FINLIQ(MAXFRO)
01161       INTEGER DEBSOL(MAXFRO),FINSOL(MAXFRO)
01162 !
01163 !     CHOICE OF MESH TRANSFORMATION
01164 !
01165       INTEGER TRANSF
01166 !
01167 !     OPTION FOR THE DIFFUSION
01168 !
01169       INTEGER OPTDIF
01170 !
01171 !     CHOICE OF DENSITY LAW
01172 !
01173       INTEGER DENLAW
01174 !
01175 !     DELWAQ PRINTOUT PERIOD
01176 !
01177       INTEGER WAQPRD
01178 !
01179 !     ORIGIN COORDINATES
01180 !
01181       INTEGER I_ORIG,J_ORIG
01182 !
01183 !     NUMBER OF POINTS GIVEN FOR EACH DISCHARGE-ELEVATIONS CURVES
01184 !
01185       INTEGER PTS_CURVES(MAXFRO)
01186 !
01187 !     STAGE-DISCHARGE CURVES
01188 !
01189       INTEGER STA_DIS_CURVES(MAXFRO)
01190 !
01191 !     KEYWORD DEBUGGER
01192 !
01193       INTEGER DEBUG
01194 !
01195 !     SKIN FRICTION
01196 !
01197       INTEGER ICR
01198 !
01199 !     Equilibrium transport formula
01200 !
01201       INTEGER ICQ
01202 !
01203 !     RECORD NUMBER IN THE WAVE DRIVEN CURRENTS FILE
01204 !
01205       INTEGER NPTH
01206 !
01207 !     GEOMETRY FILE NUMBER
01208 !
01209       INTEGER T3DGEO
01210 !
01211 !     BOUNDARY CONDITIONS FILE NUMBER
01212 !
01213       INTEGER T3DCLI
01214 !
01215 !     PREVIOUS COMPUTATION FILE NUMBER
01216 !
01217       INTEGER T3DPRE
01218 !
01219 !     RESULT FILE NUMBER
01220 !
01221       INTEGER T3DRES
01222 !
01223 !     BOTTOM TOPOGRAPHY FILE NUMBER
01224 !
01225       INTEGER T3DFON
01226 !
01227 !     FILE NUMBER FOR SCOPE
01228 !
01229       INTEGER T3DSCO
01230 !
01231 !     2D RESULT FILE NUMBER
01232 !
01233       INTEGER T3DHYD
01234 !
01235 !     FORMATTED DATA FILE 1
01236 !
01237       INTEGER T3DFO1
01238 !
01239 !     FORMATTED DATA FILE 2
01240 !
01241       INTEGER T3DFO2
01242 !
01243 !     BINARY DATA FILE 1
01244 !
01245       INTEGER T3DBI1
01246 !
01247 !     BINARY DATA FILE 2
01248 !
01249       INTEGER T3DBI2
01250 !
01251 !     SEDIMENTOLOGICAL RESULT FILE
01252 !
01253       INTEGER T3DSED
01254 !
01255 !     PREVIOUS COMPUTATION SEDIMENTOLOGICAL FILE
01256 !
01257       INTEGER T3DSUS
01258 !
01259 !     REFERENCE FILE NUMBER
01260 !
01261       INTEGER T3DREF
01262 !
01263 !     LIQUID BOUNDARIES FILE NUMBER
01264 !
01265       INTEGER T3DIMP
01266 !
01267 !     FILES FOR DELWAQ
01268 !
01269       INTEGER T3DDL1,T3DDL2,T3DDL3,T3DDL4,T3DDL5,T3DDL6,T3DDL7,T3DDL8
01270       INTEGER T3DDL9,T3DL10,T3DL11
01271 !
01272 !     STAGE-DISCHARGE CURVES FILE NUMBER
01273 !
01274       INTEGER T3DPAR
01275 !
01276 !     SOURCES FILE NUMBER
01277 !
01278       INTEGER T3DVEF
01279 !
01280 !     BINARY RESULTS FILE NUMBER
01281 !
01282       INTEGER T3DRBI
01283 !
01284 !     FORMATTED RESULTS FILE NUMBER
01285 !
01286       INTEGER T3DRFO
01287 !
01288 !     MIGRHYCAR STEERING FILE
01289 !
01290       INTEGER T3DMIG
01291 !
01292 !     RESTART FILE
01293 !
01294       INTEGER T3DRST
01295 !
01296 !     HARMONIC CONSTANTS FILE NUMBER
01297 !
01298       INTEGER T3DHAR
01299 !
01300 !     TIDAL MODEL FILE NUMBER
01301 !
01302       INTEGER T3DTID
01303 !
01304 !     ASCII TIDAL MODEL DATABASE FILE NUMBER
01305 !
01306       INTEGER T3DBDD
01307 !
01308 !     BINARY TIDAL MODEL DATABASES 1 AND 2 FILE NUMBER
01309 !
01310       INTEGER T3DBB1,T3DBB2
01311 !
01312 !     DROGUES FILE
01313 !
01314       INTEGER T3DFLO
01315 !
01316 !     FILE FOR 2D CONTINUATION
01317 !
01318       INTEGER T3DS2D
01319 !
01320 !     NUMBER OF VARIABLES TO BE ADVECTED BY A GIVEN SCHEME
01321 !     AND THEIR LIST IN THE LIST OF ADVECTED VARIABLES
01322 !     S_ADV: ASSOCIATED ADVECTION SCHEME
01323 !     NOM_ADV: RANK TO FIND THE NAME IN TEXT3
01324 !
01325       INTEGER N_ADV(0:15),LIST_ADV(100,0:15),S_ADV(5+MAXTRA)
01326       INTEGER NOM_ADV(5+MAXTRA)
01327 !
01328 !     COUPLING PERIODS FOR SISYPHE AND TOMAWAC
01329 !
01330       INTEGER PERCOU_SIS,PERCOU_WAC
01331 !
01332 !     BOUNDARY CONDITION ON THE BOTTOM
01333 !
01334       INTEGER BC_BOTTOM
01335 !
01336 !     THOMPSON BOUNDARY CONDITIONS
01337 !
01338       INTEGER FRTYPE(MAXFRO)
01339 !
01340 !     VERTICAL VELOCITY DERIVATIVES
01341 !
01342       INTEGER LINLOG
01343 !
01344 !     RECORD NUMBER FOR RESTART
01345 !
01346       INTEGER START_RECORD
01347 !
01348 !     OPTION FOR TIDAL BOUNDARY CONDITIONS
01349 !
01350       INTEGER TIDALTYPE
01351 !
01352 !     TIDAL DATA BASE
01353 !
01354       INTEGER TIDALDB
01355 !
01356 !     GEOGRAPHIC SYSTEM
01357 !
01358       INTEGER GEOSYST
01359 !
01360 !     ZONE NUMBER IN GEOGRAPHIC SYSTEM
01361 !
01362       INTEGER NUMZONE
01363 !
01364 !     FOR MONITORING K-EPSILON MODEL (SEE SUBROUTINE CSTKEP)
01365 !
01366       INTEGER OPTPROD,LIMKF,LIMEF,LIMKS,LIMES
01367 !
01368 !     MAXIMUM NUMBER OF ITERATIONS FOR ADVECTION SCHEMES
01369 !
01370       INTEGER MAXADV
01371 !
01372 !     OPTION FOR CHARACTERISTICS,
01373 !     NUMBER OF GAUSS POINTS FOR WEAK CHARACTERISTICS
01374 !
01375       INTEGER OPTCHA,NGAUSS
01376 !
01377 !     ATMOSPHERE-WATER EXCHANGE MODEL
01378 !
01379       INTEGER ATMOSEXCH
01380 !
01381 !     MASS-LUMPING FOR WEAK CHARACTERISTICS
01382 !
01383       DOUBLE PRECISION AGGLOW
01384 !
01385 !-----------------------------------------------------------------------
01386 ! (5) LOGICAL VALUES
01387 !-----------------------------------------------------------------------
01388 !
01389 !     LOGICAL STEERING PARAMETERS
01390 !
01391       LOGICAL DEBU,   PROP
01392 !
01393 !     IF YES, CORIOLIS
01394 !
01395       LOGICAL CORIOL
01396 !
01397 !     IF YES, WIND TAKEN INTO ACCOUNT
01398 !
01399       LOGICAL VENT
01400 !
01401 !     AIR PRESSURE
01402 !
01403       LOGICAL ATMOS
01404 !
01405 !     IF YES, SEDIMENT
01406 !
01407       LOGICAL SEDI
01408 !
01409 !     IF YES, TIDAL FLATS
01410 !
01411       LOGICAL BANDEC
01412 !
01413 !     IF YES, PROPAGATION LINEARISED
01414 !
01415       LOGICAL PROLIN
01416 !
01417 !     IF YES, MASS BALANCE
01418 !
01419       LOGICAL BILMAS
01420 !
01421 !     INFORMATION ABOUT MASS-BALANCE FOR EACH LISTING PRINTOUT
01422 !
01423       LOGICAL INFMAS
01424 !
01425 !     IF YES, MESH WITH SIGMA TRANSFORMATION
01426 !
01427       LOGICAL SIGMAG
01428 !
01429 !     IF YES, HYDROSTATIC INCONSISTENCY FILTER
01430 !
01431       LOGICAL INCHYD
01432 !
01433 !     ARRAYS SAYING IF A VARIABLE IS TO BE PRINTED IN RESULTS FILES
01434 !
01435       LOGICAL SORG2D(MAXVAR),SORG3D(MAXVA3),SOREST(MAXVA3)
01436 !
01437 !     ARRAYS SAYING IF A VARIABLE IS TO BE PRINTED IN THE LISTING
01438 !
01439       LOGICAL SORIMP(MAXVAR),SORIM3(MAXVA3),SORIS3(MAXVA3)
01440 !
01441 !     IF YES, CONTINUATION FROM A 2D FILE
01442 !
01443       LOGICAL SUIT2
01444 !
01445 !     IF YES, RAIN OR EVAPORATION
01446 !
01447       LOGICAL RAIN
01448 !
01449 !     IF YES, STABILISED INITIAL CONDITION
01450 !
01451       LOGICAL CONSOL
01452 !
01453 !     IF YES, ELEMENTS MASKED BY USER
01454 !
01455       LOGICAL MSKUSE
01456 !
01457 !     DIF(I) WILL SAY IF DIFFUSION SOLVER I IS USED FOR AT LEAST ONE OF THE VARIABLES
01458 !
01459       LOGICAL DIF(0:2)
01460 !
01461 !     IF YES, SPHERICAL COORDINATES (NOT IMPLEMENTED)
01462 !
01463       LOGICAL SPHERI
01464 !
01465 !     IF YES, THERE ARE MASKED ELEMENTS
01466 !
01467       LOGICAL MSK
01468 !
01469 !     IF YES, LISTING PRINTOUT
01470 !
01471       LOGICAL LISTIN
01472 !
01473 !     IF YES, INFORMATION PRINTED ON LISTING
01474 !
01475       LOGICAL INFOGR
01476 !
01477 !     IF YES, VALIDATION
01478 !
01479       LOGICAL VALID
01480 !
01481 !     IF YES,  CONSOLIDATION MODEL
01482 !
01483       LOGICAL TASSE
01484 !
01485 !     CHOICE OF MODEL
01486 !
01487       INTEGER ITASS
01488 !
01489 !     IF YES, GIBSON CONSOLIDATION MODEL
01490 !
01491       LOGICAL GIBSON
01492 !
01493 !     IF YES, INFLUENCE OF TURBULENCE ON SETTLING VELOCITY
01494 !
01495       LOGICAL TURBWC
01496 !
01497 !     IF YES, COHESIVE SEDIMENT
01498 !
01499       LOGICAL SEDCO
01500 !
01501 !     IF YES, NON-HYDROSTATIC VERSION
01502 !
01503       LOGICAL NONHYD
01504 !
01505 !     CONSISTENT PROJECTION (OBSOLETE...)
01506 !
01507       LOGICAL CONPRO
01508 !
01509 !     FOR INITIALISATION OF K-EPSILON (SET IN CONDIM)
01510 !
01511       LOGICAL AKEP
01512 !
01513 !     FOR INITIALISATION OF K-OMEGA (SET IN CONDIM)
01514 !
01515       LOGICAL AKOM
01516 !
01517 !     IF YES, INITIAL TIME RESET TO ZERO IN A COMPUTATION CONTINUED
01518 !
01519       LOGICAL RAZTIM
01520 !
01521 !     IF YES, DYNAMIC PRESSURE IN WAVE EQUATION
01522 !
01523       LOGICAL DPWAVEQ
01524 !
01525 !     IF YES, DYNAMIC BOUNDARY CONDITION
01526 !
01527       LOGICAL CLDYN
01528 !
01529 !     IF YES, SALINITY FOR DELWAQ
01530 !
01531       LOGICAL SALI_DEL
01532 !
01533 !     IF YES, TEMPERATURE FOR DELWAQ
01534 !
01535       LOGICAL TEMP_DEL
01536 !
01537 !     IF YES, VELOCITY FOR DELWAQ
01538 !
01539       LOGICAL VELO_DEL
01540 !
01541 !     IF YES, DIFFUSION FOR DELWAQ
01542 !
01543       LOGICAL DIFF_DEL
01544 !
01545 !     IF YES, WAVE DRIVEN CURRENTS
01546 !
01547       LOGICAL COUROU
01548 !
01549 !     IF YES, BYPASS VOID VOLUMES
01550 !
01551       LOGICAL BYPASS
01552 !
01553 !     PROJECTION OF VELOCITY ON LATERAL SOLID BOUNDARIES
01554 !
01555       LOGICAL VELPROLAT
01556 !
01557 !     PROJECTION OF VELOCITY ON BOTTOM
01558 !
01559       LOGICAL VELPROBOT
01560 !
01561 !     FOR CALCULATING FLUXES OF ADVECTED VARIABLES
01562 !
01563       LOGICAL CALCFLU(5+MAXTRA)
01564 !
01565 !     FOR TAKING INTO ACCOUNT RAIN IN ADVECTION OF VARIABLES
01566 !
01567       LOGICAL CALCRAIN(5+MAXTRA)
01568 !
01569 !     OIL SPILL MODEL
01570 !
01571       LOGICAL SPILL_MODEL
01572 !
01573 !     THOMFR (TRUE IF ONE OF THE VALUES IN FRTYPE IS 2)
01574 !
01575       LOGICAL THOMFR
01576 !
01577 !     RESTART MODE (TO GENERATE A RESTART FILE)
01578 !
01579       LOGICAL RESTART_MODE
01580 !
01581 !     IF YES, INFERENCE OF MINOR CONSTITUENTS
01582 !
01583       LOGICAL INTMICON
01584 !
01585 !     FOR MONITORING K-EPSILON MODEL (SEE SUBROUTINE CSTKEP)
01586 !
01587       LOGICAL CLIPK,CLIPE,YAP,WSIK
01588 !
01589 !     TIDE GENERATING FORCE
01590 !
01591       LOGICAL MAREE
01592 !
01593 !###<TBE/DMK changes
01594 !     EXPLICIT SCHEME FOR SETTLING
01595       LOGICAL  READ_TOCE
01596       INTEGER SETDEP
01597 !###<TBE/DMK changes
01598 !
01599 !     MIXED SEDIMENT, NON COHESIVE SEDIMENT
01600 !
01601       LOGICAL MIXTE,SEDNCO
01602 !
01603 !-----------------------------------------------------------------------
01604 ! (6) REALS
01605 !-----------------------------------------------------------------------
01606 !
01607 !     TIME
01608 !
01609       DOUBLE PRECISION AT
01610 !
01611 !     TIMESTEP
01612 !
01613       DOUBLE PRECISION DT
01614 !
01615 !     DURATION
01616 !
01617       DOUBLE PRECISION DUREE
01618 !
01619 !     GRAVITY ACCELERATION
01620 !
01621       DOUBLE PRECISION GRAV
01622 !
01623 !     CORIOLIS COEFFICIENT
01624 !
01625       DOUBLE PRECISION FCOR
01626 !
01627 !     DRAG COEFFICIENT OF WIND
01628 !
01629       DOUBLE PRECISION FAIR
01630 !
01631 !     WIND VELOCITY ALONG X, AND Y
01632 !
01633       DOUBLE PRECISION FUAIR,FVAIR
01634 !
01635 !     AIR TEMPERATURE
01636 !
01637       DOUBLE PRECISION TAIR
01638 !
01639 !     WATER DENSITY AT REFERENCE CONCENTRATION
01640 !
01641       DOUBLE PRECISION RHO0
01642 !
01643 !     FRICTION COEFFICIENT FOR THE BOTTOM
01644 !
01645       DOUBLE PRECISION RUGOF0
01646 !
01647 !     FRICTION COEFFICIENT FOR LATERAL SOLID BOUNDARIES
01648 !
01649       DOUBLE PRECISION RUGOL0
01650 !
01651 !     ZERO
01652 !
01653       DOUBLE PRECISION ZERO
01654 !
01655 !     MINIMAL VALUE FOR DEPTH
01656 !
01657       DOUBLE PRECISION HMIN
01658 !
01659 !     MEAN DEPTH FOR LINEARIZATION
01660 !
01661       DOUBLE PRECISION HAULIN
01662 !
01663 !     COEFFICIENT FOR HORIZONTAL DIFFUSION OF VELOCITIES
01664 !
01665       DOUBLE PRECISION DNUVIH
01666 !
01667 !     COEFFICIENT FOR VERTICAL DIFFUSION OF VELOCITIES
01668 !
01669       DOUBLE PRECISION DNUVIV
01670 !
01671 !     COEFFICIENT FOR HORIZONTAL DIFFUSION OF TRACERS
01672 !
01673       DOUBLE PRECISION DNUTAH
01674 !
01675 !     COEFFICIENT FOR VERTICAL DIFFUSION OF TRACERS
01676 !
01677       DOUBLE PRECISION DNUTAV
01678 !
01679 !     INITIAL DEPTH
01680 !
01681       DOUBLE PRECISION HAUTIN
01682 !
01683 !     INITIAL ELEVATION
01684 !
01685       DOUBLE PRECISION COTINI
01686 !
01687 !     RAIN OR EVAPORATION IN MM PER DAY
01688 !
01689       DOUBLE PRECISION RAIN_MMPD
01690 !
01691 !     IMPLICITATION FOR DEPTH
01692 !
01693       DOUBLE PRECISION TETAH
01694 !
01695 !     IMPLICITATION FOR VELOCITIES
01696 !
01697       DOUBLE PRECISION TETAU
01698 !
01699 !     IMPLICITATIONS FOR DIFFUSION ?
01700 !
01701       DOUBLE PRECISION TETAD,TETADI
01702 !
01703 !     MASS-LUMPING FOR DEPTH, DIFFUSION, VELOCITIES
01704 !
01705       DOUBLE PRECISION AGGLOH,AGGLOD,AGGLOU
01706 !
01707 !     ARRAY OF PRESCRIBED FLOWRATES, ELEVATIONS, VELOCITIES
01708 !
01709       DOUBLE PRECISION DEBIMP(MAXFRO),COTIMP(MAXFRO),VITIMP(MAXFRO)
01710 !
01711 !     BETA EXPANSION COEFFICIENT FOR TRACERS
01712 !
01713       DOUBLE PRECISION BETAC(MAXTRA)
01714 !
01715 !     REFERENCE CONCENTRATION OF TRACERS
01716 !
01717       DOUBLE PRECISION T0AC(MAXTRA)
01718 !
01719 !     INITIAL VALUES OF TRACERS
01720 !
01721       DOUBLE PRECISION TRAC0(MAXTRA)
01722 !
01723 !     VALUES OF TRACERS IN THE RAIN
01724 !
01725       DOUBLE PRECISION TRAIN(MAXTRA)
01726 !
01727 !     DENSITY OF THE SEDIMENT
01728 !
01729       DOUBLE PRECISION RHOS
01730 !
01731 !     CRITICAL SHEAR STRESS FOR DEPOSITION
01732 !
01733       DOUBLE PRECISION TOCD
01734 !
01735 !     CONCENTRATION (G/L) OF FRESH DEPOSITS
01736 !
01737       DOUBLE PRECISION CFDEP
01738 !
01739 ! CV: non cohesive bed porosity
01740 !
01741       DOUBLE PRECISION XKV
01742 !
01743 !     REFERENCE BED LAYER THICKNESS FOR NEW LAYER CREATION
01744 !
01745       DOUBLE PRECISION EPAI0
01746 !
01747 !     TIMESTEP FOR CONSOLIDATION
01748 !
01749       DOUBLE PRECISION DTC
01750 !
01751 !     CONCENTRATION (G/L) OF THE CONSOLIDATED MUD
01752 !
01753       DOUBLE PRECISION CFMAX
01754 !
01755 !     EROSION COEFFICIENT (EMPIRICAL PARTHENIADES COEFFICIENT)
01756 !
01757       DOUBLE PRECISION MPART
01758 !
01759 !     CRITICAL SHEAR STRESS FOR EROSION (FRESH DEPOSIT)
01760 ! CV : now an array
01761 !      DOUBLE PRECISION TOCE
01762 !
01763 !     FLOCULATION COEFFICIENT
01764 !
01765       DOUBLE PRECISION TURBA
01766 !
01767 !     COEFFICIENT RELATIVE TO FLOC DESTRUCTION
01768 !
01769       DOUBLE PRECISION TURBB
01770 !
01771 !     CONSOLIDATION TIME SCALE (ONLY FOR MULTILAYER MODEL)
01772 !
01773       DOUBLE PRECISION TREST(30)
01774 !
01775 !     CONSTANT SEDIMENT SETTLING VELOCITY (M/S)
01776 !
01777       DOUBLE PRECISION WCHU0
01778 !
01779 !     MEAN DIAMETER OF THE SEDIMENT
01780 !
01781       DOUBLE PRECISION D50
01782 !
01783 !     GEOGRAPHICAL LATITUDE IN GRAD, POSITIVE FOR NORTHERN AND NEGATIVE ON SOUTHERN HEMISPHERE
01784 !
01785       DOUBLE PRECISION PHILAT
01786 !
01787 !     UPWIND COEFFICIENT (BETWEEN 0 AND 1)
01788 !
01789       DOUBLE PRECISION DELTA
01790 !
01791 !     LATITUDE AND LONGITUDE OF THE ORIGIN POINT
01792 !
01793       DOUBLE PRECISION LATIT,LONGIT
01794 !
01795 !     NORTH
01796 !
01797       DOUBLE PRECISION NORD
01798 !
01799 !     FREE SURFACE GRADIENT COMPATIBILITY IN WAVE EQUATION
01800 !
01801       DOUBLE PRECISION TETAZCOMP
01802 !
01803 !     ABSCISSAE, ORDINATES AND ELEVATIONS OF SOURCES
01804 !
01805       DOUBLE PRECISION XSCE(MAXSCE),YSCE(MAXSCE),ZSCE(MAXSCE)
01806 !
01807 !     VELOCITIES OF THE SOURCES ALONG X, Y
01808 !
01809       DOUBLE PRECISION USCE(MAXSCE),VSCE(MAXSCE)
01810 !
01811 !     WATER DISCHARGE OF SOURCES TAKEN FROM STEERING FILE
01812 !
01813       DOUBLE PRECISION QSCE(MAXSCE)
01814 !
01815 !     WATER DISCHARGE OF SOURCES COMPUTED WITH T3D_DEBSCE (VARIATIONS IN TIME)
01816 !
01817       DOUBLE PRECISION QSCE2(MAXSCE)
01818 !
01819 !     VALUE OF THE TRACERS AT THE SOURCES TAKEN FROM STEERING FILE
01820 !
01821       DOUBLE PRECISION TASCE(MAXSCE,MAXTRA)
01822 !
01823 !     PRESCRIBED VALUES OF TRACERS AT LIQUID BOUNDARIES
01824 !
01825       DOUBLE PRECISION TRACER(MAXFRO*MAXTRA)
01826 !
01827 !     RATIO BETWEEN SKIN FRICTION AND MEAN DIAMETER
01828 !
01829       DOUBLE PRECISION KSPRATIO
01830 !
01831 !     SHIELDS PARAMETER
01832 !
01833       DOUBLE PRECISION AC
01834 !
01835 !     FLUX AT BOUNDARIES
01836 !
01837       DOUBLE PRECISION FLUX_BOUNDARIES(MAXFRO)
01838 !
01839 !     FOR STORING DISCHARGE-ELEVATION CURVES
01840 !
01841       DOUBLE PRECISION, ALLOCATABLE :: QZ(:,:,:)
01842 !
01843 !     THRESHOLD DEPTH FOR WIND
01844 !
01845       DOUBLE PRECISION HWIND
01846 !
01847 !     CUMULATED FLUXES OF WATER SINCE BEGINNING OF COMPUTATION
01848 !
01849       DOUBLE PRECISION FLUXTOTCUM
01850 !
01851 !     INITIAL, PAST AND PRESENT MASS OF WATER
01852 !
01853       DOUBLE PRECISION MASINI_WATER, MASSEN_WATER,MASSE_WATER
01854 !
01855 !     THRESHOLD FOR VISCOSITY CORRECTION ON TIDAL FLATS
01856 !
01857       DOUBLE PRECISION HLIM
01858 !
01859 !     THRESHOLD FOR VISCOSITY CORRECTION ON TIDAL FLATS
01860 !
01861       DOUBLE PRECISION HSED
01862 
01863 !
01864 !     COEFFICIENT TO CALIBRATE TIDAL RANGE
01865 !
01866       DOUBLE PRECISION CTIDE
01867 !
01868 !     COEFFICIENT TO CALIBRATE TIDAL VELOCITIES
01869 !
01870       DOUBLE PRECISION CTIDEV
01871 !
01872 !     COEFFICIENT TO CALIBRATE SEA LEVEL
01873 !
01874       DOUBLE PRECISION MSL
01875 !
01876 !     COEFFICIENT TO CALIBRATE THE ATMOSPHERE-WATER EXCHANGE MODEL
01877 !
01878       DOUBLE PRECISION C_ATMOS
01879 !
01880 !     SETTLING VELOCITY OF SAND
01881 !
01882       DOUBLE PRECISION WCS0
01883       TYPE(BIEF_OBJ), TARGET :: WCS
01884 !
01885 !     INITIAL PERCENTAGE OF NON COHESIVE SEDIMENT
01886 !
01887       DOUBLE PRECISION PVSNCO0
01888 !
01889 !-----------------------------------------------------------------------
01890 ! (7) STRINGS
01891 !-----------------------------------------------------------------------
01892 !
01893 !     TITLE
01894 !
01895       CHARACTER(LEN=72) TITCAS
01896 !
01897 !     VARIABLES FOR GRAPHIC PRINTOUTS
01898 !
01899       CHARACTER(LEN=72) SORT3D,SORT2D
01900 !
01901 !
01902 !
01903       CHARACTER(LEN=72) VARIMP
01904 !
01905 !
01906 !
01907       CHARACTER(LEN=72) VARIM3
01908 !
01909 !     INITIAL CONDITIONS
01910 !
01911       CHARACTER(LEN=72) CDTINI
01912 !
01913 !     CHOICE OF ELEMENT
01914 !
01915       CHARACTER(LEN=72) ELEMENT
01916 !
01917 !
01918 !
01919       CHARACTER(LEN=3)  BINGEO
01920 !
01921 !
01922 !
01923       CHARACTER(LEN=3)  BINRES
01924 !
01925 !
01926 !
01927       CHARACTER(LEN=3)  BINPRE
01928 !
01929 !
01930 !
01931       CHARACTER(LEN=3)  BINHYD
01932 !
01933 !     CHOICE OF EQUATIONS TO SOLVE
01934 !
01935       CHARACTER(LEN=20) EQUA
01936 !
01937 !
01938 !
01939       CHARACTER(LEN=32) VARCLA(10)
01940 !
01941 !     NAMES OF VARIABLES RECOGNISED FROM RESULTS AND GEOMETRY FILES
01942 !
01943       CHARACTER(LEN=32) TEXTE(MAXVAR)
01944 !
01945 !     NAMES OF VARIABLES RECOGNISED FROM PREVIOUS COMPUTATION FILE
01946 !
01947       CHARACTER(LEN=32) TEXTPR(MAXVAR)
01948 !
01949 !
01950 !
01951       CHARACTER(LEN=32) TEXT3(MAXVA3)
01952 !
01953 !
01954 !
01955       CHARACTER(LEN=32) TEXTP3(MAXVA3)
01956 !
01957 !
01958 !
01959       CHARACTER(LEN=3) BIRSED
01960 !
01961 !
01962 !
01963       CHARACTER(LEN=3) BISUIS
01964 !
01965 !
01966 !
01967       CHARACTER(LEN=32) NAMETRAC(32)
01968 !
01969 !-----------------------------------------------------------------------
01970 ! (8) SLVCFG STRUCTURES
01971 !-----------------------------------------------------------------------
01972 !
01973 !     SOLVER FOR DIFFUSION OF VELOCITIES
01974 !
01975       TYPE(SLVCFG) :: SLVDVI
01976 !
01977 !     SOLVER FOR PROPAGATION
01978 !
01979       TYPE(SLVCFG) :: SLVPRO
01980 !
01981 !     SOLVER FOR DIFFUSION OF K-EPSILON
01982 !
01983       TYPE(SLVCFG) :: SLVDKE
01984 !
01985 !     SOLVER FOR DIFFUSION OF TRACERS
01986 !
01987       TYPE(SLVCFG) :: SLVDTA(MAXTRA)
01988 !
01989 !     SOLVER FOR VERTICAL VELOCITY COMPONENT
01990 !
01991       TYPE(SLVCFG) :: SLVW
01992 !
01993 !     SOLVER FOR DIFFUSION OF THE SEDIMENT
01994 !
01995       TYPE(SLVCFG) :: SLVDSE
01996 !
01997 !     SOLVER FOR PPE (NON-HYDROSTATIC)
01998 !
01999       TYPE(SLVCFG) :: SLVPOI
02000 !
02001 !     SOLVER FOR PROJECTION (NON-HYDROSTATIC)
02002 !
02003       TYPE(SLVCFG) :: SLVPRJ
02004 !
02005 !-----------------------------------------------------------------------
02006 ! (9) MESH STRUCTURE(S)
02007 !-----------------------------------------------------------------------
02008 ! 2 SEPARATE MESHES, 2D AS USUAL AND 3D WITH SIGMA-MESH SPECIFIC
02009 ! FEATURES, SEE ALMESH.F
02010 !
02011 !     2D MESH WITH SIGMA-MESH SPECIFIC FEATURES
02012 !
02013       TYPE(BIEF_MESH) :: MESH2D
02014 !
02015 !     3D MESH WITH SIGMA-MESH SPECIFIC FEATURES
02016 !
02017       TYPE(BIEF_MESH) :: MESH3D
02018 !
02019 !-----------------------------------------------------------------------
02020 ! (10) ALIASES
02021 !-----------------------------------------------------------------------
02022 !
02023 !     DECLARATION OF POINTERS FOR ALIASES
02024 !     TARGETS ARE ALLOCATED AND POINTED TO IN POINT_TELEMAC3D
02025 !
02026 !     ALIASES FOR WORKING VECTORS, REAL 3D, INTEGER 3D, REAL 2D
02027 !
02028 !
02029 !     BIEF_OBJ STRUCTURES FOR ARRAYS OF DIMENSION NPOIN3
02030 !
02031       TYPE(BIEF_OBJ), POINTER :: T3_01,T3_02,T3_03,T3_04,T3_05
02032       TYPE(BIEF_OBJ), POINTER :: T3_06,T3_07,T3_08,T3_09,T3_10
02033       TYPE(BIEF_OBJ), POINTER :: T3_11,T3_12,T3_13,T3_14,T3_15
02034       TYPE(BIEF_OBJ), POINTER :: T3_16,T3_17,T3_18
02035 !
02036 !     BIEF_OBJ STRUCTURES FOR INTEGER ARRAYS
02037 !
02038       TYPE(BIEF_OBJ), POINTER :: IT1, IT2, IT3, IT4
02039 !
02040 !     BIEF_OBJ STRUCTURE FOR LOCAL WORK, DIMENSION NPOIN2
02041 !
02042       TYPE(BIEF_OBJ), POINTER :: T2_01,T2_02,T2_03,T2_04,T2_05
02043       TYPE(BIEF_OBJ), POINTER :: T2_06,T2_07,T2_08,T2_09,T2_10
02044       TYPE(BIEF_OBJ), POINTER :: T2_11,T2_12,T2_13,T2_14,T2_15
02045       TYPE(BIEF_OBJ), POINTER :: T2_16,T2_17,T2_18,T2_19,T2_20
02046       TYPE(BIEF_OBJ), POINTER :: T2_21,T2_22,T2_23
02047 !
02048 !     2D NODE COORDINATES
02049 !
02050       TYPE(BIEF_OBJ), POINTER :: X2,Y2
02051 !
02052 !     3D NODE COORDINATES
02053 !
02054       TYPE(BIEF_OBJ), POINTER :: X3,Y3,Z3
02055 !
02056 !     3D ELEMENT-ORIENTED WORKING FIELD ALLOCATED WITH THE MESH
02057 !
02058       TYPE(BIEF_OBJ), POINTER :: W1
02059 !
02060 !     BASE TRIANGLE SURFACES
02061 !
02062       TYPE(BIEF_OBJ), POINTER :: SURFA2
02063 !
02064 !     TRIANGLE SURFACES, IN 3D
02065 !
02066       TYPE(BIEF_OBJ), POINTER :: SURFA3
02067 !
02068 !     LATERAL BOUNDARY NORMAL VECTORS DEFINED AT THE NODES
02069 !
02070       TYPE(BIEF_OBJ), POINTER :: XNEBOR2
02071 !
02072 !     LATERAL BOUNDARY NORMAL VECTORS DEFINED AT THE NODES
02073 !
02074       TYPE(BIEF_OBJ), POINTER :: YNEBOR2
02075 !
02076 !     2D NORMAL VECTORS DEFINED PER BOUNDARY SEGMENT
02077 !
02078       TYPE(BIEF_OBJ), POINTER :: XSGBOR2
02079 !
02080 !     2D NORMAL VECTORS DEFINED PER BOUNDARY SEGMENT
02081 !
02082       TYPE(BIEF_OBJ), POINTER :: YSGBOR2
02083 !
02084 !     3D NORMAL VECTORS DEFINED PER BOUNDARY ELEMENT
02085 !
02086       TYPE(BIEF_OBJ), POINTER :: XSGBOR3
02087 !
02088 !     3D NORMAL VECTORS DEFINED PER BOUNDARY ELEMENT
02089 !
02090       TYPE(BIEF_OBJ), POINTER :: YSGBOR3
02091 !
02092 !     3D NORMAL VECTORS DEFINED PER BOUNDARY ELEMENT
02093 !
02094       TYPE(BIEF_OBJ), POINTER :: ZSGBOR3
02095 !
02096 !     CONNECTIVITY TABLES IN 2D  : (ELEMENT NUMBER AND LOCAL NODE NUMBER) --> GLOBAL NODE NUMBER
02097 !
02098       TYPE(BIEF_OBJ), POINTER :: IKLE2
02099 !
02100 !     CONNECTIVITY TABLES IN 3D : (ELEMENT NUMBER AND LOCAL NODE NUMBER) --> GLOBAL NODE NUMBER
02101 !
02102       TYPE(BIEF_OBJ), POINTER :: IKLE3
02103 !
02104 !     CONNECTIVITY TABLES IN 2D : (NODE BOUNDARY NUMBER) --> GLOBAL NODE NUMBER
02105 !
02106       TYPE(BIEF_OBJ), POINTER :: NBOR2
02107 !
02108 !     CONNECTIVITY TABLES IN 3D : (NODE BOUNDARY NUMBER) --> GLOBAL NODE NUMBER
02109 !
02110       TYPE(BIEF_OBJ), POINTER :: NBOR3
02111 !
02112 !     COORDINATES OF POINTS IN THE 3D MESH
02113 !
02114       DOUBLE PRECISION, DIMENSION(:), POINTER :: X
02115 !
02116 !     COORDINATES OF POINTS IN THE 3D MESH
02117 !
02118       DOUBLE PRECISION, DIMENSION(:), POINTER :: Y
02119 !
02120 !     COORDINATES OF POINTS IN THE 3D MESH
02121 !
02122       DOUBLE PRECISION, DIMENSION(:), POINTER :: Z
02123 !
02124 !     NUMBER OF ELEMENTS IN THE 2D MESH
02125 !
02126       INTEGER, POINTER:: NELEM2
02127 !
02128 !     NUMBER OF ELEMENTS IN THE 3D MESH
02129 !
02130       INTEGER, POINTER:: NELEM3
02131 !
02132 !     MAXIMUM NUMBER OF ELEMENTS IN THE 2D MESH
02133 !
02134       INTEGER, POINTER:: NELMAX2
02135 !
02136 !     MAXIMUM NUMBER OF ELEMENTS IN THE 3D MESH
02137 !
02138       INTEGER, POINTER:: NELMAX3
02139 !
02140 !     NUMBER OF BOUNDARY POINTS IN THE 2D MESH
02141 !
02142       INTEGER, POINTER:: NPTFR2
02143 !
02144 !     NUMBER OF BOUNDARY POINTS IN THE 3D MESH
02145 !
02146       INTEGER, POINTER:: NPTFR3
02147 !
02148 !
02149 !
02150       INTEGER, POINTER:: NELEB, NELEBX
02151 !
02152 !     MAXIMUM NUMBER OF BOUNDARY POINTS IN THE 2D MESH
02153 !
02154       INTEGER, POINTER:: NPTFRX2
02155 !
02156 !     MAXIMUM NUMBER OF BOUNDARY POINTS IN THE 3D MESH
02157 !
02158       INTEGER, POINTER:: NPTFRX3
02159 !
02160 !     DIMENSION OF 2D SPACE
02161 !
02162       INTEGER, POINTER:: DIM2
02163 !
02164 !     DIMENSION OF 3D SPACE
02165 !
02166       INTEGER, POINTER:: DIM3
02167 !
02168 !     TYPE OF 2D ELEMENT
02169 !
02170       INTEGER, POINTER:: TYPELM2
02171 !
02172 !     TYPE OF 3D ELEMENT
02173 !
02174       INTEGER, POINTER:: TYPELM3
02175 !
02176 !     NUMBER OF POINTS IN THE 2D MESH
02177 !
02178       INTEGER, POINTER:: NPOIN2
02179 !
02180 !     NUMBER OF POINTS IN THE 3D MESH
02181 !
02182       INTEGER, POINTER:: NPOIN3
02183 !
02184 !     MAXIMUM NUMBER OF POINTS IN THE 2D MESH
02185 !
02186       INTEGER, POINTER:: NPMAX2
02187 !
02188 !     MAXIMUM NUMBER OF POINTS IN THE 3D MESH
02189 !
02190       INTEGER, POINTER:: NPMAX3
02191 !
02192 !     MAXIMUM NUMBER OF POINTS NEIGHBOURS OF A POINT IN 2D
02193 !
02194       INTEGER, POINTER:: MXPTVS2
02195 !
02196 !     MAXIMUM NUMBER OF POINTS NEIGHBOURS OF A POINT IN 3D
02197 !
02198       INTEGER, POINTER:: MXPTVS3
02199 !
02200 !     MAXIMUM NUMBER OF ELEMENTS NEIGHBOURS OF A POINT IN 2D
02201 !
02202       INTEGER, POINTER:: MXELVS2
02203 !
02204 !     MAXIMUM NUMBER OF ELEMENTS NEIGHBOURS OF A POINT IN 3D
02205 !
02206       INTEGER, POINTER:: MXELVS3
02207 !
02208 !     VECTOR LENGTH OF THE MACHINE (LV2=LV3, FOR SIGMA MESH)
02209 !
02210       INTEGER, POINTER:: LV
02211 !
02212 !-----------------------------------------------------------------------
02213 ! (11) CONSTANTS INITIALISED IN CSTKEP AND CREF_FREDSOE (FOR ZREF)
02214 !-----------------------------------------------------------------------
02215 !
02216 !
02217 !     FOR MONITORING K-EPSILON MODEL (SEE SUBROUTINE CSTKEP)
02218 !
02219       DOUBLE PRECISION PERNORM2,PERPROD,RIMIN,RIMAX
02220 !
02221 !     VON KARMAN CONSTANT
02222 !
02223       DOUBLE PRECISION :: KARMAN
02224 !
02225 !     K-EPSILON CONSTANT
02226 !
02227       DOUBLE PRECISION :: CMU
02228 !
02229 !     K-EPSILON CONSTANTS
02230 !
02231       DOUBLE PRECISION :: C1,C2,SIGMAK,SIGMAE,VIRT
02232 !
02233 !     SCHMIDT NUMBER
02234 !
02235       DOUBLE PRECISION :: SCHMIT
02236 !
02237 !     MINIMUM K
02238 !
02239       DOUBLE PRECISION :: KMIN
02240 !
02241 !     MAXIMUM K
02242 !
02243       DOUBLE PRECISION :: KMAX
02244 !
02245 !     MINIMUM EPSILON
02246 !
02247       DOUBLE PRECISION :: EMIN
02248 !
02249 !     MAXIMUM EPSILON
02250 !
02251       DOUBLE PRECISION :: EMAX
02252 !
02253 !     PRANDTL NUMBER
02254 !
02255       DOUBLE PRECISION :: PRANDTL
02256 !
02257 ! CV 7.0
02258 !    FOND FICTIF : DZ1/FICTIF
02259 !
02260       DOUBLE PRECISION :: FICT
02261 !
02262 !     K-OMEGA MODEL CONSTANTS
02263 !
02264       DOUBLE PRECISION :: ALPHA,BETA,BETAS,OMSTAR
02265 !
02266 !
02267 !
02268       TYPE(BIEF_OBJ), TARGET :: ZREF
02269 !
02270 !-----------------------------------------------------------------------
02271 !
02272 !      12) TELEMAC-3D FILES
02273 !
02274 !-----------------------------------------------------------------------
02275 !
02276 !
02277 !     MAXIMUM NUMBER OF FILES
02278 !
02279       INTEGER, PARAMETER :: MAXLU_T3D = 49
02280 !
02281 !     DATA STRUCTURE WITH DATA ON FILES
02282 !
02283       TYPE(BIEF_FILE) :: T3D_FILES(MAXLU_T3D)
02284 !
02285       SAVE
02286 !
02287       END MODULE DECLARATIONS_TELEMAC3D

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