Télécharger clinc.procedur

Retour à la liste

Numérotation des lignes :

  1. * CLINC PROCEDUR MAGN 18/06/08 21:15:05 9840
  2. 'DEBPROC' CLINC rxt*'TABLE' rtf*'TABLE' TKAS*'LOGIQUE' NIC*MOT Nj*MOT
  3. Nj1*'FLOTTANT' Nj2*'FLOTTANT' Nj3*'FLOTTANT' ;
  4. *======================================================================;
  5. * RESOLUTION DE LA TEMPERATURE DU FLUIDE TF
  6. * Definition des températures TBPW et TBP pour ECHI
  7. * TBPW température paroi (THERMP)
  8. * Definition des CLIM pour l'injection et ajout
  9. * des CLIM pour température paroi imposée
  10. * Le terme source STF est calcule avant (fin pas precedent)
  11.  
  12. TBT = rxt.'TBT';
  13. TIC = rxt.'TIC';
  14. GEO = rxt.'GEO';
  15. mess ' CLINC NIC=' NIC Nj ;
  16.  
  17. 'SI' ((TBT.'TPAROIF') et ('EGA' NIC 'TF')) ;
  18. TBPW = 'REDU' (tic.'TP') GEO.'paroif' ;
  19. tic.'TBPW' = 'KCHT' GEO.'$paroif' 'SCAL' 'SOMMET' TBPW ;
  20. TBFW = 'REDU' (tic.NIC) GEO.'paroif' ;
  21. tic.'TBFW' = 'KCHT' GEO.'$paroif' 'SCAL' 'SOMMET' TBFW ;
  22. 'FINSI' ;
  23.  
  24. *-- On traite l'injection comme une C.L. en température
  25. cpv matxx= 'KOPS' 'MATRIK' ;
  26. Si (TBT.'TTsortie') ;
  27. NBR=dime rxt.'Sorties' ;
  28. ibr=index (rxt.'Sorties') ;
  29. Repeter BBRS NBR ;
  30. Briches=rxt.'Sorties'.(ibr.&BBRS) ;
  31. * mess ' Sorties CL pour T ' (ibr.&BBRS) ;
  32. brecheis = Briches.'srechei' ;
  33. Si (NON Briches.'TTOUT') ;
  34. cpv = cpv et ('MANU' 'CHPO' brecheis 1 NIC
  35. (Briches.Nj) 'NATURE' 'DISCRET') ;
  36. Finsi ;
  37. FIN BBRS ;
  38. FINSI ;
  39. Si (TBT.'TTbreche') ;
  40. NBR=dime rxt.'Breches' ;
  41. ibr=index (rxt.'Breches') ;
  42. Repeter BBRS NBR ;
  43. Briches=rxt.'Breches'.(ibr.&BBRS) ;
  44. * mess ' Breches CL pour T ' (ibr.&BBRS) ;
  45. brecheis = Briches.'brechei' ;
  46. cpv = cpv et ('MANU' 'CHPO' brecheis 1 NIC
  47. (Briches.Nj) 'NATURE' 'DISCRET') ;
  48. FIN BBRS ;
  49. FINSI ;
  50. Si (TBT.'Tbreche') ;
  51. cpv = cpv et ('MANU' 'CHPO' brechei 1 NIC
  52. Nj1 'NATURE' 'DISCRET') ;
  53. Finsi ;
  54. Si (TBT.'Tbreche2') ;
  55. cpv = cpv et ('MANU' 'CHPO' brech2i 1 NIC
  56. Nj2 'NATURE' 'DISCRET') ;
  57. Finsi ;
  58. Si (TBT.'Tbreche3') ;
  59. cpv = cpv et ('MANU' 'CHPO' brech3i 1 NIC
  60. Nj3 'NATURE' 'DISCRET') ;
  61. Finsi ;
  62.  
  63. Si ((TBT.'Tbreche') ou (TBT.'Tbreche2') ou (TBT.'Tbreche3')
  64. ou TBT.'TTbreche' ou TBT.'TTsortie');
  65. Si (TKAS et ('EXIST' rtf 'CLIM')) ;
  66. rtf.'CLIM' = rtf.'CLIM' '+' cpv ;
  67. Sinon ;
  68. rtf.'CLIM' = cpv ;
  69. Finsi ;
  70. Finsi ;
  71.  
  72. 'SI' (TBT.'TRECOMB' et ('EGA' NIC 'TF')) ;
  73. cpvrec matxx= 'KOPS' 'MATRIK' ;
  74.  
  75. NBREC = 'DIME' rxt.'RECOMB' ;
  76. 'REPETER' BCLREC NBREC ;
  77. NAME = 'CHAIN' 'REC' 'sorI' &BCLREC ;
  78. SORTIEi = GEO.NAME ;
  79. NRECT = 'DIME' RXT.'TIC'.'RECOMB'.&BCLREC.'Tout' ;
  80. RTS0 = 'EXTR' RXT.'TIC'.'RECOMB'.&BCLREC.'Tout' NRECT ;
  81.  
  82. cpvrec = cpvrec 'ET' ('MANU' 'CHPO' SORTIEi 1 NIC
  83. RTS0 'NATURE' 'DISCRET') ;
  84. 'FIN' BCLREC ;
  85.  
  86. 'SI' ((TBT.'Tbreche') 'OU' (TBT.'Tbreche2') 'OU' (TBT.'Tbreche3')
  87. ou TBT.'TTbreche' ou TBT.'TTsortie') ;
  88. rtf.'CLIM' = rtf.'CLIM' '+' cpvrec ;
  89. 'SINON' ;
  90. rtf.'CLIM' = cpvrec ;
  91. 'FINSI' ;
  92. 'FINSI' ;
  93.  
  94.  
  95. FINPROC;
  96.  
  97.  

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