declarations_sisyphe.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\sisyphe\declarations_sisyphe.f
00002 !
00074                      MODULE DECLARATIONS_SISYPHE
00075 !                    ***************************
00076 !
00077 !
00078 !***********************************************************************
00079 ! SISYPHE   V6P3                                   12/02/2013
00080 !***********************************************************************
00081 !
00082 !
00083 !
00084 !
00085 !
00086 !
00087 !
00088 !
00089 !
00090 !
00091 !
00092 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00093 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00094 !
00095 !
00096 !       NOTE: THIS MODULE IS ORGANISED IN 10 PARTS
00097 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00098 !
00099       USE BIEF_DEF
00100 !
00101 !       NOTE: THIS MODULE IS ORGANISED IN 10 PARTS
00102 !
00103 !       1) VECTORS (WILL BE DECLARED AS BIEF_OBJ STRUCTURES)
00104 !       2) MATRICES (WILL BE DECLARED AS BIEF_OBJ STRUCTURES)
00105 !       3) BLOCKS (WILL BE DECLARED AS BIEF_OBJ STRUCTURES)
00106 !       4) INTEGERS
00107 !       5) LOGICAL VALUES
00108 !       6) REALS
00109 !       7) STRINGS
00110 !       8) SLVCFG STRUCTURES
00111 !       9) MESH STRUCTURE
00112 !      10) ALIASES
00113 !
00114 !-----------------------------------------------------------------------
00115 !
00116 !       1) VECTORS
00117 !
00118 !-----------------------------------------------------------------------
00119 !
00120 !     EVOLUTION
00121 !
00122       TYPE(BIEF_OBJ), TARGET :: E
00123 !
00124 !     EVOLUTION SAVED FOR CONSTANT FLOW DISCHARGE
00125 !
00126       TYPE(BIEF_OBJ), TARGET :: ECPL
00127 !
00128 !     FREE SURFACE ELEVATION
00129 !
00130       TYPE(BIEF_OBJ), TARGET :: Z
00131 !
00132 !     INCREMENT OF FREE SURFACE ELEVATION WHEN READING AN HYDRO FILE
00133 !
00134       TYPE(BIEF_OBJ), TARGET :: DEL_Z
00135 !
00136 !     EVOLUTION DUE TO BEDLOAD
00137 !
00138       TYPE(BIEF_OBJ), TARGET :: ZF_C
00139 !
00140 !     EVOLUTION DUE TO SUSPENSION
00141 !
00142       TYPE(BIEF_OBJ), TARGET :: ZF_S
00143 !
00144 !     CUMULATED BED EVOLUTION
00145 !
00146       TYPE(BIEF_OBJ), TARGET :: ESOMT
00147 !
00148 !     MAXIMUM EVOLUTION
00149 !
00150       TYPE(BIEF_OBJ), TARGET :: EMAX
00151 !
00152 !     COMPONENTS OF DEPTH-AVERAGED FLOW RATE
00153 !
00154       TYPE(BIEF_OBJ), TARGET :: QU
00155 !
00156 !     COMPONENTS OF DEPTH-AVERAGED FLOW RATE
00157 !
00158       TYPE(BIEF_OBJ), TARGET :: QV
00159 !
00160 !     INCREMENTS OF FLOW RATE COMPONENTS WHEN READING AN HYDRO FILE
00161 !
00162       TYPE(BIEF_OBJ), TARGET :: DEL_QU
00163 !
00164 !     INCREMENTS OF FLOW RATE COMPONENTS WHEN READING AN HYDRO FILE
00165 !
00166       TYPE(BIEF_OBJ), TARGET :: DEL_QV
00167 ! JWI 31/05/2012 - added lines to include wave orbital velocities
00170       TYPE(BIEF_OBJ), TARGET :: DEL_UW
00171 ! JWI END
00172 !
00173 !     FLOW RATE
00174 !
00175       TYPE(BIEF_OBJ), TARGET :: Q
00176 !
00177 !     SOLID DISCHARGE
00178 !
00179       TYPE(BIEF_OBJ), TARGET :: QS
00180 !
00181 !     SOLID DISCHARGE ,ALONG X AND Y
00182 !
00183       TYPE(BIEF_OBJ), TARGET :: QSX,QSY
00184 !
00185 !     SOLID DISCHARGE (BEDLOAD)
00186 !
00187       TYPE(BIEF_OBJ), TARGET :: QS_C
00188 !
00189 !     SOLID DISCHARGE (BEDLOAD), ALONG X AND Y
00190 !
00191       TYPE(BIEF_OBJ), TARGET :: QSXC,QSYC
00192 !
00193 !     SOLID DISCHARGE (SUSPENSION)
00194 !
00195       TYPE(BIEF_OBJ), TARGET :: QS_S
00196 !
00197 !     SOLID DISCHARGE (SUSPENSION), ALONG X AND Y
00198 !
00199       TYPE(BIEF_OBJ), TARGET :: QSXS,QSYS
00200 !
00201 !     WATER DEPTH
00202 !
00203       TYPE(BIEF_OBJ), TARGET :: HN
00204 !
00205 !     DEPTH AFTER CLIPPING
00206 !
00207       TYPE(BIEF_OBJ), TARGET :: HCLIP
00208 !
00209 !     COMPONENTS OF DEPTH-AVERAGED VELOCITY
00210 !
00211       TYPE(BIEF_OBJ), TARGET :: U2D,V2D
00212 !
00213 !     FLOW INTENSITY
00214 !
00215       TYPE(BIEF_OBJ), TARGET :: UNORM
00216 !
00217 !     WATER DEPTH SAVED FOR CONSTANT FLOW DISCHARGE
00218 !
00219       TYPE(BIEF_OBJ), TARGET :: HCPL
00220 !
00221 !     IMPOSED BED EVOLUTION AT THE BOUNDARY
00222 !
00223       TYPE(BIEF_OBJ), TARGET :: EBOR
00224 !
00225 !     IMPOSED SOLID TRANSPORT AT THE BOUNDARY
00226 !     QBOR : IN M3/S, FOR EVERY CLASS
00227 !     Q2BOR: IN M2/S, TOTAL, READ IN THE BOUNDARY CONDITIONS FILE
00228 !
00229       TYPE(BIEF_OBJ), TARGET :: QBOR,Q2BOR
00230 !
00231 !     ZF VALUES ON BOUNDARIES
00232 !
00233       TYPE(BIEF_OBJ), TARGET :: FLBOR
00234 !
00235 !     BOTTOM ELEVATION
00236 !
00237       TYPE(BIEF_OBJ), TARGET :: ZF
00238 !
00239 !     NON ERODABLE (RIGID) BOTTOM ELEVATION
00240 !
00241       TYPE(BIEF_OBJ), TARGET :: ZR
00242 !
00243 !     REFERENCE ELEVATION
00244 !
00245       TYPE(BIEF_OBJ), TARGET :: ZREF
00246 !
00247 !     INTEGRAL OF BASES
00248 !
00249       TYPE(BIEF_OBJ), TARGET :: VOLU2D
00250 !
00251 !     INTEGRAL OF BASES IN PARALLEL
00252 !
00253       TYPE(BIEF_OBJ), TARGET :: V2DPAR
00254 !
00255 !     INVERSE OF INTEGRAL OF BASES
00256 !
00257       TYPE(BIEF_OBJ), TARGET :: UNSV2D
00258 !
00259 !     BOTTOM FRICTION COEFFICIENT (CHEZY, NIKURADSE OR STRICKLER)
00260 !
00261       TYPE(BIEF_OBJ), TARGET :: CHESTR
00262 !
00263 !     ANGLE BETWEEN QS AND Q
00264 !
00265       TYPE(BIEF_OBJ), TARGET :: CALFA
00266 !
00267 !     ANGLE BETWEEN QS AND Q
00268 !
00269       TYPE(BIEF_OBJ), TARGET :: SALFA
00270 !
00271 !     VOID STRUCTURE
00272 !
00273       TYPE(BIEF_OBJ), TARGET :: S
00274 !
00275 !     MASK ON POINTS
00276 !
00277       TYPE(BIEF_OBJ), TARGET :: MASKPT
00278 !
00279 !     MASK
00280 !
00281       TYPE(BIEF_OBJ), TARGET :: MASKTR
00282 !
00283 !     MASK
00284 !
00285       TYPE(BIEF_OBJ), TARGET :: MASKB
00286 !
00287 !     MASK
00288 !
00289       TYPE(BIEF_OBJ), TARGET :: MASKEL
00290 !
00291 !     MASK
00292 !
00293       TYPE(BIEF_OBJ), TARGET :: MSKTMP
00294 !
00295 !     WORKING ARRAYS
00296 !
00297       TYPE(BIEF_OBJ), TARGET :: W1
00298 !
00299 ! WAVE DATA
00300 ! --------
00301 !
00302 !     WAVE DIRECTION (DEG WRT OX AXIS)    !!!!!SOME SAY OY AXIS!!!!!
00303 !
00304       TYPE(BIEF_OBJ), TARGET :: THETAW
00305 !
00306 !     FRICTION COEFFICIENT (WAVES)
00307 !
00308       TYPE(BIEF_OBJ), TARGET :: FW
00309 !
00310 !     ORBITAL VELOCITY
00311 !
00312       TYPE(BIEF_OBJ), TARGET :: UW
00313 !
00314 !     SIGNIFICANT WAVE HEIGHT
00315 !
00316       TYPE(BIEF_OBJ), TARGET :: HW
00317 !
00318 !     MEAN WAVE PERIOD
00319 !
00320       TYPE(BIEF_OBJ), TARGET :: TW
00321 !
00322 !
00323 !
00324       TYPE(BIEF_OBJ), TARGET :: INDIC,IFAMAS
00325 !
00326 !     INTEGER WORKING ARRAYS
00327 !
00328       TYPE(BIEF_OBJ), TARGET :: IT1,IT2,IT3,IT4
00329 !
00330 !     TYPE OF BOUNDARY CONDITIONS ON BED EVOLUTION
00331 !
00332       TYPE(BIEF_OBJ), TARGET :: LIEBOR
00333 !
00334 !     TYPE OF BOUNDARY CONDITIONS ON SAND TRANSPORT RATE
00335 !
00336       TYPE(BIEF_OBJ), TARGET :: LIQBOR
00337 !
00338 !     TYPE OF BOUNDARY CONDITIONS
00339 !
00340       TYPE(BIEF_OBJ), TARGET :: LIMTEC
00341 !
00342 !     IMPACT OF THE SLOPE EFFECT ON AMPLITUDE
00343 !
00344       TYPE(BIEF_OBJ), TARGET :: COEFPN
00345 !
00346 !     LIQUID BOUNDARY NUMBERING
00347 !
00348       TYPE(BIEF_OBJ), TARGET :: NUMLIQ
00349 !
00350 !     SHEAR STRESS
00351 !
00352       TYPE(BIEF_OBJ), TARGET :: TOB
00353 !
00354 !     FRICTION COEFFICIENT
00355 !
00356       TYPE(BIEF_OBJ), TARGET :: CF
00357 !
00358 !     WAVE INDUCED SHEAR STRESS
00359 !
00360       TYPE(BIEF_OBJ), TARGET :: TOBW
00361 !
00362 !     rapport entre la contrainte de frottement de peau et la contrainte totale
00363 !
00364       TYPE(BIEF_OBJ), TARGET :: MU
00365 !
00366 !     rugosite totale
00367 !
00368       TYPE(BIEF_OBJ), TARGET :: KS
00369 !
00370 !     rugosite de peau
00371 !
00372       TYPE(BIEF_OBJ), TARGET :: KSP
00373 !
00374 !     rugosite de ride
00375 !
00376       TYPE(BIEF_OBJ), TARGET :: KSR
00377 !
00378 !     BED LEVEL CHANGE FOR GRAIN-FEEDING
00379 !
00380       TYPE(BIEF_OBJ), TARGET :: DZF_GF
00381 !
00382 !     MEAN DIAMETER OF ACTIVE-LAYER
00383 !
00384       TYPE(BIEF_OBJ), TARGET :: ACLADM
00385 !
00386 !     MEAN DIAMETER OF UNDER-LAYER
00387 !
00388       TYPE(BIEF_OBJ), TARGET :: UNLADM
00389 !
00390 !     NUMBER OF LAYERS FOR EACH POINT
00391 !
00392       TYPE(BIEF_OBJ), TARGET :: NLAYER
00393 !
00394 !     HIDING FACTOR FOR PARTICULAR SIZE CLASS
00395 !
00396       TYPE(BIEF_OBJ), TARGET :: HIDING
00397 !
00398 !
00399 !
00400       TYPE(BIEF_OBJ), TARGET :: ELAY
00401 !
00402 !     ACTIVE STRATUM THICKNESS
00403 !
00404       TYPE(BIEF_OBJ), TARGET :: ESTRAT
00405 !
00406 !     DEPOSITION FLUX
00407 !
00408       TYPE(BIEF_OBJ), TARGET :: FLUDP
00409 !
00410 !     DEPOSITION FLUX
00411 !
00412       TYPE(BIEF_OBJ), TARGET :: FLUDPT
00413 !
00414 !     EROSION FLUX
00415 !
00416       TYPE(BIEF_OBJ), TARGET :: FLUER
00417 !
00418 !     EROSION FLUX
00419 !
00420       TYPE(BIEF_OBJ), TARGET :: FLUERT
00421 !
00422 !     CONCENTRATION AT TIME N
00423 !
00424       TYPE(BIEF_OBJ), TARGET :: CS
00425 
00426 !     MAK CHANGE create parameter for ratio depth averaged and reference concentration.
00427 !     TYPE(BIEF_OBJ), TARGET :: CST, CTILD, CSTAEQ
00428       TYPE(BIEF_OBJ), TARGET :: CST, CTILD, CSTAEQ, CSRATIO
00429 !
00430 !     IMPOSED SUSPENDED SAND CONCENTRATION AT THE BOUNDARY (DIM.NPTFR)
00431 !
00432       TYPE(BIEF_OBJ), TARGET :: CBOR
00433 !
00434 !     CONCENTRATION IN G/L
00435 !
00436       TYPE(BIEF_OBJ), TARGET :: CSGL
00437 !
00438 !     COMPONENTS OF VELOCITY VECTORS
00439 !
00440       TYPE(BIEF_OBJ), TARGET ::  UCONV,VCONV
00441 !
00442 !     PROPAGATION HEIGHT
00443 !
00444       TYPE(BIEF_OBJ), TARGET :: HPROP
00445 !
00446 !
00447 !
00448       TYPE(BIEF_OBJ), TARGET :: DISP,DISP_C
00449 !
00450 !     FLUX CONDITION NU DF/DN=AFBOR * F + BFBOR
00451 !
00452       TYPE(BIEF_OBJ), TARGET :: AFBOR,BFBOR
00453 !
00454 !     FLUX AT THE BOUNDARIES
00455 !
00456       TYPE(BIEF_OBJ), TARGET :: FLBOR_SIS
00457 !
00458 !     FLUX AT THE BOUNDARIES FOR TRACER
00459 !
00460       TYPE(BIEF_OBJ), TARGET :: FLBORTRA
00461 !
00462 !     BOUNDARY CONDITIONS FOR SEDIMENT                     : LICBOR
00463 !     TYPES OF BOUNDARY CONDITIONS FOR H                   : LIHBOR
00464 !     TYPES OF BOUNDARY CONDITIONS FOR PROPAGATION         : LIMPRO
00465 !                    POINTS   :    .1:H  .2:U  .3:V
00466 !                    SEGMENTS :    .4:H  .5:U  .6:V
00467 !
00468 !     TYPE OF BOUNDARY CONDITIONS ON SUSPENDED SAND CONCENTRATION
00469 !
00470       TYPE(BIEF_OBJ), TARGET :: LICBOR
00471 !
00472 !     TYPE OF BOUNDARY CONDITIONS FOR H
00473 !
00474       TYPE(BIEF_OBJ), TARGET :: LIHBOR
00475 !
00476 !     TYPE OF BOUNDARY CONDITIONS FOR PROPAGATION
00477 !
00478       TYPE(BIEF_OBJ), TARGET :: LIMPRO
00479 !
00480 !     TYPE OF BOUNDARY CONDITIONS FOR DIFFUSION
00481 !
00482       TYPE(BIEF_OBJ), TARGET :: LIMDIF
00483 !
00484 !     LAST COLUMN OF THE BOUNDARY CONDITION FILE
00485 !
00486       TYPE(BIEF_OBJ), TARGET :: BOUNDARY_COLOUR
00487 !
00488 !     BOUNDARY CONDITIONS FOR TRACER, U AND V (MODIFIED LITBOR, LIUBOR,LIVBOR)
00489 !
00490       TYPE(BIEF_OBJ), TARGET :: CLT,CLU,CLV
00491 !
00492 !     WORK ARRAYS FOR ELEMENTS
00493 !
00494       TYPE(BIEF_OBJ), TARGET :: TE1,TE2,TE3
00495 !
00496 !     COEFFICIENTS OF THE DISPERSION TENSOR (DIM. NPOIN)
00497 !
00498       TYPE(BIEF_OBJ), TARGET :: KX,KY,KZ
00499 !
00500 !     ARRAY SAYING WHETHER THE NON-ERODABLE BOTTOM HAS BEEN REACHED (VF)
00501 !
00502       TYPE(BIEF_OBJ), TARGET :: BREACH
00503 !
00504 !     FOR MIXED SEDIMENTS
00505 !
00506       TYPE(BIEF_OBJ), TARGET :: FLUER_VASE,TOCE_MIXTE,MS_SABLE,MS_VASE
00507 !
00508 !-----------------------------------------------------------------------
00509 !
00510 !       2) MATRICES
00511 !
00512 !-----------------------------------------------------------------------
00513 !
00514 !     BOUNDARY MATRIX
00515 !
00516       TYPE(BIEF_OBJ), TARGET :: MBOR
00517 !
00518 !     MATRICES
00519 !
00520       TYPE(BIEF_OBJ), TARGET :: AM1_S,AM2_S
00521 !
00522 !-----------------------------------------------------------------------
00523 !
00524 !       3) BLOCKS
00525 !
00526 !-----------------------------------------------------------------------
00527 !
00528 !     BLOCK OF MASKS
00529 !
00530       TYPE(BIEF_OBJ), TARGET :: MASK
00531 !
00532 !     BLOCK OF WORKING ARRAYS
00533 !
00534       TYPE(BIEF_OBJ), TARGET :: TB
00535 !
00536 !     BLOCK OF PRIVATE VECTORS
00537 !
00538       TYPE(BIEF_OBJ), TARGET :: PRIVE
00539 !
00540 !     BLOCK OF CLANDESTINE VARIABLES
00541 !
00542       TYPE(BIEF_OBJ), TARGET :: VARCL
00543 !
00544 !     BLOCK OF VARIABLES FOR INPUT
00545 !
00546       TYPE(BIEF_OBJ), TARGET :: VARHYD
00547 !
00548 !     BLOCK OF VARIABLES FOR OUTPUT
00549 !
00550       TYPE(BIEF_OBJ), TARGET :: VARSOR
00551 
00552 ! UHM / PAT
00553 
00554 !     VERTICAL SORTING PROFILE: FRACTION FOR EACH LAYER, CLASS, POINT
00555 
00556       DOUBLE PRECISION,DIMENSION(:,:,:),TARGET,ALLOCATABLE::PRO_F
00557 
00558 !     VERTICAL SORTING PROFILE: DEPTH FOR EACH LAYER, CLASS, POINT
00559 
00560       DOUBLE PRECISION,DIMENSION(:,:,:),TARGET,ALLOCATABLE::PRO_D
00561 
00562 ! UHM / PAT
00563 
00564 !
00565 !     SEDIMENT FRACTION FOR EACH LAYER, CLASS, POINT
00566 !
00567       DOUBLE PRECISION,DIMENSION(:,:,:),TARGET,ALLOCATABLE::AVAIL
00568 !
00569 !     LAYER THICKNESSES AS DOUBLE PRECISION
00570 !
00571       DOUBLE PRECISION,DIMENSION(:,:),TARGET,ALLOCATABLE :: ES
00572 !
00573 !     LAYER THICKNESSES OF THE MUD AS DOUBLE PRECISION
00574 !
00575       DOUBLE PRECISION,DIMENSION(:,:),TARGET,ALLOCATABLE :: ES_VASE
00576 !
00577 !     LAYER THICKNESSES OF THE SAND AS DOUBLE PRECISION
00578 !
00579       DOUBLE PRECISION,DIMENSION(:,:),TARGET,ALLOCATABLE :: ES_SABLE
00580 !
00581 !     SEDIMENT COMPOSITION
00582 !
00583       TYPE(BIEF_OBJ), TARGET :: AVAI
00584 !
00585 !     LAYER THICKNESSES
00586 !
00587       TYPE(BIEF_OBJ), TARGET :: LAYTHI
00588 
00590       TYPE(BIEF_OBJ), TARGET :: LAYCONC
00591 
00593       TYPE(BIEF_OBJ), TARGET :: QSCL
00594 
00596       TYPE(BIEF_OBJ), TARGET :: QSCL_C
00597 
00599       TYPE(BIEF_OBJ), TARGET :: QSCLXC, QSCLYC
00600 
00602       TYPE(BIEF_OBJ), TARGET :: QSCL_S
00603 
00605       TYPE(BIEF_OBJ), TARGET :: QSCLXS, QSCLYS
00606 
00608       TYPE(BIEF_OBJ), TARGET :: ZFCL
00609 
00611       TYPE(BIEF_OBJ), TARGET :: ZFCL_C
00612 
00614       TYPE(BIEF_OBJ), TARGET :: ZFCL_S
00615 
00617       TYPE(BIEF_OBJ), TARGET :: ZFCL_MS
00618 
00621       TYPE(BIEF_OBJ), TARGET :: MPM_ARAY
00622 !
00623 !     FLUX LIMITATION PER SEGMENT
00624 !
00625       TYPE(BIEF_OBJ), TARGET :: FLULIM
00626 !
00627 !     FLUXES AT BOUNDARY FOR EVERY CLASS
00628 !
00629       TYPE(BIEF_OBJ), TARGET :: FLBCLA
00630 !
00631 !     CV modifs V6P2 new variables for consolidation model
00632 !
00633 !     VOID INDEX OF BED LAYERS
00634 !
00635       DOUBLE PRECISION,DIMENSION(:,:),TARGET,ALLOCATABLE::IVIDE
00636 !
00637 !     CONCENTRATION OF BED LAYER
00638 !
00639       DOUBLE PRECISION,DIMENSION(:,:),TARGET,ALLOCATABLE::CONC
00640 !
00641 !-----------------------------------------------------------------------
00642 !
00643 !       4) INTEGERS
00644 !
00645 !-----------------------------------------------------------------------
00646 !
00647 !      KEYWORDS AND PARAMETERS
00648 
00649 !     Maximum Layer Number in a VERTICAL SORTING PROFILE FOR EACH POINT (UHM)
00650       INTEGER, ALLOCATABLE :: PRO_MAX(:)
00651 !
00652 !      MAXIMUM NUMBER OF OUTPUT VARIABLES
00653 !
00654       INTEGER, PARAMETER :: MAXVAR = 500
00655 !
00656 !     MAXIMUM NUMBER OF (LIQUID BOUNDARIES, SOLID BOUNDARIES)
00657 !
00658       INTEGER, PARAMETER :: MAXFRO = 3000
00659 !
00660 !     NUMBER OF LIQUID, SOLID BOUNDARIES
00661 !
00662       INTEGER NFRLIQ,NFRSOL
00663 !
00664 !     BEGINNING AND END OF LIQUID BOUNDARIES
00665 !
00666       INTEGER DEBLIQ(MAXFRO),FINLIQ(MAXFRO)
00667 !
00668 !     BEGINNING AND END OF SOLID BOUNDARIES
00669 !
00670       INTEGER DEBSOL(MAXFRO),FINSOL(MAXFRO)
00671 !
00672 !     OPTION FOR THE DIFFUSION OF TRACER
00673 !
00674       INTEGER OPDTRA
00675 
00677       INTEGER OPTDIF
00678 
00680       INTEGER OPTSUP
00681 
00683       INTEGER :: NCONDIS
00684 
00686       INTEGER KFROT
00687 
00689       INTEGER ICF
00690 
00692       INTEGER NPAS
00693 
00695       INTEGER NMAREE
00696 
00698       INTEGER LEOPR
00699 
00701       INTEGER LISPR
00702 
00704       INTEGER NVARCL
00705 
00707       INTEGER IELMT,IELMH_SIS,IELMU_SIS,IELMX
00708 
00710       INTEGER STDGEO
00711 
00713       INTEGER LOGDES ,LOGPRE ,OPTBAN ,LVMAC
00714 
00716       INTEGER HYDRO
00717 
00719       INTEGER OPTASS
00720 
00722       INTEGER NSOUS
00723 
00725       INTEGER MARDAT(3),MARTIM(3),PRODUC
00726 !
00727 !     OPTION FOR THE TREATMENT OF NON ERODABLE BEDS
00728 !
00729       INTEGER CHOIX
00730 
00732       INTEGER PTINIL,PTINIG
00733 
00735       INTEGER NPRIV
00736 
00738       INTEGER PERCOU
00739 
00741       INTEGER LT
00742 
00744       INTEGER RESOL
00745 
00747       INTEGER DEPER
00748 !
00749 !     FORMULA FOR DEVIATION
00750 !
00751       INTEGER DEVIA
00752 !
00753 !     FORMULA FOR SLOPE EFFECT
00754 !
00755       INTEGER SLOPEFF
00756 !
00757 ! NON-EQUILIBRIUM BEDLOAD AND NON-UNIFORM BED MATERIA (BMD AND MGDL)
00758 ! --------
00759 !
00760 !     MAXIMUM NUMBER OF SIZE-CLASSES
00761 !
00762       INTEGER, PARAMETER :: NSICLM = 10
00763 !
00764 !     NUMBER OF SIZE-CLASSES OF BED MATERIAL (LESS THAN 10)
00765 !
00766       INTEGER :: NSICLA
00767 !
00768 !     MAXIMUM NUMBER OF LAYERS ON THE MESH
00769 !
00770       INTEGER, PARAMETER :: NLAYMAX = 20
00771 !
00772 !     NUMBER OF BED LOAD MODEL LAYERS
00773 !
00774       INTEGER NOMBLAY
00775 !
00776 !     FORMULATION FOR THE HIDING FACTOR
00777 !
00778       INTEGER HIDFAC
00779 !
00780       INTEGER :: LOADMETH
00781 !
00782 !     DEBUGGER
00783 !
00784       INTEGER :: DEBUG
00785 !
00786 !     REFERENCE CONCENTRATION FORMULA
00787 !
00788       INTEGER :: ICQ
00789 !
00790 !     NUMBER OF CONTROL SECTIONS POINTS
00791 !
00792       INTEGER NCP
00793 !
00794 !     ARRAY CONTAINING THE GLOBAL NUMBER OF THE POINTS IN THE CONTROL SECTIONS
00795 !
00796       INTEGER, ALLOCATABLE :: CTRLSC(:)
00797 !
00798 !     COORDINATES OF THE ORIGIN
00799 !
00800       INTEGER I_ORIG,J_ORIG
00801 !
00802 !     NUMBER OF LAYERS FOR CONSOLIDATION
00803 !
00804       INTEGER NCOUCH_TASS
00805 !
00806 !     SKIN FRICTION CORRECTION
00807 !
00808       INTEGER ICR
00809 !
00810 !     BED ROUGHNESS PREDICTOR OPTION
00811 !
00812       INTEGER IKS
00813 !
00814 !     CONSOLIDATION MODEL
00815 !
00816       INTEGER ITASS
00817 !
00818 !     TREATMENT OF FLUXES AT THE BOUNDARIES
00819 !
00820       INTEGER DIRFLU
00821 !
00822 !     NUMBER OF GIVEN SSOLID DISCHARGES GIVEN BY USER
00823 !
00824       INTEGER NSOLDIS
00825 !
00826 !// UHM // For the Continous Vertical Sorting MODEL
00827 !
00828 !     Type of the Vertical Grain Sorting: Hirano Layers or Continous-VSM
00829 !
00830       INTEGER VSMTYPE
00831 !
00832 !     Maximum Number of Profile SECTIONS
00833 !
00834       INTEGER PRO_MAX_MAX
00835 !
00836 !     Printout Period for Full Vertical Sorting Model: PRO_D & PRO_F
00837 !
00838       INTEGER CVSMPPERIOD
00839 !
00840 !     CHOOSE POINTS or FULL MODEL AS PRINTOUT
00841 !
00842       INTEGER CVSMOUTPUT(100)    !Limited to 100 for no specific reason
00843 !
00844 !     CHOOSE A MODEL FOR ESTIMATION OF A DYNAMIC ACTIVE LAYER THICKNESS
00845 !
00846       INTEGER ALT_MODEL
00847 !
00848 !     MAXIMUM NUMBER OF ITERATIONS FOR ADVECTION SCHEMES
00849 !
00850       INTEGER MAXADV
00851 !
00852 !     SCHEME OPTION FOR ADVECTION
00853 !
00854       INTEGER OPTADV
00855 !
00856 !-----------------------------------------------------------------------
00857 !
00858 !       5) LOGICAL VALUES
00859 !
00860 !-----------------------------------------------------------------------
00861 !
00862 !
00863 !  C-VSM WRITES OUT (OR NOT) IN THIS TIMESTEP
00864 !
00865       LOGICAL :: CVSM_OUT !UHM
00866 
00867 !  C-VSM_FULL WRITES OUT (OR NOT) EVER
00868 !
00869       LOGICAL :: CVSM_OUT_FULL !UHM
00870 
00873       LOGICAL :: SORLEO(MAXVAR)
00874 
00876       LOGICAL :: SORIMP(MAXVAR)
00877 
00879       LOGICAL :: MSK
00880 
00882       LOGICAL :: ENTET
00883 
00885       LOGICAL :: YASMI
00886 
00888       LOGICAL :: SPHERI
00889 
00891       LOGICAL :: PERMA
00892 
00894       LOGICAL :: BANDEC
00895 
00897       LOGICAL :: HOULE
00898 
00900       LOGICAL :: CALWC
00901 
00903       LOGICAL :: CALAC
00904 
00906       LOGICAL :: CHARR
00907 
00909       LOGICAL :: NOEQUBED
00910 
00912       LOGICAL :: VF
00913 
00915       LOGICAL :: LUMPI
00916 
00918       LOGICAL :: LCONDIS
00919 
00921       LOGICAL :: LGRAFED
00922 
00924       LOGICAL :: CONST_ALAYER
00925 
00927       LOGICAL :: SUSP
00928 
00930       LOGICAL :: BILMA
00931 
00933       LOGICAL :: VALID
00934 
00936       LOGICAL :: IMP_INFLOW_C
00937 
00939       LOGICAL :: SECCURRENT
00940 
00942       LOGICAL :: UNIT
00943 
00945       LOGICAL :: CORR_CONV
00946 
00948       LOGICAL :: DEBU
00949 
00951       LOGICAL :: DIFT
00952 
00954       LOGICAL :: SLIDE
00955 
00957       LOGICAL :: SEDCO(NSICLM)
00958 
00960       LOGICAL :: TASS
00961 
00963       LOGICAL :: MIXTE
00964 
00966       LOGICAL :: DREDGESIM
00967 
00969       LOGICAL :: KSPRED
00970 !
00971 ! MAK
00972 !     Settling lag: determines choice between Rouse and Miles concentration profile
00973 !     SET_LAG = TRUE : Miles
00974 !             = FALSE: Rouse
00975 !
00976       LOGICAL :: SET_LAG
00977 !     STATIONARY MODE: calculate sediment transport without updating the bed.
00978       LOGICAL :: STAT_MODE
00979 !
00980 !-----------------------------------------------------------------------
00981 !
00982 !       6) REALS
00983 !
00984 !-----------------------------------------------------------------------
00985 !
00988       DOUBLE PRECISION RC
00989 
00991       DOUBLE PRECISION XMVE
00992 
00994       DOUBLE PRECISION XMVS
00995 
00997       DOUBLE PRECISION XKV
00998 
01000       DOUBLE PRECISION GRAV
01001 
01003       DOUBLE PRECISION SFON
01004 
01006       DOUBLE PRECISION VCE
01007 
01009       DOUBLE PRECISION TETA
01010 
01012       DOUBLE PRECISION HMIN
01013 
01015       DOUBLE PRECISION BETA ,DELT
01016 
01018       DOUBLE PRECISION PMAREE
01019 
01021       DOUBLE PRECISION TPREC
01022 
01024       DOUBLE PRECISION PHI0
01025 
01027       DOUBLE PRECISION DT
01028 
01030       DOUBLE PRECISION :: CRIT_CFD
01031 
01033       DOUBLE PRECISION :: FRACSED_GF(NSICLM)
01034 
01036       DOUBLE PRECISION :: CS0(NSICLM)
01037 
01039       DOUBLE PRECISION MASSOU
01040 
01042       DOUBLE PRECISION CSF_SABLE
01043 
01045       DOUBLE PRECISION XWC(NSICLM)
01046 
01048       DOUBLE PRECISION AC(NSICLM)
01049 
01051       DOUBLE PRECISION TETA_SUSP
01052 
01054       DOUBLE PRECISION  XKX, XKY
01055 
01057       DOUBLE PRECISION PHISED
01058 
01060       DOUBLE PRECISION BETA2
01061 !
01062 ! NON-EQUILIBRIUM BEDLOAD AND NON-UNIFORM BED MATERIA (BMD AND MGDL)
01063 ! --------
01064 !
01067       DOUBLE PRECISION HIDI(NSICLM)
01068 
01070       DOUBLE PRECISION FD90(NSICLM)
01071 
01073       DOUBLE PRECISION FDM(NSICLM)
01074 
01076       DOUBLE PRECISION AVA0(NSICLM)
01077 
01079       DOUBLE PRECISION ELAY0
01080 
01082       DOUBLE PRECISION VOLTOT(NSICLM)
01083 
01085       DOUBLE PRECISION :: VITCD
01086 
01088       DOUBLE PRECISION :: VITCE
01089 
01091       DOUBLE PRECISION :: MASED0(NSICLM)
01092 
01094       DOUBLE PRECISION :: MASINI(NSICLM)
01095 
01097       DOUBLE PRECISION :: MASTEN(NSICLM), MASTOU(NSICLM)
01098 
01100       DOUBLE PRECISION :: MASTCP(NSICLM), MASFIN(NSICLM)
01101 
01103       DOUBLE PRECISION :: MASDEP(NSICLM), MASDEPT(NSICLM)
01104 
01107       DOUBLE PRECISION :: MASVT,MASV0,MASST,MASS0
01108 !..
01109 !!> @brief FOR NON-EQUILIBIRUM BEDLOAD
01110 !
01111       DOUBLE PRECISION :: LS0
01112 
01114       DOUBLE PRECISION :: KSPRATIO
01115 
01117       DOUBLE PRECISION :: KARIM_HOLLY_YANG
01118 
01120       DOUBLE PRECISION :: KARMAN
01121 
01123       DOUBLE PRECISION :: PARTHENIADES
01124 
01126       DOUBLE PRECISION :: CMAX
01127 
01129       DOUBLE PRECISION :: PI
01130 
01131       DOUBLE PRECISION :: MPM
01132 !
01133 !     Secondary Current Alpha Coefficient
01134 !
01135       DOUBLE PRECISION :: ALPHA
01136 !
01137 !     Morphological Factor
01138 !
01139       DOUBLE PRECISION :: MOFAC
01140 
01142       DOUBLE PRECISION :: ZERO
01143 !
01144 !     B VALUE FOR THE BIJKER FORMULA
01145 !
01146       DOUBLE PRECISION :: BIJK
01147 !
01148 !     MUD CONCENTRATION AT BOUNDARIES FOR EACH CLASS
01149 !
01150       DOUBLE PRECISION :: CBOR_CLASSE(NSICLM*MAXFRO)
01151 !
01152 !     MUD CONCENTRATION FOR EACH LAYER (Constante
01153 !
01154       DOUBLE PRECISION :: CONC_VASE(NLAYMAX)
01155 !
01156 !     MASS TRANSFER BETWEEN LAYERS
01157 !
01158       DOUBLE PRECISION :: TRANS_MASS(NLAYMAX)
01159 !
01160 !     CRITICAL EROSION SHEAR STRESS OF THE MUD PER LAYER
01161 !
01162       DOUBLE PRECISION :: TOCE_VASE(NLAYMAX)
01163 !
01164 !     CRITICAL EROSION SHEAR STRESS OF THE SAND
01165 !
01166       DOUBLE PRECISION :: TOCE_SABLE
01167 !
01168 !     THIEBOT MODEL
01169 !
01170       DOUBLE PRECISION :: CONC_GEL, COEF_N,CONC_MAX
01171 !
01172 !     PRESCRIBED SOLID DISCHARGES
01173 !
01174       DOUBLE PRECISION :: SOLDIS(MAXFRO)
01175 !
01176 !     FOR MASS BALANCE OF COHESIVE SEDIMENT
01177 !
01178       DOUBLE PRECISION :: MASBED0,MASBED
01179 !
01180 !
01181 !-----------------------------------------------------------------------
01182 !
01183 !       7) STRINGS
01184 !
01185 !-----------------------------------------------------------------------
01186 !
01187 !
01188       CHARACTER(LEN=72) TITCA,SORTIS,VARIM
01189 
01191       CHARACTER(LEN=3) BINGEOSIS,BINPRESIS,BINHYDSIS
01192 
01194       CHARACTER(LEN=3) BINRESSIS,BINREFSIS
01195 
01197       CHARACTER(LEN=32) VARCLA(NSICLM),TEXTE(MAXVAR),TEXTPR(MAXVAR)
01198 
01200       CHARACTER(LEN=20) EQUA
01201 
01203       CHARACTER(LEN=8) MNEMO(MAXVAR)
01204 
01206       CHARACTER(LEN=144) COUPLINGSIS
01207 !
01208 !-----------------------------------------------------------------------
01209 !
01210 !       8) SLVCFG STRUCTURES
01211 !
01212 !-----------------------------------------------------------------------
01213 !
01216       TYPE(SLVCFG) :: SLVSED
01217 
01219       TYPE(SLVCFG) :: SLVTRA
01220 !
01221 !-----------------------------------------------------------------------
01222 !
01223 !       9) MESH STRUCTURE
01224 !
01225 !-----------------------------------------------------------------------
01226 !
01227 !     MESH STRUCTURE
01228 !
01229       TYPE(BIEF_MESH) :: MESH
01230 !
01231 !-----------------------------------------------------------------------
01232 !
01233 !      10) ALIASES
01234 !
01235 !-----------------------------------------------------------------------
01236 !
01237 !     DECLARATION OF POINTERS FOR ALIASES
01238 !     TARGETS ARE DEFINED IN POINT_TELEMAC2D
01239 !
01240 !     ALIASES FOR WORK VECTORS IN TB
01241 !
01242       TYPE(BIEF_OBJ),POINTER :: T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12
01243       TYPE(BIEF_OBJ),POINTER :: T13,T14
01244 !
01245 !     USEFUL COMPONENTS IN STRUCTURE MESH
01246 !
01247 !
01248 !     CONNECTIVITY TABLE
01249 !
01250       TYPE(BIEF_OBJ),   POINTER :: IKLE
01251 
01253       DOUBLE PRECISION, DIMENSION(:), POINTER :: X
01254 
01256       DOUBLE PRECISION, DIMENSION(:), POINTER :: Y
01257 
01259       INTEGER, POINTER:: NELEM
01260 
01262       INTEGER, POINTER:: NELMAX
01263 
01265       INTEGER, POINTER:: NPTFR
01266 
01268       INTEGER, POINTER:: NPTFRX
01269 
01271       INTEGER, POINTER:: DIM
01272 
01274       INTEGER, POINTER:: TYPELM
01275 
01277       INTEGER, POINTER:: NPOIN
01278 
01280       INTEGER, POINTER:: NPMAX
01281 
01283       INTEGER, POINTER:: MXPTVS
01284 
01286       INTEGER, POINTER:: MXELVS
01287 
01289       INTEGER, POINTER:: LV
01290 !
01291 !-----------------------------------------------------------------------
01292 !
01293 !      11) SISYPHE FILES + INTEGER DECLARATION FOR MED APPROACH
01294 !
01295 !-----------------------------------------------------------------------
01296 !
01297 !     MAXIMUM RANK OF LOGICAL UNITS AS DECLARED IN SUBMIT STRINGS IN THE DICTIONARY
01298 !
01299       INTEGER, PARAMETER :: MAXLU_SIS = 46
01300 
01302       TYPE(BIEF_FILE) :: SIS_FILES(MAXLU_SIS)
01303 
01305       INTEGER SISRES
01306 
01308       INTEGER SISREF
01309 
01311       INTEGER SISPRE
01312 
01314       INTEGER SISHYD
01315 
01317       INTEGER SISCOU
01318 
01320       INTEGER SISGEO
01321 
01323       INTEGER SISCLI
01324 
01326       INTEGER SISCAS
01327 
01329       INTEGER SISFON
01330 
01332       INTEGER SISMAF
01333 
01335       INTEGER SISSEC
01336 
01338       INTEGER SISSEO
01339 !
01340 !     RANK OF 'FILE FOR LIQUID BOUNDARIES' IN SIS_FILES
01341 !
01342       INTEGER SISLIQ
01343 !
01344 !-----------------------------------------------------------------------
01345 !
01346 !      12) SECTIONS
01347 !
01348 !-----------------------------------------------------------------------
01349 !
01350       TYPE (CHAIN_TYPE), ALLOCATABLE :: CHAIN(:)
01351 !
01352       SAVE   ! VERY IMPORTANT
01353 !
01354       END MODULE DECLARATIONS_SISYPHE

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