declarations_tomawac.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\tomawac\declarations_tomawac.f
00002 !
00059                      MODULE DECLARATIONS_TOMAWAC
00060 !                    ***************************
00061 !
00062 !
00063 !***********************************************************************
00064 ! TOMAWAC   V7P0                                  25/06/2012
00065 !***********************************************************************
00066 !
00067 !
00068 !
00069 !
00070 !
00071 !
00072 !
00073 !
00074 !
00075 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00076 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00077 !
00078       USE BIEF_DEF
00079 !
00080 !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
00081 !
00082 !     DECLARES BIEF STRUCTURES
00083 !
00084 !     variables 4d a convecter
00085 !
00086       TYPE (BIEF_OBJ), TARGET :: SF
00087 !
00088 !     coefficient b pour convection
00089 !
00090       TYPE (BIEF_OBJ), TARGET :: SB
00091 !
00092 !     tableaux des frequences de discretisation
00093 !
00094       TYPE (BIEF_OBJ), TARGET :: SFR
00095 !
00096 !     tableaux des pas de frequence
00097 !
00098       TYPE (BIEF_OBJ), TARGET :: SDFR
00099 !
00100 !     tableaux pour les interactions non lineaires
00101 !
00102       TYPE (BIEF_OBJ), TARGET :: SCOEF
00103 !
00104 !     tableau des pieds des caracteristiques
00105 !
00106       TYPE (BIEF_OBJ), TARGET :: SSHP1
00107 !
00108 !     tableau des pieds des caracteristiques
00109 !
00110       TYPE (BIEF_OBJ), TARGET :: SSHZ
00111 !
00112       TYPE (BIEF_OBJ), TARGET ::SCT,SCF,SSHF,SXK,SCG ,
00113      & SZF,SDEPTH,SUC,SVC,SUC1,SVC1,SUC2,SVC2,SDZHDT,SDZX ,
00114      & SDZY,SDF_LIM,SUV,SVV,SUV1,SVV1,SUV2,SVV2,SZM1,SZM2,
00115      & SCOSF,STGF,SDUX,SDUY,SDVX,SDVY,STETA,SCOSTE,SSINTE,SSURDE,
00116      & SFBOR,AM1,STSDER,STSTOT,ST0,ST1,ST2,ST3,ST4,BST1,VARSOR,STRA40,
00117      & BOUNDARY_COLOUR
00118 !
00119       TYPE (BIEF_OBJ), TARGET :: STRA01, STOLD , STNEW,STRA31,
00120      & STRA32, STRA33, STRA34, STRA35, STRA36, STRA37, STRA38, STRA39,
00121      & STRA41, STRA42, STRA43, STRA44, STRA51, STRA52, STRA53, STRA54,
00122      & STRA55, STRA56, STRA57, STRA58, STRA59, STRA60, STRA61, STRA62,
00123      & STRA63, STRA64, STRA65, STRA66, SPRIVE, SIBOR ,
00124      & SLIFBR, SLIQ, SELT, SETA, SFRE, SETAP1, SIAGNL, SITR11, SITR12,
00125      & SITR13, SITR01, SITR31,SITR32, SITR33, SBETA,SISUB
00126 !
00127 !     BLOCK OF BIEF_OBJ STRUCTURES
00128 !
00129       TYPE(BIEF_OBJ) :: TB
00130 !
00131 !     EXTENSION OF IKLE2 (WITH LARGER NUMBER OF ELEMENTS)
00132 !
00133       TYPE(BIEF_OBJ) :: IKLE_EXT
00134 !
00135 !     BIEF_OBJ STRUCTURES FOR ARRAYS OF DIMENSION NPOIN3
00136 !
00137       TYPE(BIEF_OBJ), POINTER :: T3_01,T3_02,T3_03,T3_04,T3_05,T3_06
00138       TYPE(BIEF_OBJ), POINTER :: T3_07,T3_08,T3_09,T3_10
00139 !
00140 !     MESH STRUCTURES FOR 2D AND 3D
00141 !
00142       TYPE(BIEF_MESH) :: MESH,MESH3D
00143 !
00144 !     DIFFRACTION
00145 !
00146       TYPE(BIEF_OBJ), TARGET :: SA, SA_RMSE, SCCG, SDELTA, SDDX, SDDY
00147       TYPE(BIEF_OBJ), TARGET :: SDIV, SNB_CLOSE, SNEIGB
00148       TYPE(BIEF_OBJ), TARGET :: SRK, SRX, SRXX, SRY, SRYY, SXKONPT
00149 !
00150 !-----------------------------------------------------------------------
00151 !     KEYWORDS AND PARAMETERS
00152 !-----------------------------------------------------------------------
00153 !
00154 !     NUMBER OF DISCRETISED DIRECTIONS
00155 !
00156       INTEGER NPLAN
00157 !
00158 !     NUMBER OF DISCRETISED FREQUENCIES
00159 !
00160       INTEGER NF
00161 !
00162 !     PERIOD FOR LISTING PRINTOUTS
00163 !
00164       INTEGER LISPRD
00165 !
00166 !     PERIOD FOR GRAPHIC PRINTOUTS
00167 !
00168       INTEGER GRAPRD
00169 !
00170 !     NUMBER OF TIME STEP
00171 !
00172       INTEGER NIT
00173 !
00174 !     TIDE REFRESHING PERIOD
00175 !
00176       INTEGER LAM
00177 !
00178 !     RANK OF THE WATER LEVEL DATA IN THE TELEMAC FILE
00179 !
00180       INTEGER IDHMA
00181 !
00182 !     NUMBER OF FIRST ITERATION FOR GRAPHICS PRINTOUTS
00183 !
00184       INTEGER GRADEB
00185 !
00186 !     NUMBER OF BOTTOM SMOOTHINGS
00187 !
00188       INTEGER LISFON
00189 !
00190 !     WIND GENERATION
00191 !
00192       INTEGER SVENT
00193 !
00194 !     WHITECAPPING DISSIPATION
00195 !
00196       INTEGER SMOUT
00197 !
00198 !     BOTTOM FRICTION DISSIPATION
00199 !
00200       INTEGER SFROT
00201 !
00202 !     NON-LINEAR TRANSFERS BETWEEN FREQUENCIES
00203 !
00204       INTEGER STRIF
00205 !
00206 !     DEPTH-INDUCED BREAKING DISSIPATION
00207 !
00208       INTEGER SBREK
00209 !
00210 !     DEPTH-INDUCED BREAKING 1 (BJ) QB COMPUTATION METHOD
00211 !
00212       INTEGER IQBBJ
00213 !
00214 !     DEPTH-INDUCED BREAKING 1 (BJ) HM COMPUTATION METHOD
00215 !
00216       INTEGER IHMBJ
00217 !
00218 !     DEPTH-INDUCED BREAKING 1 (BJ) CHARACTERISTIC FREQUENCY
00219 !
00220       INTEGER IFRBJ
00221 !
00222 !     DEPTH-INDUCED BREAKING 2 (TG) CHARACTERISTIC FREQUENCY
00223 !
00224       INTEGER IFRTG
00225 !
00226 !     DEPTH-INDUCED BREAKING 2 (TG) WEIGHTING FUNCTION
00227 !
00228       INTEGER IWHTG
00229 !
00230 !     DEPTH-INDUCED BREAKING 3 (RO) WAVE HEIGHT DISTRIBUTION
00231 !
00232       INTEGER IDISRO
00233 !
00234 !     DEPTH-INDUCED BREAKING 3 (RO) EXPONENT WEIGHTING FUNCTION
00235 !
00236       INTEGER IEXPRO
00237 !
00238 !     DEPTH-INDUCED BREAKING 3 (RO) CHARACTERISTIC FREQUENCY
00239 !
00240       INTEGER IFRRO
00241 !
00242 !     DEPTH-INDUCED BREAKING 4 (IH) CHARACTERISTIC FREQUENCY
00243 !
00244       INTEGER IFRIH
00245 !
00246 !     NUMBER OF BREAKING TIME STEPS
00247 !
00248       INTEGER NDTBRK
00249 !
00250 !     WAVE GROWTH LIMITER
00251 !
00252       INTEGER LIMIT
00253 !
00254 !     CURRENTS FILE FORMAT
00255 !
00256       INTEGER INDIC
00257 !
00258 !     WINDS FILE FORMAT
00259 !
00260       INTEGER INDIV
00261 !
00262 !     TIDAL WATER LEVEL FILE FORMAT
00263 !
00264       INTEGER INDIM
00265 !
00266 !     TYPE OF INITIAL DIRECTIONAL SPECTRUM
00267 !
00268       INTEGER INISPE
00269 !
00270 !     TYPE OF BOUNDARY DIRECTIONAL SPECTRUM
00271 !
00272       INTEGER LIMSPE
00273 !
00274 !     TRIAD INTERACTIONS
00275 !
00276       INTEGER STRIA
00277 !
00278 !     NUMBER OF ITERATIONS FOR THE SOURCE TERMS
00279 !
00280       INTEGER NSITS
00281 !
00282 !     TIME INCREMENT NUMBER IN TELEMAC FILE
00283 !
00284       INTEGER NPTT
00285 !
00286 !     VECTOR LENGTH
00287 !
00288       INTEGER LVMAC
00289 !
00290 !     NUMBER OF PRIVATE ARRAYS
00291 !
00292       INTEGER NPRIV
00293 !
00294 !     INITIAL ANGULAR DISTRIBUTION FUNCTION
00295 !
00296       INTEGER FRABI
00297 !
00298 !     BOUNDARY ANGULAR DISTRIBUTION FUNCTION
00299 !
00300       INTEGER FRABL
00301 !
00302 !     ??????
00303 !
00304       INTEGER NPLEO
00305 !
00306 !     DEBUGGER
00307 !
00308       INTEGER DEBUG
00309 !
00310 !     ?????
00311 !
00312       INTEGER SORG2D
00313 !
00314 !     COORDINATES OF THE ORIGIN IN (X, Y)
00315 !
00316       INTEGER I_ORIG,J_ORIG
00317 !
00318 !     LINEAR WAVE GROWTH
00319 !
00320       INTEGER LVENT
00321 !
00322 !     SETTING FOR INTEGRATION ON OMEGA1
00323 !
00324       INTEGER IQ_OM1
00325 !
00326 !     SETTING FOR INTEGRATION ON THETA1
00327 !
00328       INTEGER NQ_TE1
00329 !
00330 !     SETTING FOR INTEGRATION ON OMEGA2
00331 !
00332       INTEGER NQ_OM2
00333 !
00334 !     DIFFRACTION
00335 !
00336       INTEGER DIFFRA
00337 !
00338 !     STARTING TIME STEP FOR DIFFRACTION
00339 !
00340       INTEGER NPTDIF
00341 !
00342 !     DIAGNOSTIC TAIL OPTION
00343 !
00344       INTEGER DIAGHF
00345 !
00346 !     OPTION FOR SECOND DERIVATIVES
00347 !
00348       INTEGER OPTDER
00349 !
00350 !     DISSIPATION BY STRONG CURRENT
00351 !
00352       INTEGER SDSCU
00353 !
00354 !     TIME STEP
00355 !
00356       DOUBLE PRECISION DT
00357 !
00358 !     MINIMAL FREQUENCY
00359 !
00360       DOUBLE PRECISION F1
00361 !
00362 !     FREQUENTIAL RATIO
00363 !
00364       DOUBLE PRECISION RAISF
00365 !
00366 !     DATE OF COMPUTATION BEGINNING
00367 !
00368       DOUBLE PRECISION DDC
00369 !
00370 !     BOTTOM FRICTION COEFFICIENT
00371 !
00372       DOUBLE PRECISION CFROT1
00373 !
00374 !     WHITE CAPPING DISSIPATION COEFFICIENT
00375 !
00376       DOUBLE PRECISION CMOUT1
00377 !
00378 !     WHITE CAPPING WEIGHTING COEFFICIENT
00379 !
00380       DOUBLE PRECISION CMOUT2
00381 !
00382 !     AIR DENSITY
00383 !
00384       DOUBLE PRECISION ROAIR
00385 !
00386 !     WATER DENSITY
00387 !
00388       DOUBLE PRECISION ROEAU
00389 !
00390 !     WIND GENERATION COEFFICIENT
00391 !
00392       DOUBLE PRECISION BETAM
00393 !
00394 !     VON KARMAN CONSTANT
00395 !
00396       DOUBLE PRECISION XKAPPA
00397 !
00398 !     CHARNOCK CONSTANT
00399 !
00400       DOUBLE PRECISION ALPHA
00401 !
00402 !     SHIFT GROWING CURVE DUE TO WIND
00403 !
00404       DOUBLE PRECISION DECAL
00405 !
00406 !     ELEVATION FOR WIND MEASUREMENTS
00407 !
00408       DOUBLE PRECISION ZVENT
00409 !
00410 !     WIND DRAG COEFFICIENT
00411 !
00412       DOUBLE PRECISION CDRAG
00413 !
00414 !     DEPTH-INDUCED BREAKING 1 (BJ) COEFFICIENT ALPHA
00415 !
00416       DOUBLE PRECISION ALFABJ
00417 !
00418 !     DEPTH-INDUCED BREAKING 1 (BJ) COEFFICIENT GAMMA1
00419 !
00420       DOUBLE PRECISION GAMBJ1
00421 !
00422 !     DEPTH-INDUCED BREAKING 1 (BJ) COEFFICIENT GAMMA2
00423 !
00424       DOUBLE PRECISION GAMBJ2
00425 !
00426 !     DEPTH-INDUCED BREAKING 2 (TG) COEFFICIENT B
00427 !
00428       DOUBLE PRECISION BORETG
00429 !
00430 !     DEPTH-INDUCED BREAKING 2 (TG) COEFFICIENT GAMMA
00431 !
00432       DOUBLE PRECISION GAMATG
00433 !
00434 !     DEPTH-INDUCED BREAKING 3 (RO) COEFFICIENT ALPHA
00435 !
00436       DOUBLE PRECISION ALFARO
00437 !
00438 !     DEPTH-INDUCED BREAKING 3 (RO) COEFFICIENT GAMMA
00439 !
00440       DOUBLE PRECISION GAMARO
00441 !
00442 !     DEPTH-INDUCED BREAKING 3 (RO) COEFFICIENT GAMMA2
00443 !
00444       DOUBLE PRECISION GAM2RO
00445 !
00446 !     DEPTH-INDUCED BREAKING 4 (IH) COEFFICIENT BETA0
00447 !
00448       DOUBLE PRECISION BETAIH
00449 !
00450 !     DEPTH-INDUCED BREAKING 4 (IH) COEFFICIENT M2STAR
00451 !
00452       DOUBLE PRECISION EM2SIH
00453 !
00454 !     MAXIMUM VALUE OF THE RATIO HM0 OVER D
00455 !
00456       DOUBLE PRECISION COEFHS
00457 !
00458 !     COEFFICIENT OF THE TIME SUB-INCREMENTS FOR BREAKING
00459 !
00460       DOUBLE PRECISION XDTBRK
00461 !
00462 !     STANDARD CONFIGURATION PARAMETER
00463 !
00464       DOUBLE PRECISION XLAMD
00465 !
00466 !     IMPLICITATION COEFFICIENT FOR SOURCE TERMS
00467 !
00468       DOUBLE PRECISION CIMPLI
00469 !
00470 !     INITIAL STILL WATER LEVEL
00471 !
00472       DOUBLE PRECISION ZREPOS
00473 !
00474 !     TRIADS 1 (LTA) COEFFICIENT ALPHA
00475 !
00476       DOUBLE PRECISION ALFLTA
00477 !
00478 !     TRIADS 1 (LTA) COEFFICIENT RFMLTA
00479 !
00480       DOUBLE PRECISION RFMLTA
00481 !
00482 !     TRIADS 2 (SPB) COEFFICIENT K
00483 !
00484       DOUBLE PRECISION KSPB
00485 !
00486 !     TRIADS 2 (SPB) LOWER DIRECTIONAL BOUNDARY
00487 !
00488       DOUBLE PRECISION BDISPB
00489 !
00490 !     TRIADS 2 (SPB) UPPER DIRECTIONAL BOUNDARY
00491 !
00492       DOUBLE PRECISION BDSSPB
00493 !
00494 !     SIGNIFICANT WAVE HEIGHT
00495 !
00496       DOUBLE PRECISION HM0
00497 !
00498 !     PEAK FREQUENCY
00499 !
00500       DOUBLE PRECISION FPIC
00501 !
00502 !     PEAK FACTOR
00503 !
00504       DOUBLE PRECISION GAMMA
00505 !
00506 !     VALUE OF SIGMA-A FOR SPECTRUM
00507 !
00508       DOUBLE PRECISION SIGMAA
00509 !
00510 !     VALUE OF SIGMA-B FOR SPECTRUM
00511 !
00512       DOUBLE PRECISION SIGMAB
00513 !
00514 !     PHILLIPS CONSTANT
00515 !
00516       DOUBLE PRECISION ALPHIL
00517 !
00518 !     MEAN FETCH VALUE
00519 !
00520       DOUBLE PRECISION FETCH
00521 !
00522 !     MAXIMUM PEAK FREQUENCY
00523 !
00524       DOUBLE PRECISION FREMAX
00525 !
00526 !     MAIN DIRECTION 1
00527 !
00528       DOUBLE PRECISION TETA1
00529 !
00530 !     DIRECTIONAL SPREAD 1
00531 !
00532       DOUBLE PRECISION SPRED1
00533 !
00534 !     MAIN DIRECTION 2
00535 !
00536       DOUBLE PRECISION TETA2
00537 !
00538 !     DIRECTIONAL SPREAD 2
00539 !
00540       DOUBLE PRECISION SPRED2
00541 !
00542 !     WEIGHTING FACTOR FOR ADF (DIRECTIONAL SPREADING FUNCTION)
00543 !
00544       DOUBLE PRECISION XLAMDA
00545 !
00546 !     SPECTRUM TAIL FACTOR
00547 !
00548       DOUBLE PRECISION TAILF
00549 !
00550 !     SPECTRUM ENERGY THRESHOLD
00551 !
00552       DOUBLE PRECISION E2FMIN
00553 !
00554 !     BOUNDARY SIGNIFICANT WAVE HEIGHT
00555 !
00556       DOUBLE PRECISION HM0L
00557 !
00558 !     BOUNDARY PEAK FREQUENCY
00559 !
00560       DOUBLE PRECISION FPICL
00561 !
00562 !     BOUNDARY SPECTRUM VALUE OF SIGMA-A
00563 !
00564       DOUBLE PRECISION SIGMAL
00565 !
00566 !     BOUNDARY SPECTRUM VALUE OF SIGMA-B
00567 !
00568       DOUBLE PRECISION SIGMBL
00569 !
00570 !     BOUNDARY PHILLIPS CONSTANT
00571 !
00572       DOUBLE PRECISION APHILL
00573 !
00574 !     BOUNDARY MEAN FETCH VALUE
00575 !
00576       DOUBLE PRECISION FETCHL
00577 !
00578 !     BOUNDARY MAXIMUM PEAK FREQUENCY
00579 !
00580       DOUBLE PRECISION FPMAXL
00581 !
00582 !     BOUNDARY MAIN DIRECTION 1
00583 !
00584       DOUBLE PRECISION TETA1L
00585 !
00586 !     BOUNDARY DIRECTIONAL SPREAD 1
00587 !
00588       DOUBLE PRECISION SPRE1L
00589 !
00590 !     BOUNDARY MAIN DIRECTION 2
00591 !
00592       DOUBLE PRECISION TETA2L
00593 !
00594 !     BOUNDARY DIRECTIONAL SPREAD 2
00595 !
00596       DOUBLE PRECISION SPRE2L
00597 !
00598 !     BOUNDARY WEIGHTING FACTOR FOR ADF
00599 !
00600       DOUBLE PRECISION XLAMDL
00601 !
00602 !     BOUNDARY PEAK FACTOR
00603 !
00604       DOUBLE PRECISION GAMMAL
00605 !
00606 !     ?????
00607 !
00608       DOUBLE PRECISION ALF1, GAM1, GAM2
00609 !
00610 !     WIND VELOCITY ALONG X AND Y
00611 !
00612       DOUBLE PRECISION VX_CTE,VY_CTE
00613 !
00614 !     MINIMUM WATER DEPTH
00615 !
00616       DOUBLE PRECISION PROMIN
00617 !
00618 !     COORDINATES OF SPECTRUM PRINTOUT POINTS
00619 !
00620       DOUBLE PRECISION XLEO(99),YLEO(99)
00621 !
00622 !     YAN GENERATION COEFFICIENT D
00623 !
00624       DOUBLE PRECISION COEFWD
00625 !
00626 !     YAN GENERATION COEFFICIENT E
00627 !
00628       DOUBLE PRECISION COEFWE
00629 !
00630 !     YAN GENERATION COEFFICIENT F
00631 !
00632       DOUBLE PRECISION COEFWF
00633 !
00634 !     YAN GENERATION COEFFICIENT H
00635 !
00636       DOUBLE PRECISION COEFWH
00637 !
00638 !     WESTHUYSEN DISSIPATION COEFFICIENT
00639 !
00640       DOUBLE PRECISION CMOUT3
00641 !
00642 !     SATURATION THRESHOLD FOR THE DISSIPATION
00643 !
00644       DOUBLE PRECISION CMOUT4
00645 !
00646 !     WESTHUYSEN WHITE CAPPING DISSIPATION
00647 !
00648       DOUBLE PRECISION CMOUT5
00649 !
00650 !     WESTHUYSEN WEIGHTING COEFFICIENT
00651 !
00652       DOUBLE PRECISION CMOUT6
00653 !
00654 !     QNL4 - THRESHOLD0 FOR CONFIGURATIONS ELIMINATION
00655 !
00656       DOUBLE PRECISION SEUIL
00657 !
00658 !     QNL4 - THRESHOLD1 FOR CONFIGURATIONS ELIMINATION
00659 !
00660       DOUBLE PRECISION SEUIL1
00661 !
00662 !     QNL4 - THRESHOLD2 FOR CONFIGURATIONS ELIMINATION
00663 !
00664       DOUBLE PRECISION SEUIL2
00665 !
00666 !     SPECTRUM VARIANCE THRESHOLD FOR DIFFRACTION
00667 !
00668       DOUBLE PRECISION F2DIFM
00669 !
00670 !     DISSIPATION COEFFICIENT FOR STRONG CURRENT
00671 !
00672       DOUBLE PRECISION CDSCUR
00673 !
00674 !     CONSIDERATION OF SOURCE TERMS
00675 !
00676       LOGICAL TSOU
00677 !
00678 !     SPHERICAL COORDINATES
00679 !
00680       LOGICAL SPHE
00681 !
00682 !     GLOBAL OUTPUT AT THE END
00683 !
00684       LOGICAL GLOB
00685 !
00686 !     NEXT COMPUTATION
00687 !
00688       LOGICAL SUIT
00689 !
00690 !     INFINITE DEPTH
00691 !
00692       LOGICAL PROINF
00693 !
00694 !     CONSIDERATION OF A CURRENT
00695 !
00696       LOGICAL COURAN
00697 !
00698 !     CONSIDERATION OF A WIND
00699 !
00700       LOGICAL VENT
00701 !
00702 !     CONSIDERATION OF A STATIONARY CURRENT
00703 !
00704       LOGICAL COUSTA
00705 !
00706 !     CONSIDERATION OF A STATIONARY WIND
00707 !
00708       LOGICAL VENSTA
00709 !
00710 !     CONSIDERATION OF TIDE
00711 !
00712       LOGICAL MAREE
00713 !
00714 !     TRIGONOMETRICAL CONVENTION
00715 !
00716       LOGICAL TRIGO
00717 !
00718 !     RECOVERY OF TELEMAC DATA ITEM
00719 !
00720       LOGICAL DONTEL
00721 !
00722 !     CONSIDERATION OF PROPAGATION
00723 !
00724       LOGICAL PROP
00725 !
00726 !     VALIDATION
00727 !
00728       LOGICAL VALID
00729 !
00730 !     LIMIT SPECTRUM MODIFIED BY USER
00731 !
00732       LOGICAL SPEULI
00733 !
00734 !     DIFFRACTION FILTER
00735 !
00736       LOGICAL FLTDIF
00737 !
00738 !     INITIAL TIME SET TO ZERO
00739 !
00740       LOGICAL RAZTIM
00741 !
00742 !     VEGETATION TAKEN INTO ACCOUNT
00743 !
00744       LOGICAL VEGETATION
00745 !
00746 !     TITLE
00747 !
00748       CHARACTER (LEN=80) :: TITCAS
00749 !
00750 !     VARIABLES FOR 2D GRAPHIC PRINTOUTS
00751 !
00752       CHARACTER(LEN=72) :: SORT2D
00753 !
00754 !     GEOMETRY FILE BINARY
00755 !
00756       CHARACTER(LEN=3) BINGEO
00757 !
00758 !     GLOBAL RESULT FILE BINARY
00759 !
00760       CHARACTER(LEN=3) BINRBI
00761 !
00762 !     2D RESULTS FILE BINARY
00763 !
00764       CHARACTER(LEN=3) BINRES
00765 !
00766 !     PUNCTUAL RESULTS FILE BINARY
00767 !
00768       CHARACTER(LEN=3) BINLEO
00769 !
00770 !     PREVIOUS COMPUTATION FILE BINARY
00771 !
00772       CHARACTER(LEN=3) BINPRE
00773 !
00774 !     CURRENTS FILE BINARY
00775 !
00776       CHARACTER(LEN=3) BINCOU
00777 !
00778 !     WINDS FILE BINARY
00779 !
00780       CHARACTER(LEN=3) BINVEN
00781 !
00782 !     TIDAL WATER LEVEL FILE BINARY
00783 !
00784       CHARACTER(LEN=3) BINMAR
00785 !
00786 !     BINARY FILE 1 BINARY
00787 !
00788       CHARACTER(LEN=3) BINBI1
00789 !
00790 !     RELEASE
00791 !
00792       CHARACTER(LEN=4) VERS
00793 
00794       INTEGER NDP
00795 
00797       INTEGER STDGEO
00798 
00799       CHARACTER(LEN=20) EQUA
00800 !
00801 !     TYPE OF ELEMENT IN 2D, 3D
00802 !
00803       INTEGER IELM2,IELM3
00804 !
00805 !     NPOIN2*NPLAN
00806 !
00807       INTEGER NPOIN3
00808 !
00809 !GM V6P1 - NEW SOURCE TERMS
00812       INTEGER, PARAMETER :: MDIA = 4
00813 
00815       INTEGER         , ALLOCATABLE ::  IANMDI(:,:,:)
00816 
00818       DOUBLE PRECISION,ALLOCATABLE :: COEMDI(:,:),XMUMDI(:),XLAMDI(:)
00819 
00821       INTEGER  NCONF , NCONFM , NF1 , NF2 , NT1
00822 
00824       DOUBLE PRECISION ELIM
00825 
00827       INTEGER, ALLOCATABLE :: K_IF1(:) , K_1P(:,:) , K_1M(:,:),
00828      &                        K_IF2 (:,:,:), K_IF3 (:,:,:),
00829      &                        K_1P2P(:,:,:), K_1P2M(:,:,:),
00830      &                        K_1P3P(:,:,:), K_1P3M(:,:,:),
00831      &                        K_1M2P(:,:,:), K_1M2M(:,:,:),
00832      &                        K_1M3P(:,:,:), K_1M3M(:,:,:),
00833      &                        IDCONF(:,:)
00836       DOUBLE PRECISION, ALLOCATABLE :: TB_V24(:,:,:), TB_V34(:,:,:),
00837      &                                 TB_TPM(:,:,:), TB_TMP(:,:,:),
00838      &                                 TB_FAC(:,:,:),
00839      &                                 TB_V14(:)
00842       INTEGER, PARAMETER :: LBUF = 500
00843 
00845       INTEGER, PARAMETER :: DIMBUF = 2*LBUF+200
00846 
00848       INTEGER F_POIN(DIMBUF) , T_POIN(DIMBUF)
00849 
00851       DOUBLE PRECISION F_COEF(DIMBUF), F_PROJ(DIMBUF), TB_SCA(DIMBUF)
00852 !GM Fin
00853 !
00854 !V6P2 Diffraction
00857       INTEGER, PARAMETER :: MAXNSP = 30
00858       INTEGER, PARAMETER :: NRD = 30
00859       INTEGER :: NRK_C
00860 !V6P2 End diffraction
00861 !
00863       INTEGER, PARAMETER :: MAXVAR = 35
00864 
00865       LOGICAL SORLEO(MAXVAR) , SORIMP(MAXVAR)
00866 
00867       CHARACTER(LEN=32) VARCLA(10)
00868 
00870       CHARACTER(LEN=32) TEXTE(MAXVAR)
00871 
00873       CHARACTER(LEN=32) TEXTPR(MAXVAR)
00874 !     7 VARIABLES HAVE BEEN USED FOR VALIDATION
00875 !          SIGNIFICANT WAVE HEIGHT    HM0       ( 2)
00876 !          MEAN DIRECTION             DMOY      ( 3)
00877 !          DIRECTIONAL SPREADING      SPD       ( 4)
00878 !          DRIVING FORCE ALONG X      FX        (11)
00879 !          DRIVING FORCE ALONG Y      FY        (12)
00880 !          MEAN FREQUENCY FM-10       FMOY      (18)
00881 !          MEAN FREQUENCY FM01        FM01      (19)
00884       DOUBLE PRECISION HIST(1)
00885 !
00886       INTEGER ALIRE(MAXVAR)
00887 !
00888       DATA ALIRE /0,1,1,1,0,0,0,0,0,0,1,1,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,
00889      &            0,0,0,0,0,0,0,0/
00890       DATA HIST /9999.D0/
00891 !
00892 !-----------------------------------------------------------------------
00893 !   DECLARES POINTERS FOR ALIASES
00894 !   THE TARGETS ARE DEFINED IN POINT
00895 !-----------------------------------------------------------------------
00896 !
00897 !     MESH COORDINATES PER POINT
00898 !
00899       DOUBLE PRECISION, DIMENSION(:), POINTER :: X,Y
00900 !
00901 !     MESH COORDINATES IN ELEMENTS
00902 !
00903       DOUBLE PRECISION, DIMENSION(:), POINTER :: XEL,YEL
00904 
00906       DOUBLE PRECISION, DIMENSION(:), POINTER :: SURDET
00907 
00909       INTEGER, DIMENSION(:) , POINTER :: IKLE2
00910 
00913       INTEGER, DIMENSION(:) , POINTER :: IFABOR
00914 
00916       INTEGER, DIMENSION(:) , POINTER :: NBOR
00917 
00919       INTEGER, POINTER:: NELEM2
00920 
00922       INTEGER, POINTER:: NPTFR
00923 
00925       INTEGER, POINTER:: NPOIN2
00926 
00928       DOUBLE PRECISION, DIMENSION(:) , POINTER :: F
00929 
00931       DOUBLE PRECISION, DIMENSION(:) , POINTER ::  CT
00932 
00934       DOUBLE PRECISION, DIMENSION(:) , POINTER ::  CF
00935 
00937       DOUBLE PRECISION, DIMENSION(:) , POINTER ::  SHZ
00938 
00940       DOUBLE PRECISION, DIMENSION(:) , POINTER ::  SHF
00941 
00943       DOUBLE PRECISION, DIMENSION(:) , POINTER ::  B
00944 
00946       DOUBLE PRECISION, DIMENSION(:) , POINTER ::  XK
00947 
00949       DOUBLE PRECISION, DIMENSION(:) , POINTER ::  CG
00950 
00952       DOUBLE PRECISION, DIMENSION(:) , POINTER ::  ZF
00953 
00955       DOUBLE PRECISION, DIMENSION(:) , POINTER ::  DEPTH
00956 
00958       DOUBLE PRECISION, DIMENSION(:) , POINTER ::  UC
00959 
00961       DOUBLE PRECISION, DIMENSION(:) , POINTER ::  VC
00962 
00964       DOUBLE PRECISION, DIMENSION(:) , POINTER ::  UC1
00965 
00967       DOUBLE PRECISION, DIMENSION(:) , POINTER ::  VC1
00968 
00970       DOUBLE PRECISION, DIMENSION(:) , POINTER ::  UC2
00971 
00973       DOUBLE PRECISION, DIMENSION(:) , POINTER ::  VC2
00974 
00976       DOUBLE PRECISION, DIMENSION(:) , POINTER ::  DZHDT
00977 
00979       DOUBLE PRECISION, DIMENSION(:) , POINTER ::  DZX
00980 
00982       DOUBLE PRECISION, DIMENSION(:) , POINTER ::  DZY
00983 
00985       DOUBLE PRECISION, DIMENSION(:) , POINTER ::  DF_LIM
00986 
00988       DOUBLE PRECISION, DIMENSION(:) , POINTER ::  UV
00989 
00991       DOUBLE PRECISION, DIMENSION(:) , POINTER ::  VV
00992 
00994       DOUBLE PRECISION, DIMENSION(:) , POINTER ::  UV1
00995 
00997       DOUBLE PRECISION, DIMENSION(:) , POINTER ::  VV1
00998 
01000       DOUBLE PRECISION, DIMENSION(:) , POINTER ::  UV2
01001 
01003       DOUBLE PRECISION, DIMENSION(:) , POINTER ::  VV2
01004 
01006       DOUBLE PRECISION, DIMENSION(:) , POINTER ::  ZM1
01007 
01009       DOUBLE PRECISION, DIMENSION(:) , POINTER ::  ZM2
01010 
01012       DOUBLE PRECISION, DIMENSION(:) , POINTER ::  FREQ
01013 
01015       DOUBLE PRECISION, DIMENSION(:) , POINTER ::  DFREQ
01016 
01018       DOUBLE PRECISION, DIMENSION(:) , POINTER ::  COEFNL
01019 
01021       DOUBLE PRECISION, DIMENSION(:) , POINTER ::  COSF
01022 
01024       DOUBLE PRECISION, DIMENSION(:) , POINTER ::  TGF
01025 
01027       DOUBLE PRECISION, DIMENSION(:) , POINTER ::  DUX
01028 
01030       DOUBLE PRECISION, DIMENSION(:) , POINTER ::  DUY
01031 
01033       DOUBLE PRECISION, DIMENSION(:) , POINTER ::  DVX
01034 
01036       DOUBLE PRECISION, DIMENSION(:) , POINTER ::  DVY
01037 
01039       DOUBLE PRECISION, DIMENSION(:) , POINTER ::  TETA
01040 
01042       DOUBLE PRECISION, DIMENSION(:) , POINTER ::  COSTET
01043 
01045       DOUBLE PRECISION, DIMENSION(:) , POINTER ::  SINTET
01046 
01048       DOUBLE PRECISION, DIMENSION(:) , POINTER ::  FBOR
01049 
01051       DOUBLE PRECISION, DIMENSION(:) , POINTER ::  TSDER
01052 
01054       DOUBLE PRECISION, DIMENSION(:) , POINTER ::  TSTOT
01055 
01057       DOUBLE PRECISION, DIMENSION(:) , POINTER ::  T0
01058 
01060       DOUBLE PRECISION, DIMENSION(:) , POINTER ::  T1
01061 
01063       DOUBLE PRECISION, DIMENSION(:) , POINTER ::  T2
01064 
01066       DOUBLE PRECISION, DIMENSION(:) , POINTER ::  T3
01067 
01069       DOUBLE PRECISION, DIMENSION(:) , POINTER ::  T4
01070 
01071       DOUBLE PRECISION, DIMENSION(:) , POINTER :: TRA40
01072 
01074       DOUBLE PRECISION, DIMENSION(:) , POINTER ::  BETA
01075 
01077       DOUBLE PRECISION, DIMENSION(:) , POINTER ::  TOLD
01078 
01080       DOUBLE PRECISION, DIMENSION(:) , POINTER ::  TNEW
01081 
01083       DOUBLE PRECISION, DIMENSION(:) ,POINTER :: TRA32,TRA33,
01084      & TRA34 , TRA35 , TRA36 , TRA37 , TRA38 , TRA39 , TRA41,TRA42,
01085      & TRA43 , TRA44 , TRA51 , TRA52 , TRA53 , TRA54 , TRA55,TRA56,
01086      & TRA57 , TRA58 , TRA59 , TRA60 , TRA61 , TRA62 , TRA63,TRA64,
01087      & TRA65 , TRA66
01090       DOUBLE PRECISION, DIMENSION(:) , POINTER :: TRA01,TRA31
01091 
01093       DOUBLE PRECISION, DIMENSION(:) , POINTER ::PRIVE
01094 
01096       INTEGER, DIMENSION(:), POINTER :: IBOR
01097 
01099       INTEGER, DIMENSION(:), POINTER :: LIFBOR
01100 
01102       INTEGER, DIMENSION(:), POINTER :: ELT
01103 
01105       INTEGER, DIMENSION(:), POINTER :: ETA
01106 ! numeros des Sous-domaines ou sont les pieds des caracteristiques
01107       INTEGER, DIMENSION(:), POINTER :: ISUB
01108 
01110       INTEGER, DIMENSION(:), POINTER :: FRE
01111 
01113       INTEGER, DIMENSION(:), POINTER :: ETAP1
01114 
01116       INTEGER, DIMENSION(:), POINTER :: IANGNL
01117 
01119       INTEGER, DIMENSION(:), POINTER :: ITR11 , ITR12 , ITR13
01120 
01122       INTEGER, DIMENSION(:), POINTER :: ITR01
01123 
01125       INTEGER, DIMENSION(:), POINTER :: ITR31,ITR32,ITR33
01126 !
01127 !     Diffraction
01128 !
01129       INTEGER, DIMENSION(:), POINTER ::   NB_CLOSE, NEIGB
01130       DOUBLE PRECISION, DIMENSION(:), POINTER :: A, A_RMSE, CCG, DELTA,
01131      &                DIV, DDX, DDY, RK, RX, RXX, RY, RYY, XKONPT
01132 !
01133 !     GEOMETRY FILE
01134 !
01135       INTEGER :: WACGEO
01136 !
01137 !     STEERING FILE
01138 !
01139       INTEGER :: WACCAS
01140 !
01141 !     BOUNDARY CONDITIONS FILE
01142 !
01143       INTEGER :: WACCLI
01144 !
01145 !     BOTTOM TOPOGRAPHY FILE
01146 !
01147       INTEGER :: WACFON
01148 !
01149 !     2D RESULTS FILE
01150 !
01151       INTEGER :: WACRES
01152 !
01153 !     1D SPECTRA RESULTS FILE
01154 !
01155       INTEGER :: WACSPE
01156 !
01157 !     PUNCTUAL RESULTS FILE
01158 !
01159       INTEGER :: WACLEO
01160 !
01161 !     PREVIOUS COMPUTATION FILE
01162 !
01163       INTEGER :: WACPRE
01164 !
01165 !     GLOBAL RESULT FILE
01166 !
01167       INTEGER :: WACRBI
01168 !
01169 !     BINARY CURRENTS FILE
01170 !
01171       INTEGER :: WACCOB
01172 !
01173 !     FORMATTED CURRENTS FILE
01174 !
01175       INTEGER :: WACCOF
01176 !
01177 !     BINARY FILE 1
01178 !
01179       INTEGER :: WACBI1
01180 !
01181 !     FORMATTED FILE 1
01182 !
01183       INTEGER :: WACFO1
01184 !
01185 !     BINARY WINDS FILE
01186 !
01187       INTEGER :: WACVEB
01188 !
01189 !     FORMATTED WINDS FILE
01190 !
01191       INTEGER :: WACVEF
01192 !
01193 !     PARALLELISM FILE (???)
01194 !
01195       INTEGER :: WACPAR
01196 !
01197 !     VALIDATION FILE
01198 !
01199       INTEGER :: WACREF
01200 !
01201 !     BINARY TIDAL WATER LEVEL FILE
01202 !
01203       INTEGER :: WACMAB
01204 !
01205 !     FORMATTED TIDAL WATER LEVEL FILE
01206 !
01207       INTEGER :: WACMAF
01208 !
01209 !     MAXIMUM OF LOGICAL UNITS NUMBERS
01210 !
01211       INTEGER, PARAMETER :: MAXLU_WAC = 44
01212 !
01213 !     BIEF_FILES STRUCTURES
01214 !
01215       TYPE(BIEF_FILE) :: WAC_FILES(MAXLU_WAC)
01216 !
01217 !     TOMAWAC CONSTANTS (INITIALISED INTO TOMAWAC_CONSTANTS)
01218 !
01219       DOUBLE PRECISION :: PI,DEUPI,GRAVIT,PISUR2,GRADEG,DEGRAD
01220       DOUBLE PRECISION :: SR,R2,USDPI
01221 !
01222 !     FOR READING NAMES OF VARIABLES IN SERAFIN DATA FILES
01223 !     30 IS HERE A MAXIMUM OF VARIABLES PER FILE
01224 !
01225       CHARACTER(LEN=32) :: TEXCOB(30),TEXMAB(30),TEXVEB(30)
01226 !
01227 !     NAMES OF VARIABLES IN SERAFIN DATA FILES (VELOCITY ALONG X AND Y
01228 !                                               WIND ALONG X AND Y
01229 !                                               DEPTH)
01230 !
01231       CHARACTER(LEN=32) :: NAMEU,NAMEV,NAMEWX,NAMEWY,NAMEH
01232 !
01233 !     UNIT OF TIME IN SERAFIN DATA FILES
01234 !
01235       DOUBLE PRECISION :: UNITCOB,UNITMAB,UNITVEB
01236 !
01237 !     TIME SHIFT IN SERAFIN DATA FILES
01238 !
01239       DOUBLE PRECISION :: PHASCOB,PHASMAB,PHASVEB
01240 !
01241       SAVE
01242 !
01243       END MODULE DECLARATIONS_TOMAWAC

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