declarations_artemis.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\artemis\declarations_artemis.f
00002 !
00875                      MODULE DECLARATIONS_ARTEMIS
00876 !                    ***************************
00877 !
00878 !
00879 !***********************************************************************
00880 ! ARTEMIS   V6P1                                   31/05/2011
00881 !***********************************************************************
00882 !
00883 !
00884 !
00885 !
00886 !
00887 !
00888 !
00889 !
00890 !
00891 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00892 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00893 !
00894       USE BIEF_DEF
00895 !
00896 !       NOTE: THIS MODULE IS ORGANISED IN 10 PARTS
00897 !
00898 !       1) VECTORS (WILL BE DECLARED AS BIEF_OBJ STRUCTURES)
00899 !       2) MATRICES (WILL BE DECLARED AS BIEF_OBJ STRUCTURES)
00900 !       3) BLOCKS (WILL BE DECLARED AS BIEF_OBJ STRUCTURES)
00901 !       4) INTEGERS
00902 !       5) LOGICAL VALUES
00903 !       6) REALS
00904 !       7) STRINGS
00905 !       8) SLVCFG STRUCTURES
00906 !       9) MESH STRUCTURE
00907 !      10) ALIASES
00908 !
00909 !-----------------------------------------------------------------------
00910 !
00911 !       1) VECTORS
00912 !
00913 !-----------------------------------------------------------------------
00914 !
00915 ! partie reelle du potentiel
00916       TYPE(BIEF_OBJ), TARGET :: PHIR
00917 ! partie imaginaire du potentiel
00918       TYPE(BIEF_OBJ), TARGET :: PHII
00919 ! hauteur d'eau au repos
00920       TYPE(BIEF_OBJ), TARGET :: H
00921 ! nombre d'onde
00922       TYPE(BIEF_OBJ), TARGET :: K
00923 ! vitesse de phase
00924       TYPE(BIEF_OBJ), TARGET :: C
00925 ! vitesse de groupe
00926       TYPE(BIEF_OBJ), TARGET :: CG
00927 ! hauteur de la houle
00928       TYPE(BIEF_OBJ), TARGET :: HHO
00929 ! phase de la houle
00930       TYPE(BIEF_OBJ), TARGET :: PHAS
00931 ! vitesse en surface (a t=0)
00932       TYPE(BIEF_OBJ), TARGET :: U0
00933 ! vitesse en surface (a t=0)
00934       TYPE(BIEF_OBJ), TARGET :: V0
00935 ! moyennes des cosinus de la direction de houle
00936       TYPE(BIEF_OBJ), TARGET :: MCOS
00937 ! moyennes des sinus de la direction de houle
00938       TYPE(BIEF_OBJ), TARGET :: MSIN
00939 ! incidence de la houle
00940       TYPE(BIEF_OBJ), TARGET :: INCI
00941 ! cote de la surface libre
00942       TYPE(BIEF_OBJ), TARGET :: S
00943 ! cote du fond
00944       TYPE(BIEF_OBJ), TARGET :: ZF
00945 ! coefficient de frottement (variable en espace)
00946       TYPE(BIEF_OBJ), TARGET :: FW
00947 ! hauteur de la houle aleatoire
00948       TYPE(BIEF_OBJ), TARGET :: HALE
00949 ! tableau des periodes de discretisation du spectre pour un calcul en houle aleatoire multidirectionnelle
00950       TYPE(BIEF_OBJ), TARGET :: PALE
00951 ! coefficient de reflexion des parois
00952       TYPE(BIEF_OBJ), TARGET :: RP
00953 ! angle d'attaque de la houle sur les limites - pas seulement les parois (compte par rapport a a la normale , inclut dans [0;90])
00954       TYPE(BIEF_OBJ), TARGET :: TETAP
00955 ! dephasage induit par la paroi entre l'onde reflechie et l'onde incidente (si alfap est positif, l'onde reflechie est en retard)
00956       TYPE(BIEF_OBJ), TARGET :: ALFAP
00957 ! hauteur de la houle aux frontieres ouvertes
00958       TYPE(BIEF_OBJ), TARGET :: HB
00959 ! angle d'attaque de la houle aux frontieres ouvertes (compte par rapport a l'axe des x dans le sens direct)
00960       TYPE(BIEF_OBJ), TARGET :: TETAB
00961 ! partie reelle du potentiel impose au bord (dirichlet)
00962       TYPE(BIEF_OBJ), TARGET :: PHIRB
00963 ! partie imaginaire du potentiel impose au bord (dirichlet)
00964       TYPE(BIEF_OBJ), TARGET :: PHIIB
00965 
00966 ! partie reelle du potentiel incident au bord
00967       TYPE(BIEF_OBJ), TARGET :: PRB
00968 ! partie imaginaire du potentiel incident au bord
00969       TYPE(BIEF_OBJ), TARGET :: PIB
00970 ! partie reele du gradient en X du potentiel incident au bord
00971       TYPE(BIEF_OBJ), TARGET :: DDXPRB
00972 ! partie reele du gradient en Y du potentiel incident au bord
00973       TYPE(BIEF_OBJ), TARGET :: DDYPRB
00974 ! partie imaginaire du gradient en X du potentiel incident au bord
00975       TYPE(BIEF_OBJ), TARGET :: DDXPIB
00976 ! partie imaginaire du gradient en Y du potentiel incident au bord
00977       TYPE(BIEF_OBJ), TARGET :: DDYPIB
00978 ! coefficient pour les conditions aux limites
00979       TYPE(BIEF_OBJ), TARGET :: APHI1B
00980 ! coefficient pour les conditions aux limites
00981       TYPE(BIEF_OBJ), TARGET :: BPHI1B
00982 ! coefficient pour les conditions aux limites
00983       TYPE(BIEF_OBJ), TARGET :: CPHI1B
00984 ! coefficient pour les conditions aux limites
00985       TYPE(BIEF_OBJ), TARGET :: DPHI1B
00986 ! coefficient pour les conditions aux limites
00987       TYPE(BIEF_OBJ), TARGET :: CGRX1B
00988       TYPE(BIEF_OBJ), TARGET :: CGRY1B
00989       TYPE(BIEF_OBJ), TARGET :: DGRX1B
00990       TYPE(BIEF_OBJ), TARGET :: DGRY1B
00991 ! coefficient pour les conditions aux limites
00992       TYPE(BIEF_OBJ), TARGET :: APHI2B
00993 ! coefficient pour les conditions aux limites
00994       TYPE(BIEF_OBJ), TARGET :: BPHI2B
00995 ! coefficient pour les conditions aux limites
00996       TYPE(BIEF_OBJ), TARGET :: CPHI2B
00997 ! coefficient pour les conditions aux limites
00998       TYPE(BIEF_OBJ), TARGET :: DPHI2B
00999 ! coefficient pour les conditions aux limites
01000       TYPE(BIEF_OBJ), TARGET :: APHI3B
01001 ! coefficient pour les conditions aux limites
01002       TYPE(BIEF_OBJ), TARGET :: BPHI3B
01003 ! coefficient pour les conditions aux limites
01004       TYPE(BIEF_OBJ), TARGET :: CPHI3B
01005 ! coefficient pour les conditions aux limites
01006       TYPE(BIEF_OBJ), TARGET :: DPHI3B
01007 ! coefficient pour les conditions aux limites
01008       TYPE(BIEF_OBJ), TARGET :: APHI4B
01009 ! coefficient pour les conditions aux limites
01010       TYPE(BIEF_OBJ), TARGET :: BPHI4B
01011 ! coefficient pour les conditions aux limites
01012       TYPE(BIEF_OBJ), TARGET :: CPHI4B
01013 ! coefficient pour les conditions aux limites
01014       TYPE(BIEF_OBJ), TARGET :: DPHI4B
01015 ! angle d'attaque de la houle sur les limites - pas seulement les parois (compte par rapport a a la normale , inclut dans [0;90])
01016       TYPE(BIEF_OBJ), TARGET :: TETAPS
01017 ! angle d'attaque de la houle sur les limites - pas seulement les parois (compte par rapport a a la normale , inclut dans [0;90])
01018       TYPE(BIEF_OBJ), TARGET :: TETAPM
01019 !
01020 ! tableau de travail
01021       TYPE(BIEF_OBJ), TARGET :: W1
01022 !
01023       TYPE(BIEF_OBJ), TARGET :: IT1
01024 !
01025       TYPE(BIEF_OBJ), TARGET :: IT2
01026 !
01027       TYPE(BIEF_OBJ), TARGET :: IT3
01028 !
01029       TYPE(BIEF_OBJ), TARGET :: SBID
01030 !
01031       TYPE(BIEF_OBJ), TARGET :: CV1
01032 !
01033       TYPE(BIEF_OBJ), TARGET :: CV2
01034 ! tableau pour la dissipation
01035       TYPE(BIEF_OBJ), TARGET :: MU
01036 ! tableau pour la dissipation
01037       TYPE(BIEF_OBJ), TARGET :: MU2
01038 ! tableau pour la dissipation
01039       TYPE(BIEF_OBJ), TARGET :: QB
01040 ! tableau pour la dissipation
01041       TYPE(BIEF_OBJ), TARGET :: HMU
01042 ! tableau pour la dissipation
01043       TYPE(BIEF_OBJ), TARGET :: HMUANC
01044 ! tableau pour les contraintes de radiation
01045       TYPE(BIEF_OBJ), TARGET :: SXX
01046 ! tableau pour les contraintes de radiation
01047       TYPE(BIEF_OBJ), TARGET :: SXY
01048 ! tableau pour les contraintes de radiation
01049       TYPE(BIEF_OBJ), TARGET :: SYY
01050 ! tableau pour les contraintes de radiation
01051       TYPE(BIEF_OBJ), TARGET :: FX
01052 ! tableau pour les contraintes de radiation
01053       TYPE(BIEF_OBJ), TARGET :: FY
01054 ! periode moyenne issue du moment d'ordre 1
01055       TYPE(BIEF_OBJ), TARGET :: T01
01056 ! periode moyenne issue du moment d'ordre 2
01057       TYPE(BIEF_OBJ), TARGET :: T02
01058 ! periode moyenne issue du moment d'ordre 1
01059       TYPE(BIEF_OBJ), TARGET :: TM
01060 !
01061       TYPE(BIEF_OBJ), TARGET :: DALE
01062 !
01063       TYPE(BIEF_OBJ), TARGET :: PDALE
01064 ! type de conditions aux limites sur u
01065       TYPE(BIEF_OBJ), TARGET :: LIUBOR
01066 ! type de conditions aux limites sur v
01067       TYPE(BIEF_OBJ), TARGET :: LIVBOR
01068 ! type de conditions aux limites sur h
01069       TYPE(BIEF_OBJ), TARGET :: LIHBOR
01070 !
01071 
01072 ! 'COLOUR' OF BOUNDARY NODES (TAKEN IN BOUNDARY CONDITIONS FILE)
01073       TYPE(BIEF_OBJ), TARGET :: BOUNDARY_COLOUR
01074 ! 'BIDON INTEGER'
01075       TYPE(BIEF_OBJ), TARGET :: ITB1
01076 ! 'BIDON REEL
01077       TYPE(BIEF_OBJ), TARGET :: TB1
01078 
01079 
01080       TYPE(BIEF_OBJ), TARGET :: NUMLIQ
01081 !
01082       TYPE(BIEF_OBJ), TARGET :: LIDIR
01083 !
01084       TYPE(BIEF_OBJ), TARGET :: MASKEL
01085 ! masque pour les points de bord
01086       TYPE(BIEF_OBJ), TARGET :: MASK1
01087 ! masque pour les points de bord
01088       TYPE(BIEF_OBJ), TARGET :: MASK2
01089 ! masque pour les points de bord
01090       TYPE(BIEF_OBJ), TARGET :: MASK3
01091 ! masque pour les points de bord
01092       TYPE(BIEF_OBJ), TARGET :: MASK4
01093 ! masque pour les points de bord
01094       TYPE(BIEF_OBJ), TARGET :: MASK5
01095 
01096 
01097 ! CURRENT VELOCITY IN X IDRECTION
01098       TYPE(BIEF_OBJ), TARGET :: UC
01099 ! CURRENT VELOCITY IN Y IDRECTION
01100       TYPE(BIEF_OBJ), TARGET :: VC
01101 ! RELATIVE PULSATION
01102       TYPE(BIEF_OBJ), TARGET :: WR
01103 ! WAVE VECTOR COMPONENT X
01104       TYPE(BIEF_OBJ), TARGET :: KANCX
01105 ! WAVE VECTOR COMPONENT Y
01106       TYPE(BIEF_OBJ), TARGET :: KANCY
01107 ! MEAN OMEGA = 2 PI / T01
01108       TYPE(BIEF_OBJ), TARGET :: OMEGAM
01109 ! BOTTOM VELOCITY (RANDOM SEAS)
01110       TYPE(BIEF_OBJ), TARGET :: UEB
01111 !
01112 !-----------------------------------------------------------------------
01113 !
01114 !       2) MATRICES
01115 !
01116 !-----------------------------------------------------------------------
01117 !
01118 !
01119       TYPE(BIEF_OBJ), TARGET :: AM1
01120 !
01121       TYPE(BIEF_OBJ), TARGET :: AM2
01122 !
01123       TYPE(BIEF_OBJ), TARGET :: AM3
01124 !
01125       TYPE(BIEF_OBJ), TARGET :: BM1
01126 !
01127       TYPE(BIEF_OBJ), TARGET :: BM2
01128 !
01129       TYPE(BIEF_OBJ), TARGET :: MBOR
01130 !
01131 !-----------------------------------------------------------------------
01132 !
01133 !       3) BLOCKS
01134 !
01135 !-----------------------------------------------------------------------
01136 !
01137 !
01138 !
01139       TYPE(BIEF_OBJ), TARGET :: PHIB
01140 !
01141       TYPE(BIEF_OBJ), TARGET :: TB
01142 !
01143       TYPE(BIEF_OBJ), TARGET :: TBBD
01144 ! tableaux reserves a l'utilisateur
01145       TYPE(BIEF_OBJ), TARGET :: PRIVE
01146 !
01147       TYPE(BIEF_OBJ), TARGET :: MAT
01148 !
01149       TYPE(BIEF_OBJ), TARGET :: UNK
01150 !
01151       TYPE(BIEF_OBJ), TARGET :: RHS
01152 !
01153       TYPE(BIEF_OBJ), TARGET :: VARSOR
01154 !
01155 !-----------------------------------------------------------------------
01156 !
01157 !       4) INTEGERS
01158 !
01159 !-----------------------------------------------------------------------
01160 !
01161 ! maximum de variables de sortie
01162       INTEGER, PARAMETER :: MAXVAR = 100
01163 ! maximum de frontieres liquides
01164       INTEGER, PARAMETER :: MAXFRO = 3000
01165 ! maximum de tableau du spectre TOMAWAC (frequences)
01166       INTEGER, PARAMETER :: MAXFRE = 300
01167 ! maximum de tableau du spectre TOMAWAC (direction)
01168       INTEGER, PARAMETER :: MAXDIR = 720
01169 !     OPEN BOUNDARY WITH INCIDENT POTENTIAL
01170       INTEGER, PARAMETER :: KPOT  =  7
01171 
01172 ! coordonnee de l'origine
01173       INTEGER I_ORIG
01174 ! coordonnee de l'origine
01175       INTEGER J_ORIG
01176 ! periode de sortie graphique
01177       INTEGER LEOPRD
01178 ! periode de sortie listing
01179       INTEGER LISPRD
01180 ! maximum d'iterations pour le solveur
01181       INTEGER NITMAX
01182 ! standard du fichier de geometrie
01183       INTEGER STDGEO
01184 ! standard du fichier des resultats
01185       INTEGER STDRES
01186 ! option du solveur
01187       INTEGER ISOLVE(2)
01188 ! nombre de lissages du fond
01189       INTEGER LISFON
01190 ! discretisation en espace
01191       INTEGER DISESP
01192 ! nombre de periodes de discretisation du spectre de houle
01193       INTEGER NPALE
01194 ! nombre de directions de discretisation du spectre de houle
01195       INTEGER NDALE
01196 ! stockage des matrices
01197       INTEGER OPTASS
01198 ! formulation du deferlement
01199       INTEGER IBREAK
01200 ! maximum de sous-iterations
01201       INTEGER NITDIS
01202 ! longueur du vecteur
01203       INTEGER LVMAC
01204 ! loi de frottement sur le fond
01205       INTEGER KFROT
01206 ! formulation du frottement de fond
01207       INTEGER FORMFR
01208 ! type du regime hydraulique
01209       INTEGER REGIDO
01210 ! produit matrice-vecteur
01211       INTEGER PRODUC
01212 ! nombre de tableaux prives
01213       INTEGER NPRIV
01214 !
01215       INTEGER PTINIG
01216 !
01217       INTEGER PTINIL
01218 ! type d'element
01219       INTEGER IELM
01220 !
01221       INTEGER IELM0
01222 ! type d'element de bord
01223       INTEGER IELMB
01224 !
01225       INTEGER IELMB0
01226 ! date de l'origine des temps
01227       INTEGER MARDAT(3)
01228 ! heure de l'origine des temps
01229       INTEGER MARTIM(3)
01230 !
01231       INTEGER NFRLIQ
01232 !
01233       INTEGER NFRSOL
01234 !
01235       INTEGER DEBLIQ(MAXFRO)
01236 !
01237       INTEGER FINLIQ(MAXFRO)
01238 !
01239       INTEGER DEBSOL(MAXFRO)
01240 !
01241       INTEGER FINSOL(MAXFRO)
01242 ! prise en compte des effets de pente/courbure
01243       INTEGER IPENTCO
01244       INTEGER LPER
01245       INTEGER LDIR
01246 ! nombre max d'iteration pour calcul auto du TETAP
01247       INTEGER NITTP
01248 ! nombre de frequence du spectre importe de TOMAWAC
01249       INTEGER NFTWC
01250 ! nombre de direction du spectre importe de TOMAWAC
01251       INTEGER NDTWC
01252       INTEGER DTWC(2*MAXDIR+1)
01253 
01254 
01255 
01256 !-----------------------------------------------------------------------
01257 !
01258 !       5) LOGICAL VALUES
01259 !
01260 !-----------------------------------------------------------------------
01261 !
01262 ! si oui, sortie listing
01263       LOGICAL LISTIN
01264 !
01265       LOGICAL INFOGR
01266 ! si oui, balayage en periodes
01267       LOGICAL BALAYE
01268 ! si oui, houle aleatoire monodirectionnelle
01269       LOGICAL ALEMON
01270 ! si oui, houle aleatoire multidirectionnelle
01271       LOGICAL ALEMUL
01272 !
01273       LOGICAL MSK
01274 !
01275       LOGICAL SPHERI
01276 ! si oui, deferlement
01277       LOGICAL DEFERL
01278 ! si oui, frottement
01279       LOGICAL FROTTE
01280 ! si oui, facteur de frottement impose
01281       LOGICAL ENTFW
01282 ! si oui, regime hydraulique impose
01283       LOGICAL ENTREG
01284 ! si oui, rugosite de peau seule
01285       LOGICAL ENTRUG
01286 ! si oui, lissage des hauteurs de houle
01287       LOGICAL LISHOU
01288 !
01289       LOGICAL SORLEO(MAXVAR)
01290 !
01291       LOGICAL SORIMP(MAXVAR)
01292 ! si oui, validation
01293       LOGICAL VALID
01294 ! Yes = current taken into account (defined in condih.f)
01295       LOGICAL COURANT
01296 !!brief AUTOMATIC ANGLES
01297 ! si oui,calcul automatique des angles de sortie TETAP
01298       LOGICAL LANGAUTO
01299 !!brief AUTOMATIC PHASES ON INCIDENT WAVE BOUNDARY
01300 ! si oui, calcul automatique des phases sur la frontière de type onde incidente (KINC)
01301       LOGICAL LPHASEAUTO
01302 !!brief CHAINING TOMAWAC AND ARTEMIS USING A TOMAWAC SPECTRUM ON A SINGLE POINT
01303 ! si oui, utilise un spectre issu de TOMAWAC (en 1 point) en entree du calcul artemis
01304       LOGICAL CHAINTWC
01305 !-----------------------------------------------------------------------
01306 !
01307 !       6) REALS
01308 !
01309 !-----------------------------------------------------------------------
01310 !
01311 ! acceleration de la pesanteur
01312       DOUBLE PRECISION GRAV
01313 ! valeur minimum de h
01314       DOUBLE PRECISION HMIN
01315 ! periode de la houle en cours de calcul
01316       DOUBLE PRECISION PER
01317 ! pulsation de la houle
01318       DOUBLE PRECISION OMEGA
01319 ! direction principale de propagation de la houle
01320       DOUBLE PRECISION TETAH
01321 ! cote initiale
01322       DOUBLE PRECISION COTINI
01323 ! hauteur initiale
01324       DOUBLE PRECISION HAUTIN
01325 ! periode de debut pour le balayage en periode
01326       DOUBLE PRECISION PERDEB
01327 ! periode de fin pour le balayage en periode
01328       DOUBLE PRECISION PERFIN
01329 ! pas pour le balayage en periode
01330       DOUBLE PRECISION PERPAS
01331 ! periode de pic
01332       DOUBLE PRECISION PERPIC
01333 ! gamma
01334       DOUBLE PRECISION GAMMA
01335 ! valeur minimum de l'angle de propagation
01336       DOUBLE PRECISION TETMIN
01337 ! valeur maximum de l'angle de propagation
01338       DOUBLE PRECISION TETMAX
01339 ! exposant s dans la formule du spectre
01340       DOUBLE PRECISION EXPOS
01341 !
01342       DOUBLE PRECISION RELAX
01343 ! coefficient de frottement
01344       DOUBLE PRECISION FFON
01345 ! precision sur les sous-iterations
01346       DOUBLE PRECISION EPSDIS
01347 ! relaxation sur la dissipation
01348       DOUBLE PRECISION RELDIS
01349 ! alpha
01350       DOUBLE PRECISION ALFABJ
01351 ! gammas
01352       DOUBLE PRECISION GAMMAS
01353 !
01354       DOUBLE PRECISION KDALLY
01355 !
01356       DOUBLE PRECISION GDALLY
01357 ! viscosite cinematique du fluide
01358       DOUBLE PRECISION VISCO
01359 ! diametre90
01360       DOUBLE PRECISION DIAM90
01361 ! diametre50
01362       DOUBLE PRECISION DIAM50
01363 ! masse volumique du sediment
01364       DOUBLE PRECISION MVSED
01365 ! masse volumique du fluide
01366       DOUBLE PRECISION MVEAU
01367 ! coefficient de frottement constant impose
01368       DOUBLE PRECISION FWCOEF
01369 ! coefficient de rides
01370       DOUBLE PRECISION RICOEF
01371 ! periode minimum du spectre
01372       DOUBLE PRECISION PMIN
01373 ! periode maximum du spectre
01374       DOUBLE PRECISION PMAX
01375 ! Profondeur d'eau de référence pour le calcul automatique des phases
01376       DOUBLE PRECISION DEPREF
01377 ! Nombre d'onde de référence pour le calcul automatique des phases
01378       DOUBLE PRECISION KPHREF
01379 ! coordonee en x du point de reference pour les phases
01380       DOUBLE PRECISION X_PHREF
01381 ! coordonee en y du point de reference pour les phases
01382       DOUBLE PRECISION Y_PHREF
01383 ! precision sur les sous-iterations pour le courant (direction vecteur d'onde)
01384       DOUBLE PRECISION EPSDIR
01385 ! precision sur les sous-iterations sur le TETAP
01386       DOUBLE PRECISION EPSTP
01387 !briefRELAXATION COEFFICIENT FOR TETAP
01388 ! coefficient de relaxation pour calcul automatic de TETAP
01389       DOUBLE PRECISION RELTP
01390       DOUBLE PRECISION SPETWC(MAXDIR,MAXFRE)
01391       DOUBLE PRECISION FREQTWC(MAXFRE)
01392       DOUBLE PRECISION DIRTWC(MAXDIR)
01393       DOUBLE PRECISION FTWC(2*MAXFRE+1)
01394       DOUBLE PRECISION TPSTWC
01395 ! Significant wave height corresponding to global
01396 ! energy contained in TOMAWAC spectrum
01397       DOUBLE PRECISION HSCAL
01398 !-----------------------------------------------------------------------
01399 !
01400 !       7) STRINGS
01401 !
01402 !-----------------------------------------------------------------------
01403 !
01404 ! titre de l'etude
01405       CHARACTER*72 TITCAS
01406 !
01407       CHARACTER*72 VARDES
01408 ! variables a imprimer
01409       CHARACTER*72 VARIMP
01410 ! conditions initiales
01411       CHARACTER*72 CDTINI
01412 ! binaire du fichier de geometrie
01413       CHARACTER*3 BINGEO
01414 ! binaire du fichier des resultats
01415       CHARACTER*3 BINRES
01416 !
01417       CHARACTER*20 EQUA
01418 !
01419       CHARACTER*32 VARCLA(10)
01420 !
01421       CHARACTER*32 TEXTE(MAXVAR)
01422 !
01423       CHARACTER*32 TEXTPR(MAXVAR)
01424 !
01425 !-----------------------------------------------------------------------
01426 !
01427 !       8) SLVCFG STRUCTURES
01428 !
01429 !-----------------------------------------------------------------------
01430 !
01431 !
01432       TYPE(SLVCFG) :: SLVART
01433 !
01434 !-----------------------------------------------------------------------
01435 !
01436 !       9) MESH STRUCTURE
01437 !
01438 !-----------------------------------------------------------------------
01439 !
01440 !
01441       TYPE(BIEF_MESH) :: MESH
01442 !
01443 !-----------------------------------------------------------------------
01444 !
01445 !      10) ALIASES
01446 !
01447 !-----------------------------------------------------------------------
01448 !
01449 !       DECLARATION OF POINTERS FOR ALIASES.
01450 !       TARGETS ARE DEFINED IN POINT_ARTEMIS
01451 !
01452 !       ALIASES FOR WORKING VECTORS IN TB AND TBBD
01453 !
01454 !
01455       TYPE(BIEF_OBJ),POINTER :: T1
01456 !
01457       TYPE(BIEF_OBJ),POINTER :: T2
01458 !
01459       TYPE(BIEF_OBJ),POINTER :: T3
01460 !
01461       TYPE(BIEF_OBJ),POINTER :: T4
01462 !
01463       TYPE(BIEF_OBJ),POINTER :: T5
01464 !
01465       TYPE(BIEF_OBJ),POINTER :: T6
01466 !
01467       TYPE(BIEF_OBJ),POINTER :: T7
01468 !
01469       TYPE(BIEF_OBJ),POINTER :: T8
01470 !
01471       TYPE(BIEF_OBJ),POINTER :: T9
01472 !
01473       TYPE(BIEF_OBJ),POINTER :: T10
01474 !
01475       TYPE(BIEF_OBJ),POINTER :: T11
01476 !
01477       TYPE(BIEF_OBJ),POINTER :: T12
01478 !
01479       TYPE(BIEF_OBJ),POINTER :: T13
01480 !
01481       TYPE(BIEF_OBJ),POINTER :: T14
01482 !
01483       TYPE(BIEF_OBJ),POINTER :: T15
01484 !
01485       TYPE(BIEF_OBJ),POINTER :: T16
01486 !
01487       TYPE(BIEF_OBJ),POINTER :: TBD1
01488 !
01489       TYPE(BIEF_OBJ),POINTER :: TBD2
01490 !
01491       TYPE(BIEF_OBJ),POINTER :: TBD3
01492 !
01493       TYPE(BIEF_OBJ),POINTER :: TBD4
01494 !
01495 !       USEFUL COMPONENTS IN STRUCTURE MESH
01496 !
01497 ! table de connectivite
01498       TYPE(BIEF_OBJ), POINTER :: IKLE
01499 ! coordonnees des points du maillage
01500       DOUBLE PRECISION, DIMENSION(:), POINTER :: X
01501 ! coordonnees des points du maillage
01502       DOUBLE PRECISION, DIMENSION(:), POINTER :: Y
01503 ! nombre d'elements du maillage
01504       INTEGER, POINTER        :: NELEM
01505 !
01506       INTEGER, POINTER        :: NELMAX
01507 ! nombre de points frontiere
01508       INTEGER, POINTER        :: NPTFR
01509 !
01510       INTEGER, POINTER        :: NPTFRX
01511 !
01512       INTEGER, POINTER        :: DIM
01513 !
01514       INTEGER, POINTER        :: TYPELM
01515 ! nombre de points du maillage
01516       INTEGER, POINTER        :: NPOIN
01517 !
01518       INTEGER, POINTER        :: NPMAX
01519 !
01520       INTEGER, POINTER        :: MXPTVS
01521 !
01522       INTEGER, POINTER        :: MXELVS
01523 !
01524       INTEGER, POINTER        :: LV
01525 !
01526 !-----------------------------------------------------------------------
01527 !
01528 !      10) ART_FILES AND ASSOCIATED
01529 !
01530 !-----------------------------------------------------------------------
01531 !
01532 !
01533       INTEGER, PARAMETER :: MAXLU_ART = 44
01534 ! nom du fichier de geometrie
01535       INTEGER :: ARTGEO
01536 ! nom du fichier des parametres
01537       INTEGER :: ARTCAS
01538 ! nom du fichier des conditions aux limites
01539       INTEGER :: ARTCLI
01540 ! nom du fichier des fonds
01541       INTEGER :: ARTFON
01542 ! nom du fichier des resultats
01543       INTEGER :: ARTRES
01544 ! nom du fichier des resultats binaire
01545       INTEGER :: ARTRBI
01546 ! nom du fichier des resultats formate
01547       INTEGER :: ARTRFO
01548 ! nom du fichier de reference
01549       INTEGER :: ARTREF
01550 ! nom du fichier de donnees binaire 1
01551       INTEGER :: ARTBI1
01552 ! nom du fichier de donnees binaire 2
01553       INTEGER :: ARTBI2
01554 ! nom du fichier de donnees formate 1
01555       INTEGER :: ARTFO1
01556 ! nom du fichier de donnees formate 2
01557       INTEGER :: ARTFO2
01558 ! nom du fichier de donnees tomawac 1 (binaire)
01559       INTEGER :: ARTTC1
01560 
01561 
01562 
01563 !
01564       TYPE(BIEF_FILE) :: ART_FILES(MAXLU_ART)
01565 !
01566       SAVE
01567 !
01568       END MODULE DECLARATIONS_ARTEMIS

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