Télécharger pq1.dgibi

Retour à la liste

Numérotation des lignes :

  1. * fichier : pq1.dgibi
  2. *---------------------------------------------------------
  3. * Cas test de non régression sur le controle des maillages
  4. *---------------------------------------------------------
  5. * Pressurisation d'une enceinte type Phébus
  6. *
  7. * Le maillage correspond à une enceinte cylindrique
  8. * d'environ 10 m3 avec un mur en contact avec la
  9. * paroi verticale (10 cm d'acier)
  10. * Tout le volume est initialement a 1bar et 40oC
  11. * et la température du mur est mise à 60oC
  12. * au début du calcul. On calcule la pressurisation
  13. * de cette enceinte sur 50 secondes en injectant un débit
  14. * de 50g/s de vapeur à 150oC. Ce test (un peu long)
  15. * verifie le demarrage de la condensation a 20"
  16. * verifie l'evolution moyenne de la temprature gaz
  17. * verifie la pression max a 50"
  18. * verifie la vitesse max a 50" (Convection naturelle)
  19. * verifie la masse d'eau a 50"
  20. * Auteurs : E. Studer, Novembre 1999
  21. * revisite Mars 2001
  22. *--------------------------------------------------------
  23. COMPLET = FAUX ;
  24. *COMPLET = VRAI ;
  25. GRAPH = VRAI ;
  26. GRAPH = FAUX ;
  27. 'OPTI' 'TRAC' 'X' ;
  28. *'OPTI' 'TRAC' 'PSC' ;
  29.  
  30. 'SI' COMPLET ;
  31.  
  32. nbit=100;
  33. DT0 = 1. ;
  34. n1 = 1 ; n2 = 4 ; n3 = 4 ;
  35. n4 = 8 ; nn = 2 ;
  36.  
  37. 'SINON' ;
  38.  
  39. nbit= 5 ;
  40. DT0 = 10. ;
  41. n1 = 1 ; n2 = 2 ; n3 = 4 ;
  42. n4 = 4 ; nn = 1 ;
  43.  
  44. 'FINSI' ;
  45.  
  46. *--------------------------------------------------------
  47. * Definition du maillage de l'enceinte cylindrique
  48. *
  49. 'OPTI' 'DIME' 3 'ELEM' 'CU20' ;
  50.  
  51. ri = 1.052 ; sp = 0.10 ; hc = 4.163 ;
  52.  
  53.  
  54.  
  55. epsi = 1.000e-2 ; ;
  56.  
  57. p0 = 0.000 0.000 0.000 ;
  58. px = -1000.000 0.000 0.000 ;
  59. py = 0.000 -1000.000 0.000 ;
  60. pz = 0.000 0.000 1000.000 ;
  61. cd = 0.000 0.000 -20.000 ;
  62. ph0 = 0.000 0.000 hc ;
  63. phx = ri 0.000 hc ;
  64. phy = 0.000 ri hc ;
  65.  
  66. fg1 = 0.25 ;
  67. fg2 = fg1 * (2.0 ** 0.5) / 2. ;
  68.  
  69. p1 = (ri*fg1) 0.000 0.000 ;
  70. p2 = (ri*fg2) (ri*fg2) 0.000 ;
  71. p3 = 0.000 (ri*fg1) 0.000 ;
  72. p4 = ri 0.000 0.000 ;
  73. p5 = 0.000 ri 0.000 ;
  74. p6 = (ri+sp) 0.000 0.000 ;
  75. p7 = 0.000 (ri+sp) 0.000 ;
  76.  
  77. * Hauteur de l'enceinte
  78. h1 = 4.163 ;
  79. * Vecteur de translation
  80. v1 = 0. 0. h1 ;
  81.  
  82. l1 = 'DROI' p0 p1 n1 ;
  83. l2 = 'DROI' p1 p2 n1 ;
  84. l3 = 'DROI' p2 p3 n1 ;
  85. l4 = 'DROI' p3 p0 n1 ;
  86. l5 = 'CERC' p4 p0 p5 (2*n1) ;
  87. l6 = 'CERC' p6 p0 p7 (2*n1) ;
  88.  
  89. basf0= 'DALL' l1 l2 l3 l4 'PLAN' ;
  90. basf1=('REGL' (l2 'ET' l3) l5 n2) ;
  91. l44= cote 2 basf1;
  92. ax4= (inve l4) et l44 ;
  93. l11= cote 4 basf1;
  94. ax1= l11 et (inve l1) ;
  95.  
  96. basf = basf0 'ET' ('REGL' (l2 'ET' l3) l5 n2) ;
  97. 'ELIM' basf epsi ;
  98. basf = basf 'ET' ('SYME' basf 'DROI' p0 p3) ;
  99. ax11 = ('SYME' ax1 'DROI' p0 p3) 'ET' (inve ax1) ;
  100. 'ELIM' basf epsi ;
  101. basf = basf 'ET' ('SYME' basf 'DROI' p0 p1) ;
  102. ax44 = (inve ax4) 'ET' ('SYME' ax4 'DROI' p0 p4) ;
  103. 'ELIM' basf epsi ;
  104.  
  105. basm = 'REGL' l5 l6 n3 ;
  106. basm = basm 'ET' ('SYME' basm 'DROI' p0 p3) ;
  107. 'ELIM' basm epsi ;
  108. basm = basm 'ET' ('SYME' basm 'DROI' p0 p1) ;
  109. 'ELIM' basm epsi ;
  110.  
  111. * Creation du volume
  112.  
  113. dx = ri / 2. ;
  114. nz1 = ('ENTIER' ( h1 / dx ))*nn ;
  115.  
  116. bas = basf 'VOLU' nz1 'TRAN' v1 ;
  117. mbas = basm 'VOLU' nz1 'TRAN' v1 ;
  118. mbas = mbas 'COUL' 'ROUG' ;
  119. plan1 = ax11 'TRAN' nz1 v1 ;
  120. plan4 = ax44 'TRAN' nz1 v1 ;
  121. 'ELIM' (bas et plan1 et plan4) epsi ;
  122.  
  123. mt = bas ;
  124. wall = mbas ;
  125. elim (mt et wall) epsi ;
  126.  
  127. * Localisation d'une brèche éventuelle au bas de l'enceinte
  128.  
  129. pjg = 'POIN' basf 'PROC' (0.000 0.000 0.000) ;
  130. jg = ('ELEM' basf 'APPUIE' 'LARGEMENT' pjg) 'COUL' 'VERT' ;
  131.  
  132. *--------------------------------------------------------------------
  133. * Fin de la définition du maillage
  134. *--------------------------------------------------------------------
  135.  
  136.  
  137. *--------------------------------------------------------------------
  138. * Début de l'initialisation de la procédure ENCEINTE : table RXT
  139. *--------------------------------------------------------------------
  140.  
  141. rxt = 'TABLE' ;
  142. rxt.'VERSION'= 'V0' ;
  143.  
  144. *-- Nom du volume fluide
  145. rxt.'vtf' = mt ;
  146. rxt.'epsi' = epsi ;
  147.  
  148. *-- Definition des murs de l'enceinte : ici un seul mur
  149. *-- en ACIER dont on traitera la thermique dans l'épaisseur
  150. *-- et que l'on initialise a 40oC
  151.  
  152. *-- On definit d'abord le matériau ACIER avec sa conductivite
  153. *-- thermique LAMBDA (W/m/K) et le produit ro*Cp (J/m3/K)
  154. rxt.'THERMP' = VRAI ;
  155. rxt.'vtp' = wall ;
  156. rxt.'LAMBDA' = 15. ;
  157. rxt.'ROCP' = 3.9E6 ;
  158. rxt.'Tp0' = 60. ;
  159. rxt.'ECHAN' = 10. ;
  160.  
  161. *-- Conditions initiales dans l'enceinte de test
  162. rxt.'TF0' = 40.0 ;
  163. rxt.'PT0' = 1.00000e5 ;
  164. rxt.'Yvap0' = 0.0023 ;
  165.  
  166. *-- On positionne une brèche
  167. rxt.'breche' = jg ;
  168. rxt.'diru1' = 0 0 1 ;
  169.  
  170. *-- On definit un point interne au maillage pour imposer la valeur de
  171. *-- la pression
  172. rxt.'pi' = (0.0 0.0 0.5) ;
  173.  
  174. *-- On indique que le calcul comporte de la vapeur d'eau
  175. rxt.'VAPEUR' = VRAI ;
  176.  
  177. *-- On active le recalcul automatique du préconditionnement
  178. *-- toutes les 5 itérations
  179. rxt.'FRPREC' = 5 ;
  180. rxt.'DETMAT' = VRAI ;
  181. *rxt.'TRTF' = FAUX ;
  182.  
  183. *-- Definition du scenario thermohydraulique
  184. rxt.'scenario' = table ;
  185.  
  186. *-- Conditions a la breche (Obligatoire pour l'instant)
  187. rxt.'scenario'.'t' = prog 0.0 1000.0 ;
  188. rxt.'scenario'.'qeau' = prog 0.050 0.050 ;
  189. rxt.'scenario'.'qair' = prog 0.000 0.000 ;
  190. rxt.'scenario'.'tinj' = prog 150.0 150.0 ;
  191.  
  192. *-- On impose le pas de temps (s)
  193. rxt.'DT0' = DT0 ;
  194.  
  195. *-- On impose la viscosite turbulente (m2/s)
  196. rxt.'MODTURB'='NUTURB' ;
  197. rxt.'NUT' = 1.e-2 ;
  198.  
  199. Si VRAI;
  200. *-- On lance le calcul sur 20 itérations d'une seconde
  201. rxt.'GRAPH'=GRAPH ;
  202.  
  203. EXECRXT 2 rxt ;
  204. EXECRXT (nbit - 2) rxt ;
  205.  
  206. list rxt.'TIC'.'Tfm' ;
  207. list rxt.'TIC'.'PT' ;
  208. list rxt.'TIC'.'Qc' ;
  209. list rxt.'TIC'.'LMAXU';
  210.  
  211. ltfm=Prog
  212. 40.000 65.434 73.712 81.158 86.814
  213. 90.738 ;
  214. lPT =Prog
  215. 1.00000E+05 1.06009E+05 1.21199E+05 1.29592E+05 1.36462E+05
  216. 1.43998E+05 ;
  217. Lqc =Prog
  218. 0.0000 0.0000 0.0000 3.81471E-04 2.57962E-03
  219. 4.78997E-03 ;
  220. Lmaxu=Prog
  221. 0.0000 0.81320 2.0813 2.6901 2.2350
  222. 2.5277 ;
  223.  
  224.  
  225. tic=rxt.'TIC' ;
  226. ERtf=somm( abs (ltfm - tic.'Tfm') )/ 80. ;
  227. ERPT=somm( abs (lPT - tic.'PT' ) ) /1.e5 ;
  228. ERQc=somm( abs (lqc - tic.'Qc' ) ) ;
  229. ERum=somm( abs (Lmaxu - tic.'LMAXU' ) )/2. ;
  230.  
  231. Mess 'ERtf=' ERtf 'ERPT=' ERPT 'ERQc=' ERQc 'ERum=' ERum ;
  232.  
  233. Si (ERtf '>' 1.e-4) ; erreur 5 ; Finsi ;
  234. Si (ERPT '>' 1.e-3) ; erreur 5 ; Finsi ;
  235. Si (ERQc '>' 1.e-4) ; erreur 5 ; Finsi ;
  236. Si (ERum '>' 1.e-2) ; erreur 5 ; Finsi ;
  237.  
  238. ******************************************************************
  239.  
  240. rxt.'vtf' = (chan 'MACRO' mt) ;
  241. rxt.'vtp' = (chan 'MACRO' wall) ;
  242. rxt.'breche' = (chan 'MACRO' jg) ;
  243. rxt = enlev rxt 'GEO';
  244. rxt = enlev rxt 'TBT';
  245. rxt = enlev rxt 'TIC';
  246.  
  247. EXECRXT 2 rxt ;
  248. EXECRXT (nbit - 2) rxt ;
  249.  
  250. list rxt.'TIC'.'Tfm' ;
  251. list rxt.'TIC'.'PT' ;
  252. list rxt.'TIC'.'Qc' ;
  253. list rxt.'TIC'.'LMAXU';
  254.  
  255.  
  256. ltfm=Prog
  257. 40.000 65.434 73.716 81.163 86.912
  258. 90.958 ;
  259. lPT =Prog
  260. 1.00000E+05 1.06006E+05 1.21166E+05 1.29578E+05 1.36481E+05
  261. 1.44109E+05 ;
  262. Lqc ='PROG'
  263. 0.0000 0.0000 0.0000 2.88494E-04 2.34877E-03
  264. 4.35252E-03 ;
  265. Lmaxu='PROG'
  266. 0.0000 0.81320 2.0840 2.6866 2.2313
  267. 2.5159 ;
  268.  
  269. tic=rxt.'TIC' ;
  270. ERtf=somm( abs (ltfm - tic.'Tfm') )/ 80. ;
  271. ERPT=somm( abs (lPT - tic.'PT' ) ) /1.e5 ;
  272. ERQc=somm( abs (lqc - tic.'Qc' ) ) ;
  273. ERum=somm( abs (Lmaxu - tic.'LMAXU' ) )/2. ;
  274.  
  275. Mess 'ERtf=' ERtf 'ERPT=' ERPT 'ERQc=' ERQc 'ERum=' ERum ;
  276.  
  277. Si (ERtf '>' 1.e-4) ; erreur 5 ; Finsi ;
  278. Si (ERPT '>' 1.e-3) ; erreur 5 ; Finsi ;
  279. Si (ERQc '>' 1.e-4) ; erreur 5 ; Finsi ;
  280. Si (ERum '>' 1.e-2) ; erreur 5 ; Finsi ;
  281.  
  282.  
  283. ******************************************************************
  284.  
  285. rxt.'vtf' = (chan 'QUAF' mt) ;
  286. rxt.'vtp' = (chan 'QUAF' wall) ;
  287. rxt.'breche' = (chan 'QUAF' jg) ;
  288. rxt = enlev rxt 'GEO';
  289. rxt = enlev rxt 'TBT';
  290. rxt = enlev rxt 'TIC';
  291.  
  292. EXECRXT 2 rxt ;
  293. EXECRXT (nbit - 2) rxt ;
  294.  
  295. list rxt.'TIC'.'Tfm' ;
  296. list rxt.'TIC'.'PT' ;
  297. list rxt.'TIC'.'Qc' ;
  298. list rxt.'TIC'.'LMAXU';
  299.  
  300. ltfm=Prog
  301. 40.000 65.434 73.712 81.158 86.814
  302. 90.738 ;
  303. lPT =Prog
  304. 1.00000E+05 1.06009E+05 1.21199E+05 1.29592E+05 1.36462E+05
  305. 1.43998E+05 ;
  306. Lqc =Prog
  307. 0.0000 0.0000 0.0000 3.81471E-04 2.57962E-03
  308. 4.78997E-03 ;
  309. Lmaxu=Prog
  310. 0.0000 0.81320 2.0813 2.6901 2.2350
  311. 2.5277 ;
  312.  
  313. tic=rxt.'TIC' ;
  314. ERtf=somm( abs (ltfm - tic.'Tfm') )/ 80. ;
  315. ERPT=somm( abs (lPT - tic.'PT' ) ) /1.e5 ;
  316. ERQc=somm( abs (lqc - tic.'Qc' ) ) ;
  317. ERum=somm( abs (Lmaxu - tic.'LMAXU' ) )/2. ;
  318.  
  319. Mess 'ERtf=' ERtf 'ERPT=' ERPT 'ERQc=' ERQc 'ERum=' ERum ;
  320.  
  321. Si (ERtf '>' 1.e-4) ; erreur 5 ; Finsi ;
  322. Si (ERPT '>' 1.e-3) ; erreur 5 ; Finsi ;
  323. Si (ERQc '>' 1.e-4) ; erreur 5 ; Finsi ;
  324. Si (ERum '>' 1.e-2) ; erreur 5 ; Finsi ;
  325.  
  326. finsi;
  327.  
  328. ******************************************************************
  329. rxt.'vtf' = (chan 'LINE' mt) ;
  330. rxt.'vtp' = (chan 'LINE' wall) ;
  331. rxt.'breche' = (chan 'LINE' jg) ;
  332. rxt = enlev rxt 'GEO';
  333. rxt = enlev rxt 'TBT';
  334. rxt = enlev rxt 'TIC';
  335.  
  336. EXECRXT 2 rxt ;
  337. EXECRXT (nbit - 2) rxt ;
  338.  
  339. list rxt.'TIC'.'Tfm' ;
  340. list rxt.'TIC'.'PT' ;
  341. list rxt.'TIC'.'Qc' ;
  342. list rxt.'TIC'.'LMAXU';
  343.  
  344. ltfm='PROG'
  345. 40.000 67.363 75.733 83.257 88.709
  346. 92.397 ;
  347. lPT ='PROG'
  348. 1.00000E+05 1.06452E+05 1.22785E+05 1.31710E+05 1.39050E+05
  349. 1.46836E+05 ;
  350. Lqc ='PROG'
  351. 0.0000 0.0000 0.0000 1.00812E-03 3.65767E-03
  352. 6.28012E-03 ;
  353. Lmaxu='PROG'
  354. 0.0000 0.81320 2.0604 2.5919 2.1446
  355. 2.4526 ;
  356.  
  357. tic=rxt.'TIC' ;
  358. ERtf=somm( abs (ltfm - tic.'Tfm') )/ 80. ;
  359. ERPT=somm( abs (lPT - tic.'PT' ) ) /1.e5 ;
  360. ERQc=somm( abs (lqc - tic.'Qc' ) ) ;
  361. ERum=somm( abs (Lmaxu - tic.'LMAXU' ) )/2. ;
  362.  
  363. Mess 'ERtf=' ERtf 'ERPT=' ERPT 'ERQc=' ERQc 'ERum=' ERum ;
  364.  
  365. Si (ERtf '>' 1.e-4) ; erreur 5 ; Finsi ;
  366. Si (ERPT '>' 1.e-3) ; erreur 5 ; Finsi ;
  367. Si (ERQc '>' 1.e-4) ; erreur 5 ; Finsi ;
  368. Si (ERum '>' 1.e-2) ; erreur 5 ; Finsi ;
  369.  
  370.  
  371.  
  372. Si GRAPH ;
  373.  
  374. $vtf=rxt.'GEO'.'$vtf' ;
  375. mt =doma $vtf maillage ;
  376. Mpl1=chan 'QUAF' plan1 ;
  377. Mpl4=chan 'QUAF' plan4 ;
  378. ELIM (mt et Mpl1 et Mpl4) epsi ;
  379. $mpl1= mode Mpl1 'NAVIER_STOKES' MACRO ;
  380. $mpl4= mode Mpl4 'NAVIER_STOKES' MACRO ;
  381. plan1= doma $mpl1 maillage ;
  382. plan4= doma $mpl4 maillage ;
  383. plan=plan1 et plan4 ;
  384.  
  385. paroif = rxt.'GEO'.'paroif';
  386. rho=rxt.'TIC'.'RHO';
  387. rvp=rxt.'TIC'.'RVP';
  388. tf=rxt.'TIC'.'TF';
  389. un=rxt.'TIC'.'UN' ;
  390. un1=redu un plan ;
  391. ung= vect un1 1. ux uy uz jaune ;
  392. trace ung plan ;
  393. opti isov suli ;
  394. trace rho plan 'TITRE'' Rho' ;
  395. trace rvp plan 'TITRE'' Rvp' ;
  396. trace tf plan 'TITRE'' Tf ' ;
  397.  
  398. trace rho paroif 'TITRE'' Rho' ;
  399. trace rvp paroif 'TITRE'' Rvp' ;
  400. trace Tf paroif 'TITRE'' Tf ' ;
  401. Fcond = tic.'Fcondw';
  402. trace Fcond paroif 'TITRE' ' Flux de condensation Kg / m**2 ' ;
  403.  
  404. axe = p0 d nz1 (p0 plus v1) ;
  405. axe = chan axe 'QUAF' ;
  406. elim (axe et mt) epsi ;
  407.  
  408. evr= evol 'CHPO' rho axe ;
  409. dess evr 'TITRE' ' Rho axe ';
  410.  
  411. evt = evol 'CHPO' Tf axe ;
  412. dess evt 'TITRE' ' Température axe ';
  413.  
  414. evvp= evol 'CHPO' rvp axe ;
  415. dess evvp 'TITRE' ' rvp axe ';
  416.  
  417.  
  418.  
  419. 'FINSI' ;
  420.  
  421.  
  422.  
  423.  
  424.  
  425. 'FIN' ;
  426.  
  427.  
  428.  
  429.  
  430.  
  431.  
  432.  
  433.  
  434.  
  435.  
  436.  
  437.  
  438.  
  439.  
  440.  

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