Procedures | Cast3M

   1 : * RAY       PROCEDUR  ANNE      02/12/20    21:15:25     4531           
   2 :        
   3 : *---------------------------PROCEDURE RAYONNEMENT--------------------------*
   4 : 
   5 :  'DEBPROC' ray ;
   6 : 
   7 : ****************************************************************************
   8 : * Procédure pérmettant de prendre en compte le rayonnement dans            *
   9 : * les operateurs equex et exec (couplage convection-rayonnement);          *
  10 : * Se couple aux équations habituelles de Navier_Stokes (cf. conv_ray.dgibi)*    
  11 : ****************************************************************************
  12 : 
  13 : 
  14 : 
  15 : **** création d'une table **** 
  16 : 
  17 :  'ARGU' rvx * 'TABLE' ;
  18 :  rv = rvx . 'EQEX' ;
  19 : 
  20 : 
  21 : **** récuperation du champ par points des températures ****
  22 : 
  23 : line =rvx.'LISTINCO';
  24 : noinco = 'EXTR' line 1 ;
  25 : t = rv.'INCO'.noinco;
  26 : tray = rvx . 'ARG1';
  27 : 
  28 : 
  29 : **** traitements ****
  30 : 
  31 : *maillage rayonnement*
  32 :  cavi = tray  . 'MA_RAI';
  33 :  
  34 : *modele rayonnement* 
  35 :  mrt =  tray  . 'MM_RAI' ;
  36 :  
  37 : *chamelem (issu de l'opérateur rayonnement)*
  38 :  mre  = tray  . 'MR_RAI' ;
  39 :  mrn  = rvx . 'DOMZ' ;
  40 : 
  41 : 
  42 : tc = 'REDU' t cavi ;
  43 : tc = 'EXCO' tc scal 'T' ;
  44 : tre = 'CHAN' 'CHAM' tc mrt 'GRAVITE' ;
  45 : mrs = 'RAYN' mrt mre tre     ;
  46 : 
  47 : 
  48 : pcav = 'DOMA' mrn 'SOMMET' ;
  49 : 
  50 : 
  51 : ** mrfs, matrice de rayonnement **
  52 : mrfs = 'KOPS' 'RIMA' mrs pcav ('MOTS' noinco) ;
  53 : 
  54 : 
  55 : 
  56 :  as af = 'KOPS' 'MATRIK' ;
  57 : 
  58 :  'FINP' as mrfs ;
  59 : 
  60 : 
  61 : 
  62 : 
  63 : 
  64 :