diff options
Diffstat (limited to 'Dragon/data/proc_CNG')
| -rw-r--r-- | Dragon/data/proc_CNG/CHB_NXT.c2m | 532 | ||||
| -rw-r--r-- | Dragon/data/proc_CNG/LCNG_U2_nDf.c2m | 271 |
2 files changed, 803 insertions, 0 deletions
diff --git a/Dragon/data/proc_CNG/CHB_NXT.c2m b/Dragon/data/proc_CNG/CHB_NXT.c2m new file mode 100644 index 0000000..9174dcd --- /dev/null +++ b/Dragon/data/proc_CNG/CHB_NXT.c2m @@ -0,0 +1,532 @@ +*---------- +* Definition des parametres de la procedure +* +PARAMETER + GEOMF GEOMS + :: + EDIT 1 + ::: LINKED_LIST GEOMF GEOMS ; + ; +* +* Lire pas de reseau +* +STRING + state + ; +INTEGER + splitc splitm + ; +INTEGER + CF11 CF12 CF13 CF14 + CF21i CF22i CF23i CF24i + CF31i CF32i CF33i CF34i + CF41i CF42i CF43i CF44i + CF21e CF22e CF23e CF24e + CF31e CF32e CF33e CF34e + CF41e CF42e CF43e CF44e + VF11 VF12 VF13 VF14 + VF21i VF22i VF23i VF24i + VF31i VF32i VF33i VF34i + VF41i VF42i VF43i VF44i + VF21e VF22e VF23e VF24e + VF31e VF32e VF33e VF34e + VF41e VF42e VF43e VF44e + COOL PT HEG CT + MOD SH VOID + ; +:: + >>state<< + >>splitc<< >>splitm<< + >>CF11<< >>CF12<< >>CF13<< >>CF14<< + + >>CF21i<< >>CF22i<< >>CF23i<< >>CF24i<< + >>CF31i<< >>CF32i<< >>CF33i<< >>CF34i<< + >>CF41i<< >>CF42i<< >>CF43i<< >>CF44i<< + + >>CF21e<< >>CF22e<< >>CF23e<< >>CF24e<< + >>CF31e<< >>CF32e<< >>CF33e<< >>CF34e<< + >>CF41e<< >>CF42e<< >>CF43e<< >>CF44e<< + + >>VF11<< >>VF12<< >>VF13<< >>VF14<< + + >>VF21i<< >>VF22i<< >>VF23i<< >>VF24i<< + >>VF31i<< >>VF32i<< >>VF33i<< >>VF34i<< + >>VF41i<< >>VF42i<< >>VF43i<< >>VF44i<< + + >>VF21e<< >>VF22e<< >>VF23e<< >>VF24e<< + >>VF31e<< >>VF32e<< >>VF33e<< >>VF34e<< + >>VF41e<< >>VF42e<< >>VF43e<< >>VF44e<< + + >>COOL<< >>PT<< >>HEG<< >>CT<< + >>MOD<< >>SH<< >>VOID<< + ; +* +* Structures de donnees locales et +* modules et parametres +* +MODULE + GEO: + ; +INTEGER splitc1 splitc2 ; +INTEGER cool1 cool2 ; +IF state "Cooled" = THEN + EVALUATE splitc1 splitc2 := splitc splitc ; + EVALUATE cool1 cool2 := COOL COOL ; +ELSEIF state "Voided" = THEN + EVALUATE splitc1 splitc2 := 1 1 ; + EVALUATE cool1 cool2 := VOID VOID ; +ELSE + EVALUATE splitc1 splitc2 := 1 splitc ; + EVALUATE cool1 cool2 := VOID COOL ; +ENDIF ; +* +* Rayon Final = PasReseau * sqrt(1/Pi) +* +REAL + PasReseau Rtpi Rtpo Rgapo Rtco := + 22.0 5.16890 5.7689 7.5 7.8 + ; +INTEGER splitfx := 1 ; +* circular discretization of the moderator +REAL Diag := PasReseau 0.5 * Rtco - ; +INTEGER splitm2 := splitm 1 + ; +REAL deltar := Diag splitm2 I_TO_R / ; +REAL temp := splitm I_TO_R deltar * ; +REAL RayonFinal := temp Rtco + ; +* carteisan meshes in the moderator +REAL halfpas := PasReseau 0.5 * ; +REAL modx := halfpas Rtco - ; +REAL deltat := Rtco Rgapo - 0.5 * ; +INTEGER splitmx := modx deltar / R_TO_I ; +REAL deltax := modx splitmx I_TO_R / ; +REAL mesh1 := deltax 0.5 * ; +REAL mesh2 := mesh1 modx + deltax - ; +EVALUATE splitmx := splitmx 1 - ; +REAL mesh3 := modx deltat + ; +REAL mesh4 := PasReseau mesh3 - ; +REAL mesh5 := PasReseau mesh2 - ; +REAL mesh6 := PasReseau mesh1 - ; +REAL + Rci Rgi Rce Rge + sub1 + sub2 + sub3 + subis1 + subis2 + subis3 + subis4 + subis5 + := + 0.627 0.675 0.533 0.575 + 0.70710681186550 + 0.89442719099992 + 0.97467943448090 + 0.63245553203368 + 0.83666002653408 + 0.89442719099992 + 0.94868329805051 + 0.97467943448090 + ; +* pin splitting +REAL hRgi hRge := 0.5 Rgi * 0.5 Rge * ; +REAL + Rci1 Rci2 Rci3 Rce1 Rce2 Rce3 + Rcib1 Rcib2 Rcib3 Rcib4 Rcib5 + ; +EVALUATE + Rci1 Rci2 Rci3 Rce1 Rce2 Rce3 + Rcib1 Rcib2 Rcib3 Rcib4 Rcib5 := + Rci sub1 * + Rci sub2 * + Rci sub3 * + Rce sub1 * + Rce sub2 * + Rce sub3 * + Rci subis1 * + Rci subis2 * + Rci subis3 * + Rci subis4 * + Rci subis5 * + ; +* +* Geometry for self-shielding +* +GEOMS := GEO: :: CAR2D 2 2 + X- TRAN X+ TRAN + Y- TRAN Y+ TRAN + CELL C1 C2 + C2 C1 +* voided cell + ::: C1 := GEO: CARCEL 8 + MESHX 0.0 <<PasReseau>> + MESHY 0.0 <<PasReseau>> + RADIUS 0.0 0.8670 2.4545 3.7295 <<Rtpi>> + <<Rtpo>> <<Rgapo>> <<Rtco>> <<RayonFinal>> + MIX <<cool1>> <<cool1>> <<cool1>> <<cool1>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + CLUSTER ROD1 ROD2 ROD3 ROD4 + ::: ROD1 := GEO: TUBE 5 + MIX <<VF11>> <<VF12>> <<VF13>> <<VF14>> <<SH>> + RADIUS 0.00000 <<Rci1>> <<Rci2>> <<Rci3>> + <<Rci>> <<Rgi>> + NPIN 1 RPIN 0.0000 APIN 0.0000 ; + ::: ROD2 := GEO: TUBE 5 1 2 + MESHY 0.0 <<hRgi>> <<Rgi>> + MESHX 0.0 <<Rgi>> + MIX <<VF21i>> <<VF22i>> <<VF23i>> <<VF24i>> <<SH>> + <<VF21e>> <<VF22e>> <<VF23e>> <<VF24e>> <<SH>> + RADIUS 0.00000 <<Rci1>> <<Rci2>> <<Rci3>> + <<Rci>> <<Rgi>> + NPIN 7 RPIN 1.7340 APIN 0.0000 ; + ::: ROD3 := GEO: TUBE 5 1 2 + MESHY 0.0 <<hRge>> <<Rge>> + MESHX 0.0 <<Rge>> + MIX <<VF31i>> <<VF32i>> <<VF33i>> <<VF34i>> <<SH>> + <<VF31e>> <<VF32e>> <<VF33e>> <<VF34e>> <<SH>> + RADIUS 0.00000 <<Rce1>> <<Rce2>> <<Rce3>> + <<Rce>> <<Rge>> + NPIN 14 RPIN 3.0750 APIN 0.224399475 ; + ::: ROD4 := GEO: TUBE 5 1 2 + MESHY 0.0 <<hRge>> <<Rge>> + MESHX 0.0 <<Rge>> + MIX <<VF41i>> <<VF42i>> <<VF43i>> <<VF44i>> <<SH>> + <<VF41e>> <<VF42e>> <<VF43e>> <<VF44e>> <<SH>> + RADIUS 0.00000 <<Rce1>> <<Rce2>> <<Rce3>> + <<Rce>> <<Rge>> + NPIN 21 RPIN 4.3840 APIN 0.0 ; + ; +* cooled cell + ::: C2 := GEO: CARCEL 8 + MESHX 0.0 <<PasReseau>> + MESHY 0.0 <<PasReseau>> + RADIUS 0.0 0.8670 2.4545 3.7295 <<Rtpi>> + <<Rtpo>> <<Rgapo>> <<Rtco>> <<RayonFinal>> + MIX <<cool2>> <<cool2>> <<cool2>> <<cool2>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + CLUSTER ROD1 ROD2 ROD3 ROD4 + ::: ROD1 := GEO: TUBE 5 + MIX <<CF11>> <<CF12>> <<CF13>> <<CF14>> <<SH>> + RADIUS 0.00000 <<Rci1>> <<Rci2>> <<Rci3>> + <<Rci>> <<Rgi>> + NPIN 1 RPIN 0.0000 APIN 0.0000 ; + ::: ROD2 := GEO: TUBE 5 1 2 + MESHY 0.0 <<hRgi>> <<Rgi>> + MESHX 0.0 <<Rgi>> + MIX <<CF21i>> <<CF22i>> <<CF23i>> <<CF24i>> <<SH>> + <<CF21e>> <<CF22e>> <<CF23e>> <<CF24e>> <<SH>> + RADIUS 0.00000 <<Rci1>> <<Rci2>> <<Rci3>> + <<Rci>> <<Rgi>> + NPIN 7 RPIN 1.7340 APIN 0.0000 ; + ::: ROD3 := GEO: TUBE 5 1 2 + MESHY 0.0 <<hRge>> <<Rge>> + MESHX 0.0 <<Rge>> + MIX <<CF31i>> <<CF32i>> <<CF33i>> <<CF34i>> <<SH>> + <<CF31e>> <<CF32e>> <<CF33e>> <<CF34e>> <<SH>> + RADIUS 0.00000 <<Rce1>> <<Rce2>> <<Rce3>> + <<Rce>> <<Rge>> + NPIN 14 RPIN 3.0750 APIN 0.224399475 ; + ::: ROD4 := GEO: TUBE 5 1 2 + MESHY 0.0 <<hRge>> <<Rge>> + MESHX 0.0 <<Rge>> + MIX <<CF41i>> <<CF42i>> <<CF43i>> <<CF44i>> <<SH>> + <<CF41e>> <<CF42e>> <<CF43e>> <<CF44e>> <<SH>> + RADIUS 0.00000 <<Rce1>> <<Rce2>> <<Rce3>> + <<Rce>> <<Rge>> + NPIN 21 RPIN 4.3840 APIN 0.0 ; + ; + ; +* +* Geometry for flux calculation +* +GEOMF := GEO: :: CAR2D 2 2 + X- TRAN X+ TRAN + Y- TRAN Y+ TRAN + CELL C1 C2 + C2 C1 +* voided cell + ::: C1 := GEO: CARCEL 8 7 7 + MESHX 0.0 <<mesh1>> <<mesh2>> <<mesh3>> + <<mesh4>> <<mesh5>> <<mesh6>> <<PasReseau>> + MESHY 0.0 <<mesh1>> <<mesh2>> <<mesh3>> + <<mesh4>> <<mesh5>> <<mesh6>> <<PasReseau>> + SPLITX 1 <<splitmx>> 1 <<splitfx>> 1 <<splitmx>> 1 + SPLITY 1 <<splitmx>> 1 <<splitfx>> 1 <<splitmx>> 1 + RADIUS 0.0 0.8670 2.4545 3.7295 <<Rtpi>> + <<Rtpo>> <<Rgapo>> <<Rtco>> <<RayonFinal>> + SPLITR 1 <<splitc1>> <<splitc1>> <<splitc1>> + 1 1 1 <<splitm>> + MIX <<cool1>> <<cool1>> <<cool1>> <<cool1>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool1>> <<cool1>> <<cool1>> <<cool1>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool1>> <<cool1>> <<cool1>> <<cool1>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool1>> <<cool1>> <<cool1>> <<cool1>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool1>> <<cool1>> <<cool1>> <<cool1>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool1>> <<cool1>> <<cool1>> <<cool1>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool1>> <<cool1>> <<cool1>> <<cool1>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool1>> <<cool1>> <<cool1>> <<cool1>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool1>> <<cool1>> <<cool1>> <<cool1>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool1>> <<cool1>> <<cool1>> <<cool1>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool1>> <<cool1>> <<cool1>> <<cool1>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool1>> <<cool1>> <<cool1>> <<cool1>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool1>> <<cool1>> <<cool1>> <<cool1>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool1>> <<cool1>> <<cool1>> <<cool1>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool1>> <<cool1>> <<cool1>> <<cool1>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool1>> <<cool1>> <<cool1>> <<cool1>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool1>> <<cool1>> <<cool1>> <<cool1>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool1>> <<cool1>> <<cool1>> <<cool1>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool1>> <<cool1>> <<cool1>> <<cool1>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool1>> <<cool1>> <<cool1>> <<cool1>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool1>> <<cool1>> <<cool1>> <<cool1>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool1>> <<cool1>> <<cool1>> <<cool1>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool1>> <<cool1>> <<cool1>> <<cool1>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool1>> <<cool1>> <<cool1>> <<cool1>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool1>> <<cool1>> <<cool1>> <<cool1>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool1>> <<cool1>> <<cool1>> <<cool1>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool1>> <<cool1>> <<cool1>> <<cool1>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool1>> <<cool1>> <<cool1>> <<cool1>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool1>> <<cool1>> <<cool1>> <<cool1>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool1>> <<cool1>> <<cool1>> <<cool1>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool1>> <<cool1>> <<cool1>> <<cool1>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool1>> <<cool1>> <<cool1>> <<cool1>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool1>> <<cool1>> <<cool1>> <<cool1>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool1>> <<cool1>> <<cool1>> <<cool1>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool1>> <<cool1>> <<cool1>> <<cool1>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool1>> <<cool1>> <<cool1>> <<cool1>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool1>> <<cool1>> <<cool1>> <<cool1>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool1>> <<cool1>> <<cool1>> <<cool1>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool1>> <<cool1>> <<cool1>> <<cool1>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool1>> <<cool1>> <<cool1>> <<cool1>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool1>> <<cool1>> <<cool1>> <<cool1>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool1>> <<cool1>> <<cool1>> <<cool1>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool1>> <<cool1>> <<cool1>> <<cool1>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool1>> <<cool1>> <<cool1>> <<cool1>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool1>> <<cool1>> <<cool1>> <<cool1>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool1>> <<cool1>> <<cool1>> <<cool1>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool1>> <<cool1>> <<cool1>> <<cool1>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool1>> <<cool1>> <<cool1>> <<cool1>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool1>> <<cool1>> <<cool1>> <<cool1>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + CLUSTER ROD1 ROD2 ROD3 ROD4 + ::: ROD1 := GEO: TUBE 5 + MIX <<VF11>> <<VF12>> <<VF13>> <<VF14>> <<SH>> + RADIUS 0.00000 <<Rci1>> <<Rci2>> <<Rci3>> + <<Rci>> <<Rgi>> + NPIN 1 RPIN 0.0000 APIN 0.0000 ; + ::: ROD2 := GEO: TUBE 5 1 2 + MESHY 0.0 <<hRgi>> <<Rgi>> + MESHX 0.0 <<Rgi>> + MIX <<VF21i>> <<VF22i>> <<VF23i>> <<VF24i>> <<SH>> + <<VF21e>> <<VF22e>> <<VF23e>> <<VF24e>> <<SH>> + RADIUS 0.00000 <<Rci1>> <<Rci2>> <<Rci3>> + <<Rci>> <<Rgi>> + NPIN 7 RPIN 1.7340 APIN 0.0000 ; + ::: ROD3 := GEO: TUBE 5 1 2 + MESHY 0.0 <<hRge>> <<Rge>> + MESHX 0.0 <<Rge>> + MIX <<VF31i>> <<VF32i>> <<VF33i>> <<VF34i>> <<SH>> + <<VF31e>> <<VF32e>> <<VF33e>> <<VF34e>> <<SH>> + RADIUS 0.00000 <<Rce1>> <<Rce2>> <<Rce3>> + <<Rce>> <<Rge>> + NPIN 14 RPIN 3.0750 APIN 0.224399475 ; + ::: ROD4 := GEO: TUBE 5 1 2 + MESHY 0.0 <<hRge>> <<Rge>> + MESHX 0.0 <<Rge>> + MIX <<VF41i>> <<VF42i>> <<VF43i>> <<VF44i>> <<SH>> + <<VF41e>> <<VF42e>> <<VF43e>> <<VF44e>> <<SH>> + RADIUS 0.00000 <<Rce1>> <<Rce2>> <<Rce3>> + <<Rce>> <<Rge>> + NPIN 21 RPIN 4.3840 APIN 0.0 ; + ; +* cooled cell + ::: C2 := GEO: CARCEL 8 7 7 + MESHX 0.0 <<mesh1>> <<mesh2>> <<mesh3>> + <<mesh4>> <<mesh5>> <<mesh6>> <<PasReseau>> + MESHY 0.0 <<mesh1>> <<mesh2>> <<mesh3>> + <<mesh4>> <<mesh5>> <<mesh6>> <<PasReseau>> + SPLITX 1 <<splitmx>> 1 <<splitfx>> 1 <<splitmx>> 1 + SPLITY 1 <<splitmx>> 1 <<splitfx>> 1 <<splitmx>> 1 + RADIUS 0.0 0.8670 2.4545 3.7295 <<Rtpi>> + <<Rtpo>> <<Rgapo>> <<Rtco>> <<RayonFinal>> + SPLITR 1 <<splitc2>> <<splitc2>> <<splitc2>> + 1 1 1 <<splitm>> + MIX <<cool2>> <<cool2>> <<cool2>> <<cool2>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool2>> <<cool2>> <<cool2>> <<cool2>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool2>> <<cool2>> <<cool2>> <<cool2>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool2>> <<cool2>> <<cool2>> <<cool2>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool2>> <<cool2>> <<cool2>> <<cool2>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool2>> <<cool2>> <<cool2>> <<cool2>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool2>> <<cool2>> <<cool2>> <<cool2>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool2>> <<cool2>> <<cool2>> <<cool2>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool2>> <<cool2>> <<cool2>> <<cool2>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool2>> <<cool2>> <<cool2>> <<cool2>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool2>> <<cool2>> <<cool2>> <<cool2>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool2>> <<cool2>> <<cool2>> <<cool2>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool2>> <<cool2>> <<cool2>> <<cool2>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool2>> <<cool2>> <<cool2>> <<cool2>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool2>> <<cool2>> <<cool2>> <<cool2>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool2>> <<cool2>> <<cool2>> <<cool2>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool2>> <<cool2>> <<cool2>> <<cool2>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool2>> <<cool2>> <<cool2>> <<cool2>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool2>> <<cool2>> <<cool2>> <<cool2>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool2>> <<cool2>> <<cool2>> <<cool2>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool2>> <<cool2>> <<cool2>> <<cool2>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool2>> <<cool2>> <<cool2>> <<cool2>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool2>> <<cool2>> <<cool2>> <<cool2>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool2>> <<cool2>> <<cool2>> <<cool2>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool2>> <<cool2>> <<cool2>> <<cool2>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool2>> <<cool2>> <<cool2>> <<cool2>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool2>> <<cool2>> <<cool2>> <<cool2>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool2>> <<cool2>> <<cool2>> <<cool2>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool2>> <<cool2>> <<cool2>> <<cool2>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool2>> <<cool2>> <<cool2>> <<cool2>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool2>> <<cool2>> <<cool2>> <<cool2>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool2>> <<cool2>> <<cool2>> <<cool2>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool2>> <<cool2>> <<cool2>> <<cool2>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool2>> <<cool2>> <<cool2>> <<cool2>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool2>> <<cool2>> <<cool2>> <<cool2>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool2>> <<cool2>> <<cool2>> <<cool2>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool2>> <<cool2>> <<cool2>> <<cool2>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool2>> <<cool2>> <<cool2>> <<cool2>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool2>> <<cool2>> <<cool2>> <<cool2>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool2>> <<cool2>> <<cool2>> <<cool2>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool2>> <<cool2>> <<cool2>> <<cool2>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool2>> <<cool2>> <<cool2>> <<cool2>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool2>> <<cool2>> <<cool2>> <<cool2>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool2>> <<cool2>> <<cool2>> <<cool2>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool2>> <<cool2>> <<cool2>> <<cool2>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool2>> <<cool2>> <<cool2>> <<cool2>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool2>> <<cool2>> <<cool2>> <<cool2>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool2>> <<cool2>> <<cool2>> <<cool2>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + <<cool2>> <<cool2>> <<cool2>> <<cool2>> + <<PT>> <<HEG>> <<CT>> <<MOD>> <<MOD>> + CLUSTER ROD1 ROD2 ROD3 ROD4 + ::: ROD1 := GEO: TUBE 5 + MIX <<CF11>> <<CF12>> <<CF13>> <<CF14>> <<SH>> + RADIUS 0.00000 <<Rci1>> <<Rci2>> <<Rci3>> + <<Rci>> <<Rgi>> + NPIN 1 RPIN 0.0000 APIN 0.0000 ; + ::: ROD2 := GEO: TUBE 5 1 2 + MESHY 0.0 <<hRgi>> <<Rgi>> + MESHX 0.0 <<Rgi>> + MIX <<CF21i>> <<CF22i>> <<CF23i>> <<CF24i>> <<SH>> + <<CF21e>> <<CF22e>> <<CF23e>> <<CF24e>> <<SH>> + RADIUS 0.00000 <<Rci1>> <<Rci2>> <<Rci3>> + <<Rci>> <<Rgi>> + NPIN 7 RPIN 1.7340 APIN 0.0000 ; + ::: ROD3 := GEO: TUBE 5 1 2 + MESHY 0.0 <<hRge>> <<Rge>> + MESHX 0.0 <<Rge>> + MIX <<CF31i>> <<CF32i>> <<CF33i>> <<CF34i>> <<SH>> + <<CF31e>> <<CF32e>> <<CF33e>> <<CF34e>> <<SH>> + RADIUS 0.00000 <<Rce1>> <<Rce2>> <<Rce3>> + <<Rce>> <<Rge>> + NPIN 14 RPIN 3.0750 APIN 0.224399475 ; + ::: ROD4 := GEO: TUBE 5 1 2 + MESHY 0.0 <<hRge>> <<Rge>> + MESHX 0.0 <<Rge>> + MIX <<CF41i>> <<CF42i>> <<CF43i>> <<CF44i>> <<SH>> + <<CF41e>> <<CF42e>> <<CF43e>> <<CF44e>> <<SH>> + RADIUS 0.00000 <<Rce1>> <<Rce2>> <<Rce3>> + <<Rce>> <<Rge>> + NPIN 21 RPIN 4.3840 APIN 0.0 ; + ; + ; +* +* terminer execution +* +QUIT "LIST" . diff --git a/Dragon/data/proc_CNG/LCNG_U2_nDf.c2m b/Dragon/data/proc_CNG/LCNG_U2_nDf.c2m new file mode 100644 index 0000000..4ee621a --- /dev/null +++ b/Dragon/data/proc_CNG/LCNG_U2_nDf.c2m @@ -0,0 +1,271 @@ +*---------- +* Definition des parametres de la procedure +* +PARAMETER Biblio :: + EDIT 1 + ::: LINKED_LIST Biblio ; + ; +REAL + TempComb TempCalo + TempPres TempMode TempCala + ; +STRING + LibName + ; +INTEGER + CF11 CF12 CF13 CF14 + CF21i CF22i CF23i CF24i + CF31i CF32i CF33i CF34i + CF41i CF42i CF43i CF44i + CF21e CF22e CF23e CF24e + CF31e CF32e CF33e CF34e + CF41e CF42e CF43e CF44e + VF11 VF12 VF13 VF14 + VF21i VF22i VF23i VF24i + VF31i VF32i VF33i VF34i + VF41i VF42i VF43i VF44i + VF21e VF22e VF23e VF24e + VF31e VF32e VF33e VF34e + VF41e VF42e VF43e VF44e + COOL PT HEG CT + MOD SH VOID + ; +* +* reccupere information transferee a la procedure +* +:: + >>TempComb<< >>TempCalo<< + >>TempPres<< + >>TempMode<< >>TempCala<< + >>LibName<< + >>CF11<< >>CF12<< >>CF13<< >>CF14<< + + >>CF21i<< >>CF22i<< >>CF23i<< >>CF24i<< + >>CF31i<< >>CF32i<< >>CF33i<< >>CF34i<< + >>CF41i<< >>CF42i<< >>CF43i<< >>CF44i<< + + >>CF21e<< >>CF22e<< >>CF23e<< >>CF24e<< + >>CF31e<< >>CF32e<< >>CF33e<< >>CF34e<< + >>CF41e<< >>CF42e<< >>CF43e<< >>CF44e<< + + >>VF11<< >>VF12<< >>VF13<< >>VF14<< + + >>VF21i<< >>VF22i<< >>VF23i<< >>VF24i<< + >>VF31i<< >>VF32i<< >>VF33i<< >>VF34i<< + >>VF41i<< >>VF42i<< >>VF43i<< >>VF44i<< + + >>VF21e<< >>VF22e<< >>VF23e<< >>VF24e<< + >>VF31e<< >>VF32e<< >>VF33e<< >>VF34e<< + >>VF41e<< >>VF42e<< >>VF43e<< >>VF44e<< + + >>COOL<< >>PT<< >>HEG<< >>CT<< + >>MOD<< >>SH<< >>VOID<< + ; +* +* Structures de donnees locales et +* modules et parametres +* +MODULE + LIB: + ; +STRING IsoU5 IsoU8 IsoO16 IsoH1 + IsoD2 IsoB10 IsoZr IsoFe4 + IsoFe6 IsoFe7 IsoFe8 IsoCr0 + IsoCr2 IsoCr3 IsoCr4 IsoNi8 + IsoNi0 IsoNi1 IsoNi2 IsoNi4 + IsoNb IsoHe4 IsoDy0 IsoDy1 + IsoDy2 IsoDy3 IsoDy4 + := + "U235" "U238" "O16" "H1_H2O" + "H2_D2O" "B10" "Zr0" "Fe54" + "Fe56" "Fe57" "Fe58" "Cr50" + "Cr52" "Cr53" "Cr54" "Ni58" + "Ni60" "Ni61" "Ni62" "Ni64" + "Nb93" "He4" "Dy160" "Dy161" + "Dy162" "Dy163" "Dy164" + ; +REAL + Ftemp Ctemp Mtemp PTtemp CTtemp := + TempComb 273. + + TempCalo 273. + + TempMode 273. + + TempPres 273. + + TempCala 273. + + ; +ECHO "Temperature combustible =" TempComb "C" ; +ECHO "Temperature caloporteur =" TempCalo "C" ; +* +* section efficace microscopiques de LibName +* +Biblio := LIB: :: + EDIT 1 + NMIX <<SH>> + CTRA APOL + PTSL + ANIS 2 + MIXS LIB: DRAGON FIL: <<LibName>> +* caloporteur +*--- + MIX <<COOL>> <<Ctemp>> + H1 = <<IsoH1>> 4.7720E-02 + O16 = <<IsoO16>> 2.3860E-02 +* tube de pression +*--- + MIX <<PT>> <<PTtemp>> + ZR = <<IsoZr>> 4.1780E-02 2 IRSET PTSL NONE + NB = <<IsoNb>> 1.0877E-03 + FE4 = <<IsoFe4>> 1.9854E-06 + FE6 = <<IsoFe6>> 3.0055E-05 + FE7 = <<IsoFe7>> 6.8192E-07 + FE8 = <<IsoFe8>> 8.9171E-08 + CR0 = <<IsoCr0>> 2.7556E-07 + CR2 = <<IsoCr2>> 5.1102E-06 + CR3 = <<IsoCr3>> 5.6848E-07 + CR4 = <<IsoCr4>> 1.3891E-07 + NI8 = <<IsoNi8>> 1.6108E-06 + NI0 = <<IsoNi0>> 5.9980E-07 + NI1 = <<IsoNi1>> 2.5647E-08 + NI2 = <<IsoNi2>> 8.0447E-08 + NI4 = <<IsoNi4>> 1.9850E-08 + B10 = <<IsoB10>> 9.5090E-08 +* gap d'helium +*--- + MIX <<HEG>> <<CTtemp>> + HE4 = <<IsoHe4>> 2.0877E-04 +* tube de calandre +*--- + MIX <<CT>> <<CTtemp>> + ZR = <<IsoZr>> 4.2364E-02 2 IRSET PTSL NONE + FE4 = <<IsoFe4>> 5.7861E-06 + FE6 = <<IsoFe6>> 8.7588E-05 + FE7 = <<IsoFe7>> 1.9873E-06 + FE8 = <<IsoFe8>> 2.5991E-07 + CR0 = <<IsoCr0>> 3.4408E-06 + CR2 = <<IsoCr2>> 6.3805E-05 + CR3 = <<IsoCr3>> 7.0983E-06 + CR4 = <<IsoCr4>> 1.7342E-06 + NI8 = <<IsoNi8>> 2.5562E-05 + NI0 = <<IsoNi0>> 9.5185E-06 + NI1 = <<IsoNi1>> 4.0700E-07 + NI2 = <<IsoNi2>> 1.2765E-06 + NI4 = <<IsoNi4>> 3.1510E-07 + B10 = <<IsoB10>> 2.3551E-07 +* moderateur +*--- + MIX <<MOD>> <<Mtemp>> + H1 = <<IsoH1>> 6.4950E-05 + D2 = <<IsoD2>> 6.4886E-02 + O16 = <<IsoO16>> 3.2398E-02 +* crayon 1e anneau +*--- + MIX <<CF11>> <<Ftemp>> + O16 = <<IsoO16>> 4.5117E-02 + U5 = <<IsoU5>> 1.6252E-04 1 IRSET PTSL NONE + U8 = <<IsoU8>> 2.2396E-02 1 IRSET PTSL NONE + MIX <<CF12>> COMB <<CF11>> 1. + MIX <<CF13>> COMB <<CF11>> 1. + MIX <<CF14>> COMB <<CF11>> 1. + MIX <<VF11>> COMB <<CF11>> 1. + MIX <<VF12>> COMB <<CF11>> 1. + MIX <<VF13>> COMB <<CF11>> 1. + MIX <<VF14>> COMB <<CF11>> 1. +* crayon 2e anneau +*--- + MIX <<CF21i>> <<Ftemp>> + O16 = <<IsoO16>> 4.5124E-02 + U5 = <<IsoU5>> 4.5689E-04 1 IRSET PTSL NONE + U8 = <<IsoU8>> 2.2105E-02 1 IRSET PTSL NONE + MIX <<CF22i>> COMB <<CF21i>> 1. + MIX <<CF23i>> COMB <<CF21i>> 1. + MIX <<CF24i>> COMB <<CF21i>> 1. + + MIX <<CF21e>> COMB <<CF21i>> 1. + MIX <<CF22e>> COMB <<CF21i>> 1. + MIX <<CF23e>> COMB <<CF21i>> 1. + MIX <<CF24e>> COMB <<CF21i>> 1. + + MIX <<VF21i>> COMB <<CF21i>> 1. + MIX <<VF22i>> COMB <<CF21i>> 1. + MIX <<VF23i>> COMB <<CF21i>> 1. + MIX <<VF24i>> COMB <<CF21i>> 1. + + MIX <<VF21e>> COMB <<CF21i>> 1. + MIX <<VF22e>> COMB <<CF21i>> 1. + MIX <<VF23e>> COMB <<CF21i>> 1. + MIX <<VF24e>> COMB <<CF21i>> 1. +* crayons 3e anneau +*--- + MIX <<CF31i>> <<Ftemp>> + O16 = <<IsoO16>> 4.3808E-02 + U5 = <<IsoU5>> 4.4357E-04 1 IRSET PTSL NONE + U8 = <<IsoU8>> 2.1461E-02 1 IRSET PTSL NONE + MIX <<CF32i>> COMB <<CF31i>> 1. + MIX <<CF33i>> COMB <<CF31i>> 1. + MIX <<CF34i>> COMB <<CF31i>> 1. + + MIX <<CF31e>> COMB <<CF31i>> 1. + MIX <<CF32e>> COMB <<CF31i>> 1. + MIX <<CF33e>> COMB <<CF31i>> 1. + MIX <<CF34e>> COMB <<CF31i>> 1. + + MIX <<VF31i>> COMB <<CF31i>> 1. + MIX <<VF32i>> COMB <<CF31i>> 1. + MIX <<VF33i>> COMB <<CF31i>> 1. + MIX <<VF34i>> COMB <<CF31i>> 1. + + MIX <<VF31e>> COMB <<CF31i>> 1. + MIX <<VF32e>> COMB <<CF31i>> 1. + MIX <<VF33e>> COMB <<CF31i>> 1. + MIX <<VF34e>> COMB <<CF31i>> 1. +* crayons 4e anneau +*--- + MIX <<CF41i>> <<Ftemp>> + O16 = <<IsoO16>> 4.3808E-02 + U5 = <<IsoU5>> 4.4357E-04 1 IRSET PTSL NONE + U8 = <<IsoU8>> 2.1461E-02 1 IRSET PTSL NONE + MIX <<CF42i>> COMB <<CF41i>> 1. + MIX <<CF43i>> COMB <<CF41i>> 1. + MIX <<CF44i>> COMB <<CF41i>> 1. + + MIX <<CF41e>> COMB <<CF41i>> 1. + MIX <<CF42e>> COMB <<CF41i>> 1. + MIX <<CF43e>> COMB <<CF41i>> 1. + MIX <<CF44e>> COMB <<CF41i>> 1. + + MIX <<VF41i>> COMB <<CF41i>> 1. + MIX <<VF42i>> COMB <<CF41i>> 1. + MIX <<VF43i>> COMB <<CF41i>> 1. + MIX <<VF44i>> COMB <<CF41i>> 1. + + MIX <<VF41e>> COMB <<CF41i>> 1. + MIX <<VF42e>> COMB <<CF41i>> 1. + MIX <<VF43e>> COMB <<CF41i>> 1. + MIX <<VF44e>> COMB <<CF41i>> 1. +* gaine crayon +*--- + MIX <<SH>> <<PTtemp>> + ZR = <<IsoZr>> 4.9656E-02 2 IRSET PTSL NONE + FE4 = <<IsoFe4>> 1.0341E-05 + FE6 = <<IsoFe6>> 1.5654E-04 + FE7 = <<IsoFe7>> 3.5509E-06 + FE8 = <<IsoFe8>> 4.6451E-07 + CR0 = <<IsoCr0>> 3.9532E-06 + CR2 = <<IsoCr2>> 7.3306E-05 + CR3 = <<IsoCr3>> 8.1553E-06 + CR4 = <<IsoCr4>> 1.9925E-06 + NI8 = <<IsoNi8>> 3.7378E-06 + NI0 = <<IsoNi0>> 1.3918E-06 + NI1 = <<IsoNi1>> 5.9514E-08 + NI2 = <<IsoNi2>> 1.8668E-07 + NI4 = <<IsoNi4>> 4.6062E-08 + B10 = <<IsoB10>> 2.7058E-07 +* void +*--- + MIX <<VOID>> <<Ctemp>> + H1 = <<IsoH1>> 6.6918E-05 + O16 = <<IsoO16>> 3.3459E-05 + ; +* +* terminer execution +* +QUIT "LIST" . |