diff options
| author | stainer_t <thomas.stainer@oecd-nea.org> | 2025-09-08 13:48:49 +0200 |
|---|---|---|
| committer | stainer_t <thomas.stainer@oecd-nea.org> | 2025-09-08 13:48:49 +0200 |
| commit | 7dfcc480ba1e19bd3232349fc733caef94034292 (patch) | |
| tree | 03ee104eb8846d5cc1a981d267687a729185d3f3 /Yacs++/data/IniThmCompo.c2m | |
Initial commit from Polytechnique Montreal
Diffstat (limited to 'Yacs++/data/IniThmCompo.c2m')
| -rwxr-xr-x | Yacs++/data/IniThmCompo.c2m | 85 |
1 files changed, 85 insertions, 0 deletions
diff --git a/Yacs++/data/IniThmCompo.c2m b/Yacs++/data/IniThmCompo.c2m new file mode 100755 index 0000000..1ca21e0 --- /dev/null +++ b/Yacs++/data/IniThmCompo.c2m @@ -0,0 +1,85 @@ +**************************************************************** +* * +* Procedure : IniThmCompo.c2m * +* Purpose : Initialization component * +* Author : A. Hebert * +* * +* CALL : * +* Fmap Matex := IniThmCompo ; * +* * +**************************************************************** +PARAMETER Fmap Matex :: + ::: LINKED_LIST Fmap Matex ; ; + +LINKED_LIST GeoCoeur ; +MODULE TRIVAT: UTL: END: ; + +PROCEDURE GetDim GeoCo SetFuelMap SetParam ; +*---- +* Local Parameters +*---- +REAL densB1 := 2000.0 ; +REAL densB2 := 1000.0 ; +INTEGER Splitx Splitz := 1 1 ; +REAL powi := 2775.0 ; + +REAL Rcomb1 Rcomb2 Rcomb3 Rcomb4 + R_int_TG R_ext_TG R_int_TI R_ext_TI R_int_G R_ext_G + Cote CoteL + RmodeN1 RmodeN2 + R_ext_G2 R_ext_TGm R_ext_TIm + N_U5_UOX N_U5_MOX + N_Pu8 N_Pu9 N_Pu0 N_Pu1 N_Pu2 N_Am1 + densU_UOX densU_MOX densPu_MOX + teneur1_Pu teneur2_Pu teneur3_Pu + temp_comb temp_mode dens_mode + temp_comb_0 temp_mode_0 dens_mode_0 ; + +REAL ORF IRC ORC IRCGT ORCGT ORAG ORAN + IRCA ORCA ORDET ORDETC Lame LPitch Height ; + +REAL pbore_0 := 500. ; ! natural boron concentration in ppm + + GetDim :: + >>Rcomb1<< >>Rcomb2<< >>Rcomb3<< >>Rcomb4<< + >>R_int_TG<< >>R_ext_TG<< >>R_int_TI<< >>R_ext_TI<< + >>R_int_G<< >>R_ext_G<< >>Cote<< >>Lame<< >>CoteL<< + >>RmodeN1<< >>RmodeN2<< >>R_ext_G2<< >>R_ext_TGm<< >>R_ext_TIm<< + >>N_U5_UOX<< >>N_U5_MOX<< >>N_Pu8<< >>N_Pu9<< >>N_Pu0<< + >>N_Pu1<< >>N_Pu2<< >>N_Am1<< >>densU_UOX<< >>densU_MOX<< + >>densPu_MOX<< >>teneur1_Pu<< >>teneur2_Pu<< >>teneur3_Pu<< + >>temp_comb_0<< >>temp_mode_0<< >>dens_mode_0<< ; + +EVALUATE temp_comb temp_mode dens_mode := 800.0 600.0 0.659 ; + +EVALUATE + ORF IRC ORC IRCGT ORCGT + ORAG ORAN IRCA ORCA + ORDET ORDETC + Lame LPitch Height + := + Rcomb4 R_int_TG R_ext_TG R_int_TI R_ext_TI + R_int_TG R_ext_TG R_int_TI R_ext_TI + R_int_TG R_ext_TG + Lame Cote 10.0 + ; + +REAL rPavX := 17.0 ; ! assemblage 17 x 17 +INTEGER iPavX := 17 ; ! assemblage 17 x 17 + +REAL dx := rPavX LPitch * 2.0 Lame * + ; +INTEGER MaxR := iPavX iPavX * 33 * Splitx * Splitx * Splitz * ; + +GeoCoeur Matex := GeoCo :: + <<Splitx>> <<Splitz>> <<MaxR>> <<dx>> ; + +*-- +* Fuel map definition +*-- +Fmap Matex := SetFuelMap Matex :: <<dx>> ; + +Fmap := SetParam Fmap :: <<densB1>> <<temp_comb_0>> <<temp_mode_0>> + <<dens_mode_0>> ; + +END: ; +QUIT "LIST" . |