summaryrefslogtreecommitdiff
path: root/Donjon/data/Test4x4coupl_nompi_proc/GeoCellG2.c2m
diff options
context:
space:
mode:
authorstainer_t <thomas.stainer@oecd-nea.org>2025-09-08 13:48:49 +0200
committerstainer_t <thomas.stainer@oecd-nea.org>2025-09-08 13:48:49 +0200
commit7dfcc480ba1e19bd3232349fc733caef94034292 (patch)
tree03ee104eb8846d5cc1a981d267687a729185d3f3 /Donjon/data/Test4x4coupl_nompi_proc/GeoCellG2.c2m
Initial commit from Polytechnique Montreal
Diffstat (limited to 'Donjon/data/Test4x4coupl_nompi_proc/GeoCellG2.c2m')
-rwxr-xr-xDonjon/data/Test4x4coupl_nompi_proc/GeoCellG2.c2m398
1 files changed, 398 insertions, 0 deletions
diff --git a/Donjon/data/Test4x4coupl_nompi_proc/GeoCellG2.c2m b/Donjon/data/Test4x4coupl_nompi_proc/GeoCellG2.c2m
new file mode 100755
index 0000000..8c460f4
--- /dev/null
+++ b/Donjon/data/Test4x4coupl_nompi_proc/GeoCellG2.c2m
@@ -0,0 +1,398 @@
+*DECK GeoCellG2.c2m
+*----
+* Nom : GeoCellG2.c2m
+* Type : procedure DRAGON
+* Usage : Definir les geometries de cellule Gentilly-2
+* qui peuvent etre utilisees.
+* Auteur : G. Marleau
+* Date : 2002/12/03
+*
+* Description de la procedure :
+*
+* Tracking Intline := GeoCellG2 ::
+* <<Modele>> <<Calo>> <<TypeCalc>> <<Impression>> ;
+*
+* Tracking : structure de donnees tracking
+* Intline : fichier de lignes d'integration
+* Modele : Modele de cellule considere
+* "NG2C" - > Nouvelle cellule G-2 avec
+* frontiere Cartesienne
+* "NG2A" -> Nouvelle cellule G-2 avec
+* frontiere annulaire
+* "IGE227" -> Geometrie du rapport
+* IGE-227 avec frontiere annulaire
+* (defaut)
+* "IGE227C" -> Geometrie du rapport
+* IGE-227 avec frontiere Cartesienne
+* "Simple" -> Geometrie de test simplifiee
+* Calo : Conditions du caloporteur
+* "Present" -> cellule refrigeree (defaut)
+* "Absent" -> perte de caloporteur
+* TypeCalc : Type de calcul
+* "Flux" -> Geometrie fine pour calcul de flux
+* (defaut)
+* "Auto" -> Geometrie grossiere pour calcul
+* d'autoprotection
+* "Homog" -> Geometrie pour homogenisation
+* Impression : Niveau d'impression
+* 0 -> Minimum
+* 1 -> Standard
+* >1 -> Pour verification
+*----
+* Parametres de la procedure
+*----
+PARAMETER Tracking Intline ::
+ EDIT 1
+ ::: LINKED_LIST Tracking ;
+ ::: SEQ_BINARY Intline ; ;
+STRING Modele Calo TypeCalc ;
+INTEGER Impression ;
+:: >>Modele<< >>Calo<< >>TypeCalc<< >>Impression<< ;
+*----------
+* Definir les options locales
+*----------
+MODULE GEO: EXCELT:
+ DELETE: ;
+LINKED_LIST CANDU6 ;
+INTEGER CoolMix ;
+INTEGER MaxRegion := 32 ;
+INTEGER NbAngles AngSymm ;
+REAL TrkDens ;
+*----
+* Definir le melange associe au caloporteur
+*----
+IF Calo "Present" = THEN
+ EVALUATE CoolMix := 1 ;
+ELSE
+ EVALUATE CoolMix := 0 ;
+ENDIF ;
+*----
+* Choisir le modele
+*---- ;
+IF Modele "NG2C" = THEN
+*----
+* Nouvelle geometrie avec frontiere cartesienne
+*----
+ IF TypeCalc "Homog" = THEN
+ EVALUATE NbAngles AngSymm TrkDens :=
+ 31 1 10.0 ;
+*----
+* Geometrie pour homogenisation
+*----
+ CANDU6 := GEO: :: CARCEL 5
+ EDIT <<Impression>>
+ X- REFL MESHX -14.2875 14.2875 X+ REFL
+ Y- REFL MESHY -14.2875 14.2875 Y+ REFL
+ RADIUS 0.00000 0.7221626 2.160324 3.600681
+ 5.168878 6.587482
+ MIX 3 4 5 6 2 1 ;
+ ELSEIF TypeCalc "Auto" = THEN
+ EVALUATE NbAngles AngSymm TrkDens :=
+ 31 4 20.0 ;
+*----
+* Geometrie grossiere pour autoprotection
+*----
+ CANDU6 := GEO: :: CARCEL 5
+ EDIT <<Impression>>
+ X- REFL MESHX -14.2875 14.2875 X+ REFL
+ Y- REFL MESHY -14.2875 14.2875 Y+ REFL
+ RADIUS 0.00000 5.168878 5.60320 6.44780
+ 6.587482 14.0
+ MIX <<CoolMix>> 2 3 4 5 5
+ CLUSTER ROD1 ROD2 ROD3 ROD4
+ ::: ROD1 := GEO: TUBE 2 MIX 6 10
+ NPIN 1 RPIN 0.0000 APIN 0.0000
+ RADIUS 0.00000 0.6122 0.6540 ;
+ ::: ROD2 := GEO: ROD1 MIX 7 10
+ NPIN 6 RPIN 1.4885 APIN 0.0000 ;
+ ::: ROD3 := GEO: ROD1 MIX 8 10
+ NPIN 12 RPIN 2.8755 APIN 0.261799 ;
+ ::: ROD4 := GEO: ROD1 MIX 9 10
+ NPIN 18 RPIN 4.3305 APIN 0.0 ; ;
+ ELSE
+ EVALUATE NbAngles AngSymm TrkDens :=
+ 31 4 20.0 ;
+*----
+* Defaut, geometrie fine pour flux
+*----
+ CANDU6 := GEO: :: CARCEL 8
+ EDIT <<Impression>>
+ X- REFL MESHX -14.2875 14.2875 X+ REFL
+ Y- REFL MESHY -14.2875 14.2875 Y+ REFL
+ RADIUS 0.00000 0.7221626 2.160324 3.600681
+ 5.168878 5.60320 6.44780 6.587482 14.0
+ SPLITR 1 2 2 2 1 1 1 9
+ MIX <<CoolMix>> <<CoolMix>> <<CoolMix>> <<CoolMix>>
+ 2 3 4 5 5
+ CLUSTER ROD1 ROD2 ROD3 ROD4
+ ::: ROD1 := GEO: TUBE 2 MIX 6 10
+ NPIN 1 RPIN 0.0000 APIN 0.0000
+ RADIUS 0.00000 0.6122 0.6540 SPLITR 2 1 ;
+ ::: ROD2 := GEO: ROD1 MIX 7 10
+ NPIN 6 RPIN 1.4885 APIN 0.0000 ;
+ ::: ROD3 := GEO: ROD1 MIX 8 10
+ NPIN 12 RPIN 2.8755 APIN 0.261799 ;
+ ::: ROD4 := GEO: ROD1 MIX 9 10
+ NPIN 18 RPIN 4.3305 APIN 0.0 ; ;
+ ENDIF ;
+ELSEIF Modele "NG2A" = THEN
+*----
+* Nouvelle geometrie avec frontiere annulaire
+*----
+ IF TypeCalc "Homog" = THEN
+ EVALUATE NbAngles AngSymm TrkDens :=
+ 1 1 10.0 ;
+*----
+* Geometrie pour homogenisation
+*----
+ CANDU6 := GEO: :: TUBE 2
+ EDIT <<Impression>>
+ R+ REFL
+ RADIUS 0.00000 6.5875 16.12171
+ MIX 2 1
+ CLUSTER FUEL
+ ::: FUEL := GEO: TUBE 4 MIX 3 4 5 6
+ NPIN 1 RPIN 0.0000 APIN 0.0000
+ RADIUS 0.00000 0.7221626 2.160324 3.600681
+ 5.16887 ; ;
+ ELSEIF TypeCalc "Auto" = THEN
+ EVALUATE NbAngles AngSymm TrkDens :=
+ 11 12 20.0 ;
+*----
+* Geometrie grossiere pour autoprotection
+*----
+ CANDU6 := GEO: :: TUBE 5
+ EDIT <<Impression>>
+ R+ REFL
+ RADIUS 0.00000 5.168878 5.60320 6.44780
+ 6.587482 16.12171
+ MIX <<CoolMix>> 2 3 4 5
+ CLUSTER ROD1 ROD2 ROD3 ROD4
+ ::: ROD1 := GEO: TUBE 2 MIX 6 10
+ NPIN 1 RPIN 0.0000 APIN 0.0000
+ RADIUS 0.00000 0.6122 0.6540 ;
+ ::: ROD2 := GEO: ROD1 MIX 7 10
+ NPIN 6 RPIN 1.4885 APIN 0.0000 ;
+ ::: ROD3 := GEO: ROD1 MIX 8 10
+ NPIN 12 RPIN 2.8755 APIN 0.261799 ;
+ ::: ROD4 := GEO: ROD1 MIX 9 10
+ NPIN 18 RPIN 4.3305 APIN 0.0 ; ;
+ ELSE
+ EVALUATE NbAngles AngSymm TrkDens :=
+ 11 12 20.0 ;
+*----
+* Defaut, geometrie fine pour flux
+*----
+ CANDU6 := GEO: :: TUBE 8
+ EDIT <<Impression>>
+ R+ REFL
+ RADIUS 0.00000 0.7221626 2.160324 3.600681
+ 5.168878 5.60320 6.44780 6.587482 16.12171
+ SPLITR 1 2 2 2 1 1 1 10
+ MIX <<CoolMix>> <<CoolMix>> <<CoolMix>> <<CoolMix>>
+ 2 3 4 5
+ CLUSTER ROD1 ROD2 ROD3 ROD4
+ ::: ROD1 := GEO: TUBE 2 MIX 6 10
+ NPIN 1 RPIN 0.0000 APIN 0.0000
+ RADIUS 0.00000 0.6122 0.6540 SPLITR 2 1 ;
+ ::: ROD2 := GEO: ROD1 MIX 7 10
+ NPIN 6 RPIN 1.4885 APIN 0.0000 ;
+ ::: ROD3 := GEO: ROD1 MIX 8 10
+ NPIN 12 RPIN 2.8755 APIN 0.261799 ;
+ ::: ROD4 := GEO: ROD1 MIX 9 10
+ NPIN 18 RPIN 4.3305 APIN 0.0 ; ;
+ ENDIF ;
+ELSEIF Modele "IGE227C" = THEN
+*----
+* Par defaut, geometrie IGE-227 avec frontiere Cartesienne
+*----
+ IF TypeCalc "Homog" = THEN
+*----
+* Geometrie pour homogenisation
+*----
+ EVALUATE NbAngles AngSymm TrkDens :=
+ 1 1 10.0 ;
+ CANDU6 := GEO: :: CARCEL 2
+ EDIT <<Impression>>
+ X- REFL MESHX -14.2875 14.2875 X+ REFL
+ Y- REFL MESHY -14.2875 14.2875 Y+ REFL
+ RADIUS 0.00000 5.1689 6.5875
+ MIX 3 2 1 ;
+ ELSEIF TypeCalc "Auto" = THEN
+*----
+* Geometrie grossiere pour autoprotection
+*----
+ EVALUATE NbAngles AngSymm TrkDens :=
+ 31 4 10.0 ;
+ CANDU6 := GEO: :: CARCEL 5
+ EDIT <<Impression>>
+ X- REFL MESHX -14.2875 14.2875 X+ REFL
+ Y- REFL MESHY -14.2875 14.2875 Y+ REFL
+ R+ REFL RADIUS 0.00000 5.1689 5.60320 6.44780
+ 6.5875 14.0
+ MIX <<CoolMix>> 2 3 4 5 5
+ CLUSTER ROD1 ROD2 ROD3 ROD4
+ ::: ROD1 := GEO: TUBE 2 MIX 6 10
+ NPIN 1 RPIN 0.0000 APIN 0.0000
+ RADIUS 0.00000 0.6122 0.6540 ;
+ ::: ROD2 := GEO: ROD1 MIX 7 10
+ NPIN 6 RPIN 1.4885 APIN 0.0000 ;
+ ::: ROD3 := GEO: ROD1 MIX 8 10
+ NPIN 12 RPIN 2.8755 APIN 0.261799 ;
+ ::: ROD4 := GEO: ROD1 MIX 9 10
+ NPIN 18 RPIN 4.3305 APIN 0.0 ; ;
+ ELSE
+*----
+* Defaut, geometrie fine pour flux
+*----
+ EVALUATE NbAngles AngSymm TrkDens :=
+ 31 4 20.0 ;
+ CANDU6 := GEO: :: CARCEL 5
+ EDIT <<Impression>>
+ X- REFL MESHX -14.2875 14.2875 X+ REFL
+ Y- REFL MESHY -14.2875 14.2875 Y+ REFL
+ R+ REFL RADIUS 0.00000 5.1689 5.60320 6.44780
+ 6.5875 14.0
+ MIX <<CoolMix>> 2 3 4 5 5
+ SPLITR 6 1 1 1 9
+ CLUSTER ROD1 ROD2 ROD3 ROD4
+ ::: ROD1 := GEO: TUBE 2 MIX 6 10
+ NPIN 1 RPIN 0.0000 APIN 0.0000
+ RADIUS 0.00000 0.6122 0.6540 SPLITR 2 1 ;
+ ::: ROD2 := GEO: ROD1 MIX 7 10
+ NPIN 6 RPIN 1.4885 APIN 0.0000 ;
+ ::: ROD3 := GEO: ROD1 MIX 8 10
+ NPIN 12 RPIN 2.8755 APIN 0.261799 ;
+ ::: ROD4 := GEO: ROD1 MIX 9 10
+ NPIN 18 RPIN 4.3305 APIN 0.0 ; ;
+ ENDIF ;
+ELSEIF Modele "Simple" = THEN
+*----
+* Geometrie annulaire simple
+*----
+ IF TypeCalc "Homog" = THEN
+*----
+* Geometrie pour homogenisation
+*----
+ EVALUATE NbAngles AngSymm TrkDens :=
+ 1 1 10.0 ;
+ CANDU6 := GEO: :: TUBE 1
+ EDIT <<Impression>>
+ R+ REFL
+ R+ REFL RADIUS 0.00000 5.0
+ MIX 2
+ CLUSTER FUEL
+ ::: FUEL := GEO: TUBE 1 MIX 2
+ NPIN 1 RPIN 0.0000 APIN 0.0000
+ RADIUS 0.000 1.000 ; ;
+ ELSEIF TypeCalc "Auto" = THEN
+*----
+* Geometrie grossiere pour autoprotection
+*----
+ EVALUATE NbAngles AngSymm TrkDens :=
+ 1 1 10.0 ;
+ CANDU6 := GEO: :: TUBE 1
+ EDIT <<Impression>>
+ R+ REFL
+ R+ REFL RADIUS 0.00000 5.0
+ MIX 5
+ CLUSTER FUEL
+ ::: FUEL := GEO: TUBE 2 MIX 6 10
+ NPIN 1 RPIN 0.0000 APIN 0.0000
+ RADIUS 0.0000 0.8 1.000 ; ;
+ ELSE
+*----
+* Defaut, geometrie fine pour flux
+*----
+ EVALUATE NbAngles AngSymm TrkDens :=
+ 1 1 20.0 ;
+ CANDU6 := GEO: :: TUBE 1
+ EDIT <<Impression>>
+ R+ REFL
+ R+ REFL RADIUS 0.00000 5.0
+ MIX 5
+ CLUSTER FUEL
+ ::: FUEL := GEO: TUBE 2 MIX 6 10
+ NPIN 1 RPIN 0.0000 APIN 0.0000
+ RADIUS 0.0000 0.8 1.000 ; ;
+ ENDIF ;
+ELSE
+*----
+* Par defaut, geometrie IGE-227 avec frontiere annulaire
+*----
+ IF TypeCalc "Homog" = THEN
+*----
+* Geometrie pour homogenisation
+*----
+ EVALUATE NbAngles AngSymm TrkDens :=
+ 1 1 10.0 ;
+ CANDU6 := GEO: :: TUBE 2
+ EDIT <<Impression>>
+ R+ REFL
+ R+ REFL RADIUS 0.00000 6.5875 16.12171
+ MIX 2 1
+ CLUSTER FUEL
+ ::: FUEL := GEO: TUBE 1 MIX 3
+ NPIN 1 RPIN 0.0000 APIN 0.0000
+ RADIUS 0.0000 5.1689 ; ;
+ ELSEIF TypeCalc "Auto" = THEN
+*----
+* Geometrie grossiere pour autoprotection
+*----
+ EVALUATE NbAngles AngSymm TrkDens :=
+ 7 12 10.0 ;
+ CANDU6 := GEO: :: TUBE 5
+ EDIT <<Impression>>
+ R+ REFL RADIUS 0.00000 5.1689 5.60320 6.44780
+ 6.5875 16.12171
+ MIX <<CoolMix>> 2 3 4 5
+ CLUSTER ROD1 ROD2 ROD3 ROD4
+ ::: ROD1 := GEO: TUBE 2 MIX 6 10
+ NPIN 1 RPIN 0.0000 APIN 0.0000
+ RADIUS 0.00000 0.6122 0.6540 ;
+ ::: ROD2 := GEO: ROD1 MIX 7 10
+ NPIN 6 RPIN 1.4885 APIN 0.0000 ;
+ ::: ROD3 := GEO: ROD1 MIX 8 10
+ NPIN 12 RPIN 2.8755 APIN 0.261799 ;
+ ::: ROD4 := GEO: ROD1 MIX 9 10
+ NPIN 18 RPIN 4.3305 APIN 0.0 ; ;
+ ELSE
+*----
+* Defaut, geometrie fine pour flux
+*----
+ EVALUATE NbAngles AngSymm TrkDens :=
+ 11 12 20.0 ;
+ CANDU6 := GEO: :: TUBE 5
+ EDIT <<Impression>>
+ R+ REFL
+ R+ REFL RADIUS 0.00000 5.1689 5.60320 6.44780
+ 6.5875 16.12171
+ SPLITR 6 1 1 1 10
+ MIX <<CoolMix>> 2 3 4 5
+ CLUSTER ROD1 ROD2 ROD3 ROD4
+ ::: ROD1 := GEO: TUBE 2 MIX 6 10
+ NPIN 1 RPIN 0.0000 APIN 0.0000
+ RADIUS 0.00000 0.6122 0.6540 SPLITR 2 1 ;
+ ::: ROD2 := GEO: ROD1 MIX 7 10
+ NPIN 6 RPIN 1.4885 APIN 0.0000 ;
+ ::: ROD3 := GEO: ROD1 MIX 8 10
+ NPIN 12 RPIN 2.8755 APIN 0.261799 ;
+ ::: ROD4 := GEO: ROD1 MIX 9 10
+ NPIN 18 RPIN 4.3305 APIN 0.0 ; ;
+ ENDIF ;
+ENDIF ;
+*----------
+* Analyse de la geometrie choisie
+*----------
+Tracking Intline := EXCELT: CANDU6 ::
+ EDIT <<Impression>>
+ TITLE 'Gentilly-2 geometry'
+ MAXR <<MaxRegion>>
+ TRAK TISO <<NbAngles>> <<TrkDens>>
+ SYMM <<AngSymm>> ;
+*----
+* Eliminer les structures locales et
+* terminer
+*----
+CANDU6 := DELETE: CANDU6 ;
+QUIT "LIST" .
generated by cgit v1.2.3 (git 2.46.0) at 2026-02-17 04:32:22 +0000