1 : C TCONV2 SOURCE FANDEUR 11/07/19 21:17:32 7042
2 :
3 : C=======================================================================
4 : C= T C O N V 2 =
5 : C= ----------- =
6 : C= =
7 : C= Fonction : =
8 : C= ---------- =
9 : C= Ce sous-programme remplit le segment DESCRipteur de la matrice de =
10 : C= CONVECTION (type RIGIDITE) dans le cas d'un modele THERMIQUE =
11 : C= =
12 : C= Parametres : (E)=Entree (S)=Sortie =
13 : C= ------------ =
14 : C= ICOQ (E) = 0 si element MASSIF, sinon element COQUE =
15 : C= PEAU (E) Definit la PEAU consideree pour la convection dans =
16 : C= le cas des COQUEs ('INFERIEURE' ou 'SUPERIEURE') =
17 : C= NBNN (E) Nombre de NOEUDS dans le type d'element considere =
18 : C= IDESCR (S) Pointeur sur le segment DESCR =
19 : C= =
20 : C= Remarques : =
21 : C= ----------- =
22 : C= - L'inconnue PRIMALE est la temperature 'T ' pour les elements =
23 : C= MASSIFs et 'TINF', 'TSUP' ou 'T ' dans le cas d'element COQUE. =
24 : C= - L'inconnue DUALE est la chaleur 'Q ' pour les elements MASSIFs =
25 : C= et 'QINF' ou 'QSUP' dans le cas d'elements COQUEs. =
26 : C= - Ces noms de composantes pourraient figurer dans BDATA. =
27 : C= =
28 : C= Denis ROBERT, le 6 janvier 1988. =
29 : C= Mise a jour pour les coques, P. DOWLATYARI, juin 1990. =
30 : C=======================================================================
31 :
32 : SUBROUTINE TCONV2 (ICOQ,PEAU,NBNN,IDESCR)
33 :
34 : IMPLICIT INTEGER(I-N)
35 : IMPLICIT REAL*8 (A-H,O-Z)
36 :
37 : -INC SMRIGID
38 :
39 : CHARACTER*(*) PEAU
40 : CHARACTER*4 MOTHER,MOCHAL,MOTHR1,MOTHR2,MOCHL1,MOCHL2
41 :
42 : PARAMETER ( MOTHER='T ' )
43 : PARAMETER ( MOCHAL='Q ' )
44 : PARAMETER ( MOTHR1='TINF',MOTHR2='TSUP' )
45 : PARAMETER ( MOCHL1='QINF',MOCHL2='QSUP' )
46 :
47 : C 1 - Cas des elements COQUES
48 : C =============================
49 : IF (ICOQ.NE.0) THEN
50 : NLIGRP = NBNN
51 : NLIGRD = NBNN
52 : SEGINI,DESCR
53 : DO i = 1, NLIGRP
54 : IF (PEAU.EQ.'INFERIEURE') THEN
55 : LISINC(i) = MOTHR1
56 : LISDUA(i) = MOCHL1
57 : ELSE
58 : LISINC(i) = MOTHR2
59 : LISDUA(i) = MOCHL2
60 : ENDIF
61 : NOELEP(i) = i
62 : NOELED(i) = i
63 : ENDDO
64 :
65 : C 2 - Cas des elements MASSIFS
66 : C ==============================
67 : ELSE
68 : NLIGRP = NBNN
69 : NLIGRD = NBNN
70 : SEGINI,DESCR
71 : DO i = 1, NLIGRP
72 : LISINC(i) = MOTHER
73 : LISDUA(i) = MOCHAL
74 : NOELEP(i) = i
75 : NOELED(i) = i
76 : ENDDO
77 : ENDIF
78 :
79 : SEGDES,DESCR
80 : IDESCR = DESCR
81 :
82 : RETURN
83 : END
84 :
85 :
© Cast3M 2003 - All rights reserved.
Disclaimer