Télécharger la plaquette Cast3M


fr en

Télécharger tconv2.eso

Retour à la liste

Numérotation des lignes : 

tconv2

  1. C TCONV2    SOURCE    CB215821  16/02/29    21:15:01     8835
  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. -INC PPARAM
  40. -INC CCOPTIO
  41.  
  42.       CHARACTER*(*) PEAU
  43.       CHARACTER*4 MOTHER,MOCHAL,MOTHR1,MOTHR2,MOCHL1,MOCHL2
  44.  
  45.       PARAMETER ( MOTHER='T   ' )
  46.       PARAMETER ( MOCHAL='Q   ' )
  47.       PARAMETER ( MOTHR1='TINF',MOTHR2='TSUP' )
  48.       PARAMETER ( MOCHL1='QINF',MOCHL2='QSUP' )
  49.  
  50. C  1 - Cas des elements COQUES
  51. C =============================
  52.       IF (ICOQ.NE.0) THEN
  53.         NLIGRP = NBNN
  54.         NLIGRD = NBNN
  55.         SEGINI,DESCR
  56.         DO i = 1, NLIGRP
  57.           IF    (PEAU.EQ.'INFERIEURE') THEN
  58.             LISINC(i) = MOTHR1
  59.             LISDUA(i) = MOCHL1
  60.           ELSEIF(PEAU.EQ.'SUPERIEURE') THEN
  61.             LISINC(i) = MOTHR2
  62.             LISDUA(i) = MOCHL2
  63.           ELSE
  64.             MOTERR(1:8) ='MOT     '
  65.             MOTERR(9:16)=PEAU(1:8)
  66.             CALL ERREUR(11)
  67.             RETURN
  68.           ENDIF
  69.           NOELEP(i) = i
  70.           NOELED(i) = i
  71.         ENDDO
  72.  
  73. C  2 - Cas des elements MASSIFS
  74. C ==============================
  75.       ELSE
  76.         NLIGRP = NBNN
  77.         NLIGRD = NBNN
  78.         SEGINI,DESCR
  79.         DO i = 1, NLIGRP
  80.           LISINC(i) = MOTHER
  81.           LISDUA(i) = MOCHAL
  82.           NOELEP(i) = i
  83.           NOELED(i) = i
  84.         ENDDO
  85.       ENDIF
  86.  
  87.       SEGDES,DESCR
  88.       IDESCR = DESCR
  89.  
  90.       RETURN
  91.       END
  92.  
  93.  
  94.  
  95.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales