Télécharger clinc.procedur

Retour à la liste

Numérotation des lignes :

  1. * CLINC PROCEDUR SERRE 20/10/19 21:15:00 10751
  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') ;
  73. *'LIST' nic ;
  74. okr = faux ;
  75. 'SI' ('EGA' NIC 'TF' ) ; mot1 = 'Tout' ; okr = vrai ; 'FINS' ;
  76. 'SI' ('EGA' NIC 'RVP') ; mot1 = 'RH2OS' ; okr = vrai ; 'FINS' ;
  77. 'SI' ('EGA' NIC 'RH2') ; mot1 = 'RH2S' ; okr = vrai ; 'FINS' ;
  78. 'SI' ('EGA' NIC 'RO2') ; mot1 = 'RO2S' ; okr = vrai ; 'FINS' ;
  79. 'SI' ('EGA' NIC 'RN2') ; mot1 = 'RN2S' ; okr = vrai ; 'FINS' ;
  80. 'SI' ('EGA' NIC 'RHE') ; mot1 = 'RHES' ; okr = vrai ; 'FINS' ;
  81. 'SI' ('EGA' NIC 'RCO') ; mot1 = 'RCOS' ; okr = vrai ; 'FINS' ;
  82. 'SI' ('EGA' NIC 'RCO2') ; mot1 = 'RCO2S' ; okr = vrai ; 'FINS' ;
  83. *'LIST' mot1 ;
  84. 'SI' okr ;
  85. cpvrec matxx = 'KOPS' 'MATRIK' ;
  86. NBREC = 'DIME' rxt . 'RECOMB' ;
  87. 'REPE' BCLREC NBREC ;
  88. NAME = 'CHAIN' 'REC' 'sorI' &BCLREC ;
  89. SORTIEi = GEO . NAME ;
  90. NRECT = 'DIME' RXT . 'TIC' . 'RECOMB' . &BCLREC . mot1 ;
  91. RTS0 = 'EXTR' RXT . 'TIC' . 'RECOMB' . &BCLREC . mot1 NRECT ;
  92. cpvrec = cpvrec 'ET' ('MANU' 'CHPO' SORTIEi 1 NIC RTS0
  93. 'NATURE' 'DISCRET') ;
  94. 'FIN' BCLREC ;
  95. 'SI' ((TBT.'Tbreche') 'OU' (TBT.'Tbreche2') 'OU' (TBT.'Tbreche3')
  96. ou TBT.'TTbreche' ou TBT.'TTsortie') ;
  97. rtf . 'CLIM' = rtf . 'CLIM' '+' cpvrec ;
  98. 'SINO' ;
  99. rtf . 'CLIM' = cpvrec ;
  100. 'FINS' ;
  101. 'FINS' ;
  102. 'FINS' ;
  103. *
  104. 'FINP' ;
  105.  
  106.  
  107.  

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