Cuve2dg/DefaillCUVE_Cata.py

   1 # -*- coding: utf-8 -*-
   2
   3 # --------------------------------------------------
   4 # Definition de variables sous forme de tuple
   5 # --------------------------------------------------
   6
   7 import types
   8 class Tuple:
   9   def __init__(self,ntuple):
  10     self.ntuple=ntuple
  11
  12   def __convert__(self,valeur):
  13     if type(valeur) == types.StringType:
  14       return None
  15     if len(valeur) != self.ntuple:
  16       return None
  17     return valeur
  18
  19   def info(self):
  20     return "Tuple de %s elements" % self.ntuple
  21
  22   __repr__=info
  23   __str__=info
  24
  25 # --------------------------------------------------
  26 # debut entete
  27 # --------------------------------------------------
  28
  29 import Accas
  30 from Accas import *
  31
  32 class loi ( ASSD ) : pass
  33 class variable ( ASSD ) : pass
  34
  35
  36 #CONTEXT.debug = 1
  37 JdC = JDC_CATA ( code = 'CUVE1D-DEFAILLGLOB',
  38                  execmodul = None,
  39                  regles = ( AU_MOINS_UN ('OPTIONS'),
  40                             AU_MOINS_UN ('INITIALISATION'),
  41                             AU_MOINS_UN ('REVETEMENT'),
  42                             AU_MOINS_UN ('METAL_BASE'),
  43                             AU_MOINS_UN ('TRANSITOIRE'),
  44                           )
  45                  ) # Fin JDC_CATA
  46
  47 # --------------------------------------------------
  48 # fin entete
  49 # --------------------------------------------------
  50
  51 # --------------------------------------------------
  52 # RESPONSABLE D. THAI VAN
  53 # Ce fichier contient la liste des coefficients pour un
  54 # modele de Weibull generalise
  55 def Coef_WeibGen() : return FACT(statut='o',min=1,max='**',
  56
  57   # A1
  58   A1 = SIMP ( statut="o", typ="R", defaut=21.263,
  59               fr="coef du coef a(T) d'une Weibull générale", ),
  60   # A2
  61   A2 = SIMP ( statut="o", typ="R", defaut=9.159,
  62               fr="coef du coef a(T) d'une Weibull générale", ),
  63   # A3
  64   A3 = SIMP ( statut="o", typ="R", defaut=0.04057,
  65               fr="coef du coef a(T) d'une Weibull générale", ),
  66   # B1
  67   B1 = SIMP ( statut="o", typ="R", defaut=17.153,
  68               fr="coef du coef b(T) d'une Weibull générale", ),
  69   # B2
  70   B2 = SIMP ( statut="o", typ="R", defaut=55.089,
  71               fr="coef du coef b(T) d'une Weibull générale", ),
  72   # B3
  73   B3 = SIMP ( statut="o", typ="R", defaut=0.0144,
  74               fr="coef du coef b(T) d'une Weibull générale", ),
  75   # C1
  76   C1 = SIMP ( statut="o", typ="R", defaut=4.,
  77               fr="coef du coef c(T) d'une Weibull générale", ),
  78   # C2
  79   C2 = SIMP ( statut="o", typ="R", defaut=0.,
  80               fr="coef du coef c(T) d'une Weibull générale", ),
  81   # C3
  82   C3 = SIMP ( statut="o", typ="R", defaut=0.,
  83               fr="coef du coef c(T) d'une Weibull générale", ),
  84
  85 ); # FIN def Coef_WeibGen
  86
  87
  88 # --------------------------------------------------
  89 # RESPONSABLE D. THAI VAN
  90 # Ce fichier contient la liste des coefficients
  91 def Coef_Fluence() : return FACT(statut='o',min=1,max='**',
  92
  93   # COEFFLUENCE1
  94   Azimut_0deg  = SIMP ( statut="o", typ="R", defaut=5.8,
  95                         fr="Fluence à l'azimut 0 (10^19 n/cm2)", ),
  96   # COEFFLUENCE2
  97   Azimut_5deg  = SIMP ( statut="o", typ="R", defaut=5.48,
  98                         fr="Fluence à l'azimut 5 (10^19 n/cm2)", ),
  99   # COEFFLUENCE3
 100   Azimut_10deg = SIMP ( statut="o", typ="R", defaut=4.46,
 101                         fr="Fluence à l'azimut 10 (10^19 n/cm2)", ),
 102   # COEFFLUENCE4
 103   Azimut_15deg = SIMP ( statut="o", typ="R", defaut=3.41,
 104                         fr="Fluence à l'azimut 15 (10^19 n/cm2)", ),
 105   # COEFFLUENCE5
 106   Azimut_20deg = SIMP ( statut="o", typ="R", defaut=3.37,
 107                         fr="Fluence à l'azimut 20 (10^19 n/cm2)", ),
 108   # COEFFLUENCE6
 109   Azimut_25deg = SIMP ( statut="o", typ="R", defaut=3.16,
 110                         fr="Fluence à l'azimut 25 (10^19 n/cm2)", ),
 111   # COEFFLUENCE7
 112   Azimut_30deg = SIMP ( statut="o", typ="R", defaut=2.74,
 113                         fr="Fluence à l'azimut 30 (10^19 n/cm2)", ),
 114   # COEFFLUENCE8
 115   Azimut_35deg = SIMP ( statut="o", typ="R", defaut=2.25,
 116                         fr="Fluence à l'azimut 35 (10^19 n/cm2)", ),
 117   # COEFFLUENCE9
 118   Azimut_40deg = SIMP ( statut="o", typ="R", defaut=1.89,
 119                         fr="Fluence à l'azimut 40 (10^19 n/cm2)", ),
 120   # COEFFLUENCE10
 121   Azimut_45deg = SIMP ( statut="o", typ="R", defaut=1.78,
 122                         fr="Fluence à l'azimut 45 (10^19 n/cm2)", ),
 123
 124 ); # FIN def Coef_Fluence
 125
 126 #================================
 127 # 1. Definition des OPTIONS
 128 #================================
 129
 130 OPTIONS = PROC ( nom = "OPTIONS",
 131                  op = 68,
 132                  repetable = 'n',
 133                  fr = "Définitions des options",
 134
 135 #===
 136 # Liste des paramètres
 137 #===
 138
 139   SortieEcran = FACT (statut="o",
 140
 141     # MESSAGE_LEVEL
 142     NiveauImpression    = SIMP (statut="o", typ="TXM", defaut="Temps total",
 143                                 fr="Niveau d impression a l ecran",
 144                                 into=( "Aucune impression", # 0
 145                                        "Temps total", # 1
 146                                        "Temps intermediaires",), # 2
 147                                 ),
 148
 149   ), # FIN FACT SortieEcran
 150
 151   SortieFichier = FACT (statut="o",
 152
 153     # DATARESUME_FILE
 154     FichierDataIn       = SIMP (statut="o", typ="TXM", defaut="NON",
 155                                 fr="Fichier recapitulatif des donnees d entree : template.IN",
 156                                 into=( "OUI", "NON",),
 157                                 ),
 158     # TEMPSIG_FILE
 159     FichierTempSigma    = SIMP (statut="o", typ="TXM", defaut="NON",
 160                                 fr="Fichiers de temperature et de contraintes : template.TEMP et template.SIG",
 161                                 into=( "OUI", "NON",),
 162                                 ),
 163     # RESU_FILE
 164     #FichierResultats   = SIMP (statut="o", typ="TXM", defaut="NON",
 165     #                            fr="Fichier resultat : template_DEFAILLCUVE",
 166     #                            into=( "OUI", "NON",),
 167     #                            ),
 168     # CSV_FILE
 169     FichierCSV          = SIMP (statut="o", typ="TXM", defaut="NON",
 170                                 fr="Fichier resultat au format CSV : template_DEFAILLCUVE.CSV",
 171                                 into=( "OUI", "NON",),
 172                                 ),
 173     # CREARE_FILE
 174     FichierCREARE       = SIMP (statut="o", typ="TXM", defaut="NON",
 175                                 fr="Fichier Tfluide et coefficients d echange : template.CREA",
 176                                 into=( "OUI", "NON",),
 177                                 ),
 178
 179   ), # FIN FACT SortieFichier
 180
 181   # GRANDEUR
 182   GrandeurEvaluee       = SIMP (statut="o", typ="TXM", defaut="Facteur de marge KIc/KCP",
 183                                 fr="Grandeur sous critere",
 184                                 into=( "Facteur de marge KIc/KCP", # FM_KICSURKCP
 185                                        "Marge KIc-KI", # MARGE_KI
 186                                        "Marge KIc-KCP", ), # MARGE_KCP
 187                                 ),
 188
 189   AutresParametres = FACT (statut="o",
 190
 191     # INCRTPS
 192     IncrementTemporel          = SIMP ( statut="o", typ="I", defaut=1,
 193                                       fr="Incrément temporel (=1 pour calcul déterministe)", ),
 194     # DTPREC
 195     IncrementMaxTemperature    = SIMP ( statut="o", typ="R", val_min=0.1, val_max=1., defaut=0.1,
 196                                       fr="Incrément maximum d'évolution de la température par noeud et par instant (°C)", ),
 197     # DTARCH
 198     IncrementMaxTempsAffichage = SIMP ( statut="o", typ="R", val_min=0., val_max=1000., defaut=1000.,
 199                                       fr="Incrément maximum de temps pour l'affichage (s)", ),
 200     #
 201     ListeInstants              = SIMP ( statut="o", typ="R", max="**",
 202                                       fr = "Liste des instants pour lesquels la température et les contraintes seront archivés", ),
 203
 204   ), # FIN FACT AutresParametres
 205
 206 ) # Fin PROC OPTIONS
 207
 208 #================================
 209 # 2. Caracteristiques de la CUVE
 210 #================================
 211
 212 CUVE = PROC (nom = "CUVE",
 213              op = 68,
 214              repetable = 'n',
 215              fr = "Caractéristiques de la cuve",
 216
 217 #===
 218 # Liste des paramètres
 219 #===
 220
 221   # TYPEGEOM
 222   TraitementGeometrie = SIMP ( statut="o", typ="TXM", defaut="Topologie",
 223                                fr="Choix de la définition de la geométrie d'une cuve",
 224                                into=( "Topologie", # GEOMETRIE
 225                                         "Maillage"), # MAILLAGE
 226                                ),
 227
 228 #====
 229 # Definition des parametres selon le type de traitement de la geometrie
 230 #====
 231
 232   Geometrie = BLOC ( condition = "TraitementGeometrie=='Topologie'",
 233
 234     # RINT
 235     RayonInterne        = SIMP ( statut="o", typ="R", val_min=0.,  defaut=1.994,
 236                                  fr="Rayon interne de la cuve (en m)", ),
 237     # RINT_MESSAGE
 238     RayonInterne_mess   = SIMP ( statut="o", typ="TXM", defaut="NON",
 239                                  fr="Affichage ecran du rayon interne de la cuve (en m)",
 240                                  into=( "NON", "OUI" ), ),
 241
 242     # DTV : comment preciser que REXT > RINT ?
 243     # REXT
 244     RayonExterne        = SIMP ( statut="o", typ="R", defaut=2.2015,
 245                                  fr="Rayon externe de la cuve (en m)", ),
 246     # REXT_MESSAGE
 247     RayonExterne_mess   = SIMP ( statut="o", typ="TXM", defaut="NON",
 248                                  fr="Affichage ecran du rayon externe de la cuve (en m)",
 249                                  into=( "NON", "OUI" ), ),
 250
 251     # DTV : comment preciser que LREV < RINT ?
 252     # LREV
 253     EpaisseurRevetement = SIMP ( statut="o", typ="R", defaut=0.0075,
 254                                  fr="Epaisseur du revêtement (m)", ),
 255     # LREV_MESSAGE
 256     EpaisseurRevetement_mess = SIMP ( statut="o", typ="TXM", defaut="NON",
 257                                       fr="Affichage ecran de l'epaisseur du revêtement (m)",
 258                                       into=( "NON", "OUI" ), ),
 259
 260     # LIGMIN
 261     LigamentExterneMin  = SIMP ( statut="o", typ="R", defaut=0.75,
 262                                  fr="Ligament externe minimal avant rupture (% de l'épaisseur de cuve)", ),
 263     # LIGMIN_MESSAGE
 264     LigamentExterneMin_mess  = SIMP ( statut="o", typ="TXM", defaut="NON",
 265                                       fr="Affichage ecran du ligament externe minimal avant rupture (% de l'épaisseur de cuve)",
 266                                       into=( "NON", "OUI" ), ),
 267
 268     # NBNO
 269     NombreNoeudsMaillage = SIMP ( statut="o", typ="I", defaut=300, max=1, val_min=1, val_max=1000,
 270                                   fr = "Nombre de noeuds à considérer dans le maillage interne", ),
 271
 272   ), # Fin BLOC  Geometrie
 273
 274   Maillage  = BLOC ( condition = "TraitementGeometrie=='Maillage'",
 275
 276     # DTV : comment preciser que c'est une suite de liste de nombres croissants ?
 277     # Question : NBO depend-il de TYPGEOM ??
 278     NombreNoeudsMaillage = SIMP ( statut="o", typ="I", defaut=300, max=1, val_min=1, val_max=1000,
 279                                   fr = "Nombre de noeuds à considérer dans le maillage interne", ),
 280
 281     ListeAbscisses       = SIMP ( statut="o", typ="R", max="**",
 282                                   fr = "Liste des abscisses", ),
 283   ), # Fin BLOC Maillage
 284
 285 ) # Fin PROC CUVE
 286
 287 #================================
 288 # 3. Caracteristiques du DEFAUT
 289 #================================
 290
 291 DEFAUT = PROC ( nom = "DEFAUT",
 292                 op = 68,
 293                 repetable = 'n',
 294                 fr = "Caractéristiques du défaut",
 295
 296 #===
 297 # Liste des paramètres
 298 #===
 299
 300 # TYPEDEF
 301   TypeInitial = SIMP ( statut="o", typ="TXM", defaut="Defaut Sous Revetement",
 302                        fr="Type initial du défaut : sous revêtement, decale ou débouchant",
 303                        into=( "Defaut Sous Revetement", # DSR
 304                               "Defaut Decale", # DECALE
 305                               "Defaut Debouchant", ), # DEBOUCHANT
 306                        ),
 307
 308 #====
 309 # Definition des parametres selon le type du defaut
 310 #====
 311
 312   SousRevetement = BLOC ( condition = "TypeInitial=='Defaut Sous Revetement'",
 313
 314     # ORIEDEF into LONGITUD, CIRCONF
 315     Orientation              = SIMP ( statut="o", typ="TXM", defaut="Longitudinale",
 316                                       fr="Orientation du défaut",
 317                                       into=( "Longitudinale",
 318                                              "Circonferentielle" ), ),
 319
 320     Profondeur_parametres = FACT (statut="o",
 321       # PROFDEF
 322       # dtv : taille max d'un defaut ? Ici, 0.2 = epaisseur approximative de cuve
 323       ProfondeurRadiale        = SIMP ( statut="o", typ="R", max=1, val_min=0., val_max=0.2, defaut=0.006,
 324                                       fr="Profondeur radiale du défaut (m)", ),
 325       # PROFDEF_MESSAGE
 326       ProfondeurRadiale_mess   = SIMP ( statut="o", typ="TXM", defaut="NON",
 327                                       fr="Affichage ecran de la profondeur radiale du défaut (m)",
 328                                       into=( "NON", "OUI" ), ),
 329     ), # Fin FACT Profondeur_parametres
 330
 331     Longueur_parametres = FACT (statut="o",
 332       # OPTLONG into VALEUR, FCTAFFINE
 333       ModeCalculLongueur     = SIMP ( statut="o", typ="TXM", defaut="Valeur",
 334                                         fr="Option pour caractériser la longueur du défaut : soit par valeur, soit par une fonction affine de la profondeur",
 335                                         into = ( "Valeur", "Fonction affine de la profondeur" ), ),
 336       Mode_Valeur            = BLOC ( condition = "ModeCalculLongueur=='Valeur'",
 337         # LONGDEF
 338         Longueur                 = SIMP ( statut="o", typ="R", max=1, val_min=0., val_max=1., defaut = 0.060,
 339                                           fr = "Longueur du défaut sous revêtement (m)", ),
 340         # LONGDEF_MESSAGE
 341         Longueur_mess            = SIMP ( statut="o", typ="TXM", defaut = "NON",
 342                                           fr = "Affichage ecran de la longueur du défaut sous revêtement (m)",
 343                                         into=( "NON", "OUI" ), ),
 344       ), # Fin BLOC Mode_Valeur
 345       Mode_Fctaffine           = BLOC ( condition = "ModeCalculLongueur=='Fonction affine de la profondeur'",
 346         # PROFSURLONG
 347         CoefDirecteur     = SIMP ( statut="o", typ="R", max=1, val_max=100., defaut=10.,
 348                          fr="Inverse a1 du coefficient directeur de la fonction affine l=h/a1 + a0", ),
 349         # LONGCONST
 350         Constante = SIMP ( statut="o", typ="R", max=1, val_max=100., defaut=0.,
 351                          fr="constante a0 de la fonction affine l=pente*h + a0", ),
 352       ), # Fin BLOC Mode_Fctaffine
 353     ), # FIN FACT Longueur_parametres
 354
 355     Azimut_parametres = FACT (statut="o",
 356       # ANGLDEF
 357       Azimut                   = SIMP ( statut="o", typ="R", defaut=0.,
 358                                       fr="Position angulaire du défaut dans le cylindre de cuve (en degrés)", ),
 359       # ANGLDEF_MESSAGE
 360       Azimut_mess              = SIMP ( statut="o", typ="TXM", defaut="NON",
 361                                       fr="Affichage ecran de la position angulaire du défaut dans le cylindre de cuve (en degrés)",
 362                                       into = ( "NON", "OUI" ), ),
 363     ), # Fin FACT Azimut_parametres
 364
 365     Altitude_parametres = FACT (statut="o",
 366       # ALTIDEF
 367       # dtv : altitude entre -7m et 0m ? zone Vestale : -6.601<z<-3.510
 368       Altitude                 = SIMP ( statut="o", typ="R", val_min=-8., val_max=0., defaut=-4.,
 369                                       fr="Altitude du défaut sur le cylindre de cuve (en m)", ),
 370       # ALTIDEF_MESSAGE
 371       Altitude_mess            = SIMP ( statut="o", typ="TXM", defaut="NON",
 372                                       fr="Affichage ecran de l altitude du défaut sur le cylindre de cuve (en m)",
 373                                       into = ( "NON", "OUI" ), ),
 374     ), # Fin FACT Altitude_parametres
 375
 376     # POINDEF
 377     Pointe                   = SIMP ( statut="o", typ="TXM", defaut="A",
 378                                       fr="Choix du point considéré du défaut sous revêtement",
 379                                       into=( "A", "B", "A et B" ), ),
 380
 381   ), # Fin BLOC SousRevetement
 382
 383   Decale = BLOC ( condition = "TypeInitial=='Defaut Decale'",
 384
 385     # ORIEDEF into LONGITUD, CIRCONF
 386     Orientation              = SIMP ( statut="o", typ="TXM", defaut="Longitudinale",
 387                                       fr="Orientation du défaut",
 388                                       into=( "Longitudinale",
 389                                              "Circonferentielle" ), ),
 390
 391     Profondeur_parametres = FACT (statut="o",
 392       # PROFDEF
 393       # dtv : taille max d'un defaut ? Ici, 0.2 = epaisseur approximative de cuve
 394       ProfondeurRadiale        = SIMP ( statut="o", typ="R", max=1, val_min=0., val_max=0.2, defaut=0.006,
 395                                       fr="Profondeur radiale du défaut (m)", ),
 396       # PROFDEF_MESSAGE
 397       ProfondeurRadiale_mess   = SIMP ( statut="o", typ="TXM", defaut="NON",
 398                                       fr="Affichage ecran de la profondeur radiale du défaut (m)",
 399                                       into=( "NON", "OUI" ), ),
 400     ), # Fin FACT Profondeur_parametres
 401
 402     Longueur_parametres = FACT (statut="o",
 403
 404       # OPTLONG into VALEUR, FCTAFFINE
 405       ModeCalculLongueur     = SIMP ( statut="o", typ="TXM", defaut="Valeur",
 406                                       fr="Option pour caractériser la longueur du défaut : soit par valeur, soit par une fonction affine de la profondeur",
 407                                       into = ( "Valeur", "Fonction affine de la profondeur" ), ),
 408
 409       Mode_Valeur            = BLOC ( condition = "ModeCalculLongueur=='Valeur'",
 410         # LONGDEF
 411         Longueur                 = SIMP ( statut="o", typ="R", max=1, val_min=0., val_max=1., defaut = 0.060,
 412                                         fr = "Longueur du défaut sous revêtement (m)", ),
 413         # LONGDEF_MESSAGE
 414         Longueur_mess            = SIMP ( statut="o", typ="TXM", defaut = "NON",
 415                                         fr = "Affichage ecran de la longueur du défaut décalé (m)",
 416                                         into=( "NON", "OUI" ), ),
 417       ), # Fin BLOC Mode_Valeur
 418
 419       Mode_Fctaffine           = BLOC ( condition = "ModeCalculLongueur=='Fonction affine de la profondeur'",
 420         # PROFSURLONG
 421         CoefDirecteur     = SIMP ( statut="o", typ="R", max=1, val_max=100., defaut=10.,
 422                          fr="Inverse a1 du coefficient directeur de la fonction affine l=h/a1 + a0", ),
 423         # LONGCONST
 424         Constante = SIMP ( statut="o", typ="R", max=1, val_max=100., defaut=0.,
 425                          fr="constante a0 de la fonction affine l=pente*h + a0", ),
 426       ), # Fin BLOC Mode_Fctaffine
 427
 428     ), # FIN FACT Longueur_parametres
 429
 430
 431     Decalage_parametres = FACT (statut="o",
 432
 433       # DECATYP into NORMALISE, VALEUR
 434       ModeCalculDecalage     = SIMP ( statut="o", typ="TXM", defaut="Valeur",
 435                                       fr="Option de definition du decalage radial du defaut : soit par valeur reelle, soit par valeur normalisee",
 436                                       into = ( "Valeur",
 437                                                "Valeur normalisee" ), ),
 438
 439       Mode_Decalage_Valeur   = BLOC ( condition = "ModeCalculDecalage=='Valeur'",
 440         # DECADEF
 441         DecalageRadial           = SIMP ( statut="o", typ="R", defaut=-0.00001,
 442                                       fr="Décalage radial du defaut sous revêtement (en m)", ),
 443         # DECADEF_MESSAGE
 444         DecalageRadial_mess      = SIMP ( statut="o", typ="TXM", defaut="NON",
 445                                       fr="Affichage ecran du décalage radial du defaut sous revêtement (en m)",
 446                                       into = ( "NON", "OUI" ), ),
 447       ), # Fin BLOC Mode_Decalage_Valeur
 448
 449       Mode_Decalage_Normalisee = BLOC ( condition = "ModeCalculDecalage=='Valeur normalisee'",
 450         # DECANOR
 451         DecalageNormalise          = SIMP ( statut="o", typ="R", defaut=0.01,
 452                                        fr="Décalage radial normalise du defaut sous revêtement (entre 0. et 1.)", ),
 453       ), # Fin BLOC Mode_Decalage_Normalisee
 454
 455     ), # Fin FACT Decalage_parametres
 456
 457     Azimut_parametres = FACT (statut="o",
 458       # ANGLDEF
 459       Azimut                   = SIMP ( statut="o", typ="R", defaut=0.,
 460                                       fr="Position angulaire du défaut dans le cylindre de cuve (en degrés)", ),
 461       # ANGLDEF_MESSAGE
 462       Azimut_mess              = SIMP ( statut="o", typ="TXM", defaut="NON",
 463                                       fr="Affichage ecran de la position angulaire du défaut dans le cylindre de cuve (en degrés)",
 464                                       into = ( "NON", "OUI" ), ),
 465     ), # Fin FACT Azimut_parametres
 466
 467     Altitude_parametres = FACT (statut="o",
 468       # ALTIDEF
 469       # dtv : altitude entre -7m et 0m ? zone Vestale : -6.601<z<-3.510
 470       Altitude                 = SIMP ( statut="o", typ="R", val_min=-8., val_max=0., defaut=-4.,
 471                                       fr="Altitude du défaut sur le cylindre de cuve (en m)", ),
 472       # ALTIDEF_MESSAGE
 473       Altitude_mess            = SIMP ( statut="o", typ="TXM", defaut="NON",
 474                                       fr="Affichage ecran de l altitude du défaut sur le cylindre de cuve (en m)",
 475                                       into = ( "NON", "OUI" ), ),
 476     ), # Fin FACT Altitude_parametres
 477
 478     # POINDEF
 479     Pointe                   = SIMP ( statut="o", typ="TXM", defaut="A",
 480                                       fr="Choix du point considéré du défaut décalé",
 481                                       into=( "A", "B", "A et B" ), ),
 482
 483   ), # Fin BLOC Decale
 484
 485   Debouchant = BLOC ( condition = "TypeInitial=='Defaut Debouchant'",
 486
 487     # ORIEDEF into LONGITUD, CIRCONF
 488     Orientation              = SIMP ( statut="o", typ="TXM", defaut="Longitudinale",
 489                                       fr="Orientation du défaut : longitudinale ou circonférentielle",
 490                                       into=( "Longitudinale",
 491                                              "Circonferentielle" ), ),
 492
 493     Profondeur_parametres = FACT (statut="o",
 494       # PROFDEF
 495       # dtv : taille max d'un defaut ? Ici, 0.2 = epaisseur approximative de cuve
 496       ProfondeurRadiale        = SIMP ( statut="o", typ="R", max=1, val_min=0., val_max=0.2, defaut=0.006,
 497                                       fr="Profondeur radiale du défaut (m)", ),
 498       # PROFDEF_MESSAGE
 499       ProfondeurRadiale_mess   = SIMP ( statut="o", typ="TXM", defaut="NON",
 500                                       fr="Affichage ecran de la profondeur radiale du défaut (m)",
 501                                       into=( "NON", "OUI" ), ),
 502     ), # Fin FACT Profondeur_parametres
 503
 504     Azimut_parametres = FACT (statut="o",
 505       # ANGLDEF
 506       Azimut                   = SIMP ( statut="o", typ="R", defaut=0.,
 507                                       fr="Position angulaire du défaut dans le cylindre de cuve (en degrés)", ),
 508       # ANGLDEF_MESSAGE
 509       Azimut_mess              = SIMP ( statut="o", typ="TXM", defaut="NON",
 510                                       fr="Affichage ecran de la position angulaire du défaut dans le cylindre de cuve (en degrés)",
 511                                       into = ( "NON", "OUI" ), ),
 512     ), # Fin FACT Azimut_parametres
 513
 514     Altitude_parametres = FACT (statut="o",
 515       # ALTIDEF
 516       # dtv : altitude entre -7m et 0m ? zone Vestale : -6.601<z<-3.510
 517       Altitude                 = SIMP ( statut="o", typ="R", val_min=-8., val_max=0., defaut=-4.,
 518                                       fr="Altitude du défaut sur le cylindre de cuve (en m)", ),
 519       # ALTIDEF_MESSAGE
 520       Altitude_mess            = SIMP ( statut="o", typ="TXM", defaut="NON",
 521                                       fr="Affichage ecran de l altitude du défaut sur le cylindre de cuve (en m)",
 522                                       into = ( "NON", "OUI" ), ),
 523     ), # Fin FACT Altitude_parametres
 524
 525   ), # Fin BLOC debouchant
 526
 527 ) # Fin PROC DEFAUT
 528
 529
 530 #====================================================
 531 # 4. Modeles de fluence, d'irradiation et de tenacite
 532 #====================================================
 533
 534 #=======================
 535 # 4.1 Modeles de fluence
 536 #=======================
 537
 538 MODELES = PROC ( nom = "MODELES",
 539                  op = 68,
 540                  repetable = 'n',
 541                  fr = "Modèles de fluence, d'irradiation et de ténacité",
 542
 543
 544 #===
 545 # Liste des paramètres
 546 #===
 547
 548   Fluence = FACT ( statut="o",
 549
 550     # MODELFLUENCE
 551     ModeleFluence = SIMP ( statut="o", typ="TXM", defaut="Exponentiel sans revetement k=9.7 (Reglementaire)",
 552                            fr="Modèle d'atténuation de la fluence dans l'épaisseur de la cuve",
 553                            into=( "Exponentiel sans revetement k=9.7 (Reglementaire)", # Reglementaire
 554                                   "Exponentiel sans revetement k=9.7 (Reglementaire CUVE1D)", # Cuve1D
 555                                   "Exponentiel sans revetement k=12.7 (France)", # France
 556                                   "Exponentiel sans revetement k=0. (ValeurImposee)", # ValeurImposee
 557                                   "Donnees francaises du palier CPY (SDM)", # SDM
 558                                   "Donnees francaises du palier CPY ajustees par secteur angulaire (GrandeDev)", # GrandeDev
 559                                   "Regulatory Guide 1.99 rev 2 (USNRC)", # USNRC
 560                                   "Dossier 900 MWe AP9701 rev 2 (REV_2)", # REV_2
 561                                   "Lissage du modele ajuste (SDM_Lissage)", # SDM_Lissage
 562                                   "Grand developpement (GD_Cuve)"), # GD_Cuve
 563                          ),
 564
 565 #====
 566 # Definition des parametres selon le modele de fluence
 567 #====
 568
 569     # H1COEUR
 570     ZoneActiveCoeur_AltitudeSup    = SIMP ( statut="o", typ="R", defaut=-3.536,
 571                              fr="Cote supérieure de la zone active de coeur", ),
 572     # H2COEUR
 573     ZoneActiveCoeur_AltitudeInf    = SIMP ( statut="o", typ="R", defaut=-7.194,
 574                              fr="Cote inférieure de la zone active de coeur", ),
 575
 576     Reglementaire = BLOC ( condition = " ModeleFluence in ( 'Exponentiel sans revetement k=9.7 (Reglementaire)', ) ",
 577       # DTV : comment proposer une liste de valeurs, tout en proposant de fournir d'autres valeurs ?
 578       # fmax
 579       FluenceMax    = SIMP ( statut="o", typ="R", defaut=6.5,
 580                              fr="Fluence maximale en surface interne assimilée par la cuve (10^19 n/cm2)", ),
 581     ), # Fin BLOC Reglementaire
 582
 583     Cuve1D = BLOC ( condition = " ModeleFluence in ( 'Exponentiel sans revetement k=9.7 (Reglementaire CUVE1D)', ) ",
 584       # fmax
 585       FluenceMax    = SIMP ( statut="o", typ="R", defaut=6.5,
 586                              fr="Fluence maximale en surface interne assimilée par la cuve (10^19 n/cm2) ; HP-26/99/045 : p.31 : fluence max = 7.3/9.125/10/95", ),
 587     ), # Fin BLOC Cuve1D
 588
 589     France        = BLOC ( condition = " ModeleFluence in ( 'Exponentiel sans revetement k=12.7 (France)', ) ",
 590       # fmax
 591       FluenceMax    = SIMP ( statut="o", typ="R", defaut=6.5,
 592                              fr="Fluence maximale en surface interne assimilée par la cuve (10^19 n/cm2) ; HP-26/99/045 : p.31 : fluence max = 7.3/9.125/10/95", ),
 593       # KPFRANCE
 594       KPFrance      = SIMP ( statut="o", typ="R", defaut = 12.7,
 595                              fr="Paramètre exponentiel du modèle France", ),
 596     ), # Fin BLOC France
 597
 598     ValeurImposee = BLOC ( condition = " ModeleFluence in ( 'Exponentiel sans revetement k=0. (ValeurImposee)', ) ",
 599       # fmax
 600       FluenceMax    = SIMP ( statut="o", typ="R", defaut=6.5,
 601                              fr="Fluence maximale en surface interne assimilée par la cuve (10^19 n/cm2) ; HP-26/99/045 : p.31 : fluence max = 7.3/9.125/10/95", ),
 602     ), # Fin BLOC ValeurImposee
 603
 604     SDM           = BLOC ( condition = " ModeleFluence in ( 'Donnees francaises du palier CPY (SDM)', ) ",
 605       # fmax
 606       FluenceMax    = SIMP ( statut="o", typ="R", defaut=6.5,
 607                              fr="Fluence maximale en surface interne assimilée par la cuve (10^19 n/cm2) ; HP-26/99/045 : p.31 : fluence max = 7.3/9.125/10/95", ),
 608     ), # Fin BLOC SDM
 609
 610     USNRC         = BLOC ( condition = " ModeleFluence in ( 'Regulatory Guide 1.99 rev 2 (USNRC)', ) ",
 611       # fmax
 612       FluenceMax    = SIMP ( statut="o", typ="R", defaut=6.5,
 613                              fr="Fluence maximale en surface interne assimilée par la cuve (10^19 n/cm2) ; HP-26/99/045 : p.31 : fluence max = 7.3/9.125/10/95", ),
 614       KPUS          = SIMP ( statut="o", typ="R", defaut=9.4488,
 615                              fr="Paramètre exponentiel du modèle US", ),
 616     ), # Fin BLOC USNRC
 617
 618     REV_2         = BLOC ( condition = " ModeleFluence in ( 'Dossier 900 MWe AP9701 rev 2 (REV_2)', ) ",
 619       # fmax
 620       FluenceMax    = SIMP ( statut="o", typ="R", defaut=6.5,
 621                              fr="Fluence maximale en surface interne assimilée par la cuve (10^19 n/cm2) ; HP-26/99/045 : p.31 : fluence max = 7.3/9.125/10/95", ),
 622     ), # Fin BLOC REV_2
 623
 624     SDM_Lissage   = BLOC ( condition = " ModeleFluence in ( 'Lissage du modele ajuste (SDM_Lissage)', ) ",
 625       # fmax
 626       FluenceMax    = SIMP ( statut="o", typ="R", defaut=6.5,
 627                              fr="Fluence maximale en surface interne assimilée par la cuve (10^19 n/cm2)", ),
 628     ), # Fin BLOC SDM_Lissage
 629
 630     GrandeDev     = BLOC ( condition = " ModeleFluence in ( 'Donnees francaises du palier CPY ajustees par secteur angulaire (GrandeDev)', ) ",
 631       # fmax
 632       FluenceMax    = SIMP ( statut="o", typ="R", defaut=6.5,
 633                              fr="Fluence maximale en surface interne assimilée par la cuve (10^19 n/cm2)", ),
 634     ), # Fin BLOC GrandeDev
 635
 636     GD_Cuve       = BLOC ( condition = " ModeleFluence in ( 'Grand developpement (GD_Cuve)', ) ",
 637       # fmax
 638       FluenceMax    = SIMP ( statut="o", typ="R", defaut=6.5,
 639                              fr="Fluence maximale en surface interne assimilée par la cuve (10^19 n/cm2)", ),
 640       Coefficients  = Coef_Fluence(),
 641     ), # Fin BLOC GD_Cuve
 642
 643   ), # Fin FACT Fluence
 644
 645 #==========================
 646 # 4.2 Modeles d'irradiation
 647 #==========================
 648
 649   Irradiation = FACT ( statut="o",
 650
 651     # TYPEIRR INTO RTNDT, FLUENCE
 652     TypeIrradiation = SIMP ( statut = "o", typ = "TXM", defaut="RTndt de la cuve a l instant de l analyse",
 653                        fr = "Type d'irradiation",
 654                        into = ( "RTndt de la cuve a l instant de l analyse", # RTNDT
 655                                 "Modele d irradiation" ), # FLUENCE
 656                        ),
 657
 658 #====
 659 # Definition des parametres selon le type d'irradiation
 660 #====
 661
 662     IrradiationParValeur = BLOC ( condition = "TypeIrradiation=='RTndt de la cuve a l instant de l analyse'",
 663
 664       RTNDT = SIMP ( statut="o", typ="R", defaut=73.,
 665                      fr="RTNDT de la cuve à l'instant de l'analyse (°C)", ),
 666
 667     ), # Fin BLOC IrradiationParValeur
 668
 669     IrradiationParModele = BLOC ( condition = "TypeIrradiation=='Modele d irradiation'",
 670
 671       # MODELIRR
 672       ModeleIrradiation = SIMP ( statut="o", typ="TXM", defaut="Metal de Base : formule de FIM/FIS Houssin",
 673                                 fr="Modèle d'irradiation pour virole ou joint soudé",
 674                                 into=( "Metal de Base : formule de FIM/FIS Houssin", # HOUSSIN
 675                                        "Metal de Base : formule de FIM/FIS Persoz", # PERSOZ
 676                                        "Metal de Base : formule de FIM/FIS Lefebvre", # LEFEBVRE
 677                                        "Metal de Base : Regulatory Guide 1.00 rev 2", # USNRCmdb
 678                                        "Joint Soude : formulation de FIM/FIS Brillaud", # BRILLAUD
 679                                        "Joint Soude : Regulatory Guide 1.00 rev 2" ), # USNRCsoud
 680                                 ),
 681       Parametres_FIMFIS = BLOC ( condition = " ModeleIrradiation in ( 'Metal de Base : formule de FIM/FIS Houssin' , 'Metal de Base : formule de FIM/FIS Persoz', 'Metal de Base : formule de FIM/FIS Lefebvre', 'Joint Soude : formulation de FIM/FIS Brillaud', ) ",
 682         # CU
 683         TeneurCuivre         = SIMP ( statut="o", typ="R", defaut=0.,
 684                                       fr="Teneur en cuivre (%)", ),
 685         # CU_MESSAGE
 686         TeneurCuivre_mess    = SIMP ( statut="o", typ="TXM", defaut="NON",
 687                                       fr="Affichage ecran de la teneur en cuivre (%)",
 688                                       into=( "NON","OUI" ), ),
 689         # NI
 690         TeneurNickel         = SIMP ( statut="o", typ="R", defaut=0.,
 691                                       fr="Teneur en nickel (%)", ),
 692         # NI_MESSAGE
 693         TeneurNickel_mess    = SIMP ( statut="o", typ="TXM", defaut="NON",
 694                                       fr="Affichage ecran de la teneur en nickel (%)",
 695                                       into=( "NON","OUI" ), ),
 696         # P
 697         TeneurPhosphore      = SIMP ( statut="o", typ="R", defaut=0.,
 698                                       fr="Teneur en phosphore (%)", ),
 699         # P_MESSAGE
 700         TeneurPhosphore_mess = SIMP ( statut="o", typ="TXM", defaut="NON",
 701                                       fr="Affichage ecran de la teneur en phosphore (%)",
 702                                       into=( "NON","OUI" ), ),
 703         # RTimoy
 704         MoyenneRTndt         = SIMP ( statut="o", typ="R", defaut=0.,
 705                                       fr="Moyenne de RTNDT : virole C1 de cuve Chinon : mdb=>-17.°C et js=>42.°C (HT-56/05/038 : p.52)", ),
 706         # RTimoy_MESSAGE
 707         MoyenneRTndt_mess    = SIMP ( statut="o", typ="TXM", defaut="NON",
 708                                       fr="Affichage ecran de la moyenne de RTNDT",
 709                                       into=( "NON","OUI" ), ),
 710         # nbectDRTNDT
 711         NombreEcartTypeRTndt = SIMP ( statut="o", typ="R", defaut=2.,
 712                                       fr="Nombre d'écart-type par rapport à la moyenne de DRTNDT", ),
 713         # nbectDRTNDT_MESSAGE
 714         NombreEcartTypeRTndt_mess = SIMP ( statut="o", typ="TXM", defaut="NON",
 715                                       fr="Affichage ecran du nombre d'écart-type par rapport à la moyenne de DRTNDT",
 716                                       into=( "NON","OUI" ), ),
 717       ), # Fin BLOC Parametres_FIMFIS
 718
 719       Parametres_USNRC = BLOC ( condition = " ModeleIrradiation in ( 'Metal de Base : Regulatory Guide 1.00 rev 2' , 'Joint Soude : Regulatory Guide 1.00 rev 2', ) ",
 720         # CU
 721         TeneurCuivre         = SIMP ( statut="o", typ="R", defaut=0.,
 722                                       fr="Teneur en cuivre (%)", ),
 723         # CU_MESSAGE
 724         TeneurCuivre_mess    = SIMP ( statut="o", typ="TXM", defaut="NON",
 725                                       fr="Affichage ecran de la teneur en cuivre (%)",
 726                                       into=( "NON","OUI" ), ),
 727         # NI
 728         TeneurNickel         = SIMP ( statut="o", typ="R", defaut=0.,
 729                                       fr="Teneur en nickel (%)", ),
 730         # NI_MESSAGE
 731         TeneurNickel_mess    = SIMP ( statut="o", typ="TXM", defaut="NON",
 732                                       fr="Affichage ecran de la teneur en nickel (%)",
 733                                       into=( "NON","OUI" ), ),
 734         # RTimoy
 735         MoyenneRTndt         = SIMP ( statut="o", typ="R", defaut=0.,
 736                                       fr="Moyenne de RTNDT : virole C1 de cuve Chinon : mdb=>-17.°C et js=>42.°C (HT-56/05/038 : p.52)", ),
 737         # RTimoy_MESSAGE
 738         MoyenneRTndt_mess    = SIMP ( statut="o", typ="TXM", defaut="NON",
 739                                       fr="Affichage ecran de la moyenne de RTNDT",
 740                                       into=( "NON","OUI" ), ),
 741         # RTicov
 742         CoefVariationRTndt   = SIMP ( statut="o", typ="R", defaut=0.,
 743                                       fr="Coefficient de variation de la RTNDT initiale", ),
 744         # RTicov_MESSAGE
 745         CoefVariationRTndt_mess = SIMP ( statut="o", typ="TXM", defaut="NON",
 746                                          fr="Affichage ecran du coefficient de variation de la RTNDT initiale",
 747                                          into=( "NON","OUI" ), ),
 748         # USectDRT
 749         EcartTypeRTndt       = SIMP ( statut="o", typ="R", defaut=28.,
 750                                       fr="Ecart-type du décalage de RTNDT (°F) (28. pour js et 17. pour mdb)", ),
 751         # nbectDRTNDT
 752         NombreEcartTypeRTndt = SIMP ( statut="o", typ="R", defaut=2.,
 753                                       fr="Nombre d'écart-type par rapport à la moyenne de DRTNDT", ),
 754         # nbectDRTNDT_MESSAGE
 755         NombreEcartTypeRTndt_mess = SIMP ( statut="o", typ="TXM", defaut="NON",
 756                                       fr="Affichage ecran du nombre d'écart-type par rapport à la moyenne de DRTNDT",
 757                                       into=( "NON","OUI" ), ),
 758       ), # Fin BLOC Parametres_USNRC
 759
 760     ), # Fin BLOC IrradiationParModele
 761
 762   ), # Fin FACT Irradiation
 763
 764 #========================
 765 # 4.3 Modeles de tenacite
 766 #========================
 767
 768   Tenacite = FACT ( statut = "o",
 769
 770     # MODELKIC
 771     ModeleTenacite = SIMP ( statut="o", typ="TXM", defaut="RCC-M/ASME coefficient=2",
 772                     fr="Modèle de calcul de la ténacité à l'amorçage KIc",
 773                     into=( "RCC-M/ASME coefficient=2", # RCC-M
 774                            "RCC-M/ASME coefficient=2 CUVE1D", # RCC-M_simpl
 775                            "RCC-M/ASME coefficient=2.33 (Houssin)", # Houssin_RC
 776                            "RCC-M/ASME avec KI=KIpalier", # RCC-M_pal
 777                            "RCC-M/ASME avec KI~exponentiel", # RCC-M_exp
 778                            "Weibull basee sur la master cuve", # Wallin
 779                            "Weibull basee sur la master cuve (REME)", # REME
 780                            "Weibull n°1 (etude ORNL)", # ORNL
 781                            "Weibull n°2", # WEIB2
 782                            "Weibull n°3", # WEIB3
 783                            "Weibull generalisee", # WEIB-GEN
 784                            "Exponentielle n°1 (Frama)", # Frama
 785                            "Exponentielle n°2 (LOGWOLF)" ), # LOGWOLF
 786                     ),
 787
 788
 789 #====
 790 # Definition des parametres selon le modele de tenacité
 791 #====
 792
 793 # Modeles type RCC-M
 794
 795     KIc_RCCM = BLOC ( condition = " ModeleTenacite in ( 'RCC-M/ASME coefficient=2', 'RCC-M/ASME coefficient=2.33 (Houssin)', 'RCC-M/ASME avec KI=KIpalier', ) ",
 796
 797       # nbectKIc
 798       NbEcartType_MoyKIc       = SIMP ( statut="o", typ="R", defaut=-2.,
 799                                         fr = "Nombre d'écart-type par rapport à la moyenne de KIc (nb sigma) : det = -2 ", ),
 800       # nbectKIc_MESSAGE
 801       NbEcartType_MoyKIc_mess  = SIMP ( statut="o", typ="TXM", defaut="NON",
 802                                         fr = "Affichage ecran du nombre d'écart-type par rapport à la moyenne de KIc",
 803                                         into = ( "NON","OUI" ), ),
 804
 805       # KICPAL
 806       PalierDuctile_KIc        = SIMP ( statut="o", typ="R", defaut=195.,
 807                                         fr="Palier déterministe de K1c ou valeur du palier ductile plafonnant la courbe (en MPa(m^0.5)) ", ),
 808
 809       # KICCDV
 810       CoefficientVariation_KIc = SIMP ( statut="o", typ="R", defaut = 0.15,
 811                                         fr = "Coefficient de variation de la loi normale de K1c ", ),
 812
 813     ), # Fin BLOC KIc_RCCM
 814
 815     KIc_RCCM_exp = BLOC ( condition = " ModeleTenacite in ( 'RCC-M/ASME avec KI~exponentiel', ) ",
 816
 817       # nbectKIc
 818       NbEcartType_MoyKIc       = SIMP ( statut="o", typ="R", defaut=-2.,
 819                                         fr = "Nombre d'écart-type par rapport à la moyenne de KIc (nb sigma) : det = -2 ", ),
 820       # nbectKIc_MESSAGE
 821       NbEcartType_MoyKIc_mess  = SIMP ( statut="o", typ="TXM", defaut="NON",
 822                                         fr = "Affichage ecran du nombre d'écart-type par rapport à la moyenne de KIc",
 823                                         into = ( "NON","OUI" ), ),
 824
 825       # KICCDV
 826       CoefficientVariation_KIc = SIMP ( statut="o", typ="R", defaut = 0.15,
 827                                         fr = "Coefficient de variation de la loi normale de K1c ", ),
 828
 829     ), # Fin BLOC KIc_RCCM_exp
 830
 831 # Modeles type exponentiel (Frama, LOGWOLF)
 832
 833     KIc_Exponentielle = BLOC ( condition = " ModeleTenacite in ( 'Exponentielle n°1 (Frama)', 'Exponentielle n°2 (LOGWOLF)', ) ",
 834
 835       # nbectKIc
 836       NbEcartType_MoyKIc = SIMP ( statut="o", typ="R", defaut=-2.,
 837                                   fr="Nombre d'écart-type par rapport à la moyenne de KIc (nb sigma) : det = -2 ", ),
 838       # nbectKIc_MESSAGE
 839       NbEcartType_MoyKIc_mess  = SIMP ( statut="o", typ="TXM", defaut="NON",
 840                                         fr = "Affichage ecran du nombre d'écart-type par rapport à la moyenne de KIc",
 841                                         into = ( "NON","OUI" ), ),
 842
 843     ), # Fin BLOC KIc_Exponentielle
 844
 845 # Modeles type Weibull
 846
 847     KIc_Weibull = BLOC ( condition = " ModeleTenacite in ( 'Weibull basee sur la master cuve (REME)', 'Weibull n°1 (etude ORNL)', 'Weibull n°2', 'Weibull n°3', ) ",
 848
 849       # NBCARAC
 850       NBRE_CARACTERISTIQUE = SIMP ( statut="o", typ="TXM", defaut="QUANTILE",
 851                                         fr="Nombre caracteristique : ORDRE ou QUANTILE",
 852                                         into=( "ORDRE", "QUANTILE" ), ),
 853
 854       QUANTILE = BLOC ( condition = "NBRE_CARACTERISTIQUE=='QUANTILE'",
 855         # nbectKIc
 856         NbEcartType_MoyKIc = SIMP ( statut="o", typ="R", defaut=-2.,
 857                                     fr="Valeur caractéristique de KIc exprimée en nombre d'écart-type par rapport à la moyenne de KIc (nb sigma) : det = -2 ", ),
 858         # nbectKIc_MESSAGE
 859         NbEcartType_MoyKIc_mess  = SIMP ( statut="o", typ="TXM", defaut="NON",
 860                                           fr = "Affichage ecran du nombre d'écart-type par rapport à la moyenne de KIc",
 861                                           into = ( "NON","OUI" ), ),
 862       ), # Fin BLOC QUANTILE
 863
 864       ORDRE = BLOC ( condition = "NBRE_CARACTERISTIQUE=='ORDRE'",
 865         # fractKIc
 866         Fractile_KIc       = SIMP ( statut="o", typ="R", defaut=5.,
 867                                   fr="Valeur caractéristique de KIc exprimée en ordre de fractile (%) ", ),
 868         # fractKIc_MESSAGE
 869         Fractile_KIc_mess  = SIMP ( statut="o", typ="TXM", defaut="NON",
 870                                     fr="Affichage ecran de la valeur caractéristique de KIc exprimée en ordre de fractile (%) ",
 871                                     into = ( "NON","OUI" ), ),
 872       ), # Fin BLOC ORDRE
 873
 874     ), # Fin BLOC KIc_Weibull
 875
 876     KIc_MasterCuve = BLOC ( condition = " ModeleTenacite in ( 'Weibull basee sur la master cuve', ) ",
 877
 878       # NBCARAC
 879       NBRE_CARACTERISTIQUE = SIMP ( statut="o", typ="TXM", defaut="QUANTILE",
 880                                         fr="Nombre caracteristique : ORDRE ou QUANTILE",
 881                                         into=( "ORDRE", "QUANTILE" ), ),
 882
 883       QUANTILE = BLOC ( condition = "NBRE_CARACTERISTIQUE=='QUANTILE'",
 884         # nbectKIc
 885         NbEcartType_MoyKIc = SIMP ( statut="o", typ="R", defaut=-2.,
 886                                     fr="Valeur caractéristique de KIc exprimée en nombre d'écart-type par rapport à la moyenne de KIc (nb sigma) : det = -2 ", ),
 887         # nbectKIc_MESSAGE
 888         NbEcartType_MoyKIc_mess  = SIMP ( statut="o", typ="TXM", defaut="NON",
 889                                           fr = "Affichage ecran du nombre d'écart-type par rapport à la moyenne de KIc",
 890                                           into = ( "NON","OUI" ), ),
 891       ), # Fin BLOC QUANTILE
 892
 893       ORDRE = BLOC ( condition = "NBRE_CARACTERISTIQUE=='ORDRE'",
 894         # fractKIc
 895         Fractile_KIc       = SIMP ( statut="o", typ="R", defaut=5.,
 896                                   fr="Valeur caractéristique de KIc exprimée en ordre de fractile (%) ", ),
 897         # fractKIc_MESSAGE
 898         Fractile_KIc_mess  = SIMP ( statut="o", typ="TXM", defaut="NON",
 899                                     fr="Affichage ecran de la valeur caractéristique de KIc exprimée en ordre de fractile (%) ",
 900                                     into = ( "NON","OUI" ), ),
 901       ), # Fin BLOC ORDRE
 902
 903       # T0WALLIN
 904       Temperature_KIc100 = SIMP ( statut="o", typ="I", defaut=-27,
 905                                   fr="Paramètre T0 du modèle Wallin (°C) : température pour laquelle la téncité du matériau vaut en moyenne 100MPa.m^5", ),
 906
 907     ), # Fin BLOC KIc_MasterCuve
 908
 909     Weibull_Generalisee = BLOC ( condition = " ModeleTenacite in ( 'Weibull generalisee',) ",
 910
 911       # NBCARAC
 912       NBRE_CARACTERISTIQUE = SIMP ( statut="o", typ="TXM", defaut="QUANTILE",
 913                                         fr="Nombre caracteristique : ORDRE ou QUANTILE",
 914                                         into=( "ORDRE", "QUANTILE" ), ),
 915
 916       QUANTILE = BLOC ( condition = "NBRE_CARACTERISTIQUE=='QUANTILE'",
 917         # nbectKIc
 918         NbEcartType_MoyKIc = SIMP ( statut="o", typ="R", defaut=-2.,
 919                                     fr="Valeur caractéristique de KIc exprimée en nombre d'écart-type par rapport à la moyenne de KIc (nb sigma) : det = -2 ", ),
 920         # nbectKIc_MESSAGE
 921         NbEcartType_MoyKIc_mess  = SIMP ( statut="o", typ="TXM", defaut="NON",
 922                                           fr = "Affichage ecran du nombre d'écart-type par rapport à la moyenne de KIc",
 923                                           into = ( "NON","OUI" ), ),
 924       ), # Fin BLOC QUANTILE
 925
 926       ORDRE = BLOC ( condition = "NBRE_CARACTERISTIQUE=='ORDRE'",
 927         # fractKIc
 928         Fractile_KIc       = SIMP ( statut="o", typ="R", defaut=5.,
 929                                   fr="Valeur caractéristique de KIc exprimée en ordre de fractile (%) ", ),
 930         # fractKIc_MESSAGE
 931         Fractile_KIc_mess  = SIMP ( statut="o", typ="TXM", defaut="NON",
 932                                     fr="Affichage ecran de la valeur caractéristique de KIc exprimée en ordre de fractile (%) ",
 933                                     into = ( "NON","OUI" ), ),
 934       ), # Fin BLOC ORDRE
 935
 936       Coefficients       = Coef_WeibGen(),
 937
 938     ), # Fin BLOC Weibull_Generalisee
 939
 940     # ATTNCORRBETA - CORRIRWIN
 941     CorrectionPlastique  = SIMP ( statut="o", typ="TXM", defaut="Correction plastique BETA (pour DSR et defaut decale)",
 942                                   fr="Correction plastique dans le calcul du facteur d'intensité de contraintes",
 943                                   into=( "Correction plastique BETA (pour DSR et defaut decale)", # ATTNCORRBETA = NON
 944                                          "Correction plastique BETA attenuee (pour DSR et défaut decale)", # ATTNCORRBETA = OUI
 945                                          "Correction plastique IRWIN (pour defaut debouchant)" ), ), # CORRIRWIN = OUI
 946
 947     Fissure = BLOC ( condition = " ModeleTenacite in ( 'RCC-M/ASME coefficient=2', 'RCC-M/ASME coefficient=2.33 (Houssin)', 'RCC-M/ASME avec KI=KIpalier', 'RCC-M/ASME avec KI~exponentiel', )",
 948
 949       # ARRETFISSURE
 950       ArretDeFissure = SIMP ( statut="o", typ="TXM", defaut="NON",
 951                               fr="Prise en compte de l'arrêt de fissure",
 952                               into=( "OUI", "NON" ), ),
 953
 954       KIa_RCCM = BLOC ( condition = "ArretDeFissure=='OUI'",
 955         # INCRDEF
 956         IncrementTailleFissure   = SIMP ( statut="o", typ="R", defaut=0.005,
 957                                           fr="Incrément de la taille de fissure pour la propagation (en m)", ),
 958         # INCRDEF_MESSAGE
 959         IncrementTailleFissure_mess = SIMP ( statut="o", typ="TXM", defaut="NON",
 960                                              fr="Affichage ecran de l incrément de la taille de fissure pour la propagation (en m)",
 961                                              into = ("NON", "OUI"), ),
 962
 963         # nbectKIa
 964         NbEcartType_MoyKIa       = SIMP ( statut="o", typ="R", defaut=-2.,
 965                                           fr="Nombre d'écart-type par rapport à la moyenne de KIa (nb sigma) ", ),
 966
 967         # KIAPAL
 968         PalierDuctile_KIa        = SIMP ( statut="o", typ="R", defaut=195.,
 969                                           fr="Palier déterministe de K1a -ténacite à l'arrêt- (en MPa(m^0.5)) ", ),
 970         # KIACDV
 971         CoefficientVariation_KIa = SIMP ( statut="o", typ="R", defaut=0.10,
 972                                           fr="Coefficient de variation de la loi normale de K1a -ténacite à l'arrêt- ", ),
 973
 974       ), # Fin BLOC KIa_RCCM
 975
 976     ), # Fin BLOC Fissure
 977
 978   ), # Fin FACT Tenacite
 979
 980 ) # Fin PROC MODELES
 981
 982
 983 #==================
 984 # 5. Initialisation
 985 #==================
 986
 987 INITIALISATION = PROC ( nom = "INITIALISATION",
 988                         op = 68,
 989                         repetable = 'n',
 990                         fr = "Initialisation : instant initial, profils radiaux de température et contraintes",
 991
 992   TemperatureInitiale = FACT ( statut = "o",
 993
 994     ProfilRadial_TemperatureInitiale = SIMP ( statut="o", typ=Tuple(2), max="**",
 995                                               fr="Profil radial de la température initiale dans la cuve (en m : °C) ", ),
 996     Amont_TemperatureInitiale        = SIMP ( statut="o", typ="TXM", defaut="Continu",
 997                                               fr="Prolongation à la frontière amont",
 998                                               into=( 'Continu', 'Exclu', 'Lineaire' ), ),
 999     Aval_TemperatureInitiale         = SIMP ( statut="o", typ="TXM", defaut="Continu",
1000                                               fr="Prolongation à la frontière aval",
1001                                               into=( 'Continu', 'Exclu', 'Lineaire' ), ),
1002
1003   ), # Fin FACT TemperatureInitiale
1004
1005   ContraintesInitiales = FACT ( statut = "o",
1006
1007     ProfilRadial_ContraintesInitiales = SIMP ( statut="o", typ=Tuple(4), max="**",
1008                                                fr="Profil radial des contraintes radiale, circonférentielle et longitudinale dans la cuve (en m : xx : xx : xx) ", ),
1009     Amont_ContraintesInitiales        = SIMP ( statut="o", typ="TXM", defaut="Continu",
1010                                                fr="Prolongation à la frontière amont",
1011                                                into=( 'Continu', 'Exclu', 'Lineaire' ), ),
1012     Aval_ContraintesInitiales         = SIMP ( statut="o", typ="TXM", defaut="Continu",
1013                                                fr="Prolongation à la frontière aval",
1014                                                into=( 'Continu', 'Exclu', 'Lineaire' ), ),
1015
1016   ), # Fin FACT ContraintesInitiales
1017
1018   # INSTINIT
1019   InstantInitialisation = SIMP ( statut="o", typ="R", defaut = -1.,
1020                                  fr="Instant initial auquel sont définies la température, ainsi que les contraintes initiales (en s) ", ),
1021
1022 ) # Fin PROC INITIALISATION
1023
1024
1025 #==================================
1026 # 6. CARACTERISTIQUES DU REVETEMENT
1027 #==================================
1028
1029 REVETEMENT = PROC ( nom = "REVETEMENT",
1030                     op = 68,
1031                     repetable = 'n',
1032                     fr = "Caracteristiques du revêtement",
1033
1034   # KTHREV
1035   ConditionLimiteThermiqueREV = SIMP ( statut="o", typ="TXM", defaut="CHALEUR",
1036                                        fr="Option pour définir les caractéristiques du revêtement ",
1037                                        into=( "ENTHALPIE", "CHALEUR",),
1038                                        ),
1039
1040   EnthalpieREV = BLOC ( condition = "ConditionLimiteThermiqueREV=='ENTHALPIE'",
1041
1042     EnthalpieREV_Fct_Temperature = SIMP ( statut="o", typ=Tuple(2), max="**",
1043                                           fr="Température (°C) / enthalpie massique  (J/kg) ", ),
1044     Amont_EnthalpieREV           = SIMP ( statut="o", typ="TXM", defaut="Continu",
1045                                           fr="Prolongation à la frontière amont",
1046                                           into=( 'Continu', 'Exclu', 'Lineaire' ), ),
1047     Aval_EnthalpieREV            = SIMP ( statut="o", typ="TXM", defaut="Continu",
1048                                           fr="Prolongation à la frontière aval",
1049                                           into=( 'Continu', 'Exclu', 'Lineaire' ), ),
1050
1051   ), # Fin BLOC EnthalpieREV
1052
1053
1054   ChaleurREV = BLOC ( condition = "ConditionLimiteThermiqueREV=='CHALEUR'",
1055
1056     ChaleurREV_Fct_Temperature = SIMP ( statut="o", typ=Tuple(2), max="**",
1057                                         fr="Température (°C) / chaleur volumique (J/kg/K) ", ),
1058     Amont_ChaleurREV           = SIMP ( statut="o", typ="TXM", defaut="Continu",
1059                                         fr="Prolongation à la frontière amont",
1060                                         into=( 'Continu', 'Exclu', 'Lineaire' ), ),
1061     Aval_ChaleurREV            = SIMP ( statut="o", typ="TXM", defaut="Continu",
1062                                         fr="Prolongation à la frontière aval",
1063                                         into=( 'Continu', 'Exclu', 'Lineaire' ), ),
1064
1065   ), # Fin BLOC ChaleurREV
1066
1067   ConductiviteREV = FACT (statut = "o",
1068
1069     ConductiviteREV_Fct_Temperature = SIMP ( statut="o", typ=Tuple(2), max="**",
1070                                              fr="Température (°C) / conductivité thermique (W/m/°C) ", ),
1071     Amont_ConductiviteREV           = SIMP ( statut="o", typ="TXM", defaut="Continu",
1072                                              fr="Prolongation à la frontière amont",
1073                                              into=( 'Continu', 'Exclu', 'Lineaire' ), ),
1074     Aval_ConductiviteREV            = SIMP ( statut="o", typ="TXM", defaut="Continu",
1075                                              fr="Prolongation à la frontière aval",
1076                                              into=( 'Continu', 'Exclu', 'Lineaire' ), ),
1077
1078   ), # Fin FACT ConductiviteREV
1079
1080   ModuleYoungREV = FACT (statut = "o",
1081
1082     ModuleYoungREV_Fct_Temperature = SIMP ( statut="o", typ=Tuple(2), max="**",
1083                                             fr="Température (°C) / module d'Young (MPa) ", ),
1084     Amont_ModuleYoungREV           = SIMP ( statut="o", typ="TXM", defaut="Continu",
1085                                             fr="Prolongation à la frontière amont",
1086                                             into=( 'Continu', 'Exclu', 'Lineaire' ), ),
1087     Aval_ModuleYoungREV            = SIMP ( statut="o", typ="TXM", defaut="Continu",
1088                                             fr="Prolongation à la frontière aval",
1089                                             into=( 'Continu', 'Exclu', 'Lineaire' ), ),
1090
1091   ), # Fin FACT ModuleYoungREV
1092
1093   CoeffDilatThermREV = FACT (statut = "o",
1094
1095     CoeffDilatThermREV_Fct_Temperature = SIMP ( statut="o", typ=Tuple(2), max="**",
1096                                                 fr="Température (°C) / coefficient de dilatation thermique (°C-1) ", ),
1097     Amont_CoeffDilatThermREV           = SIMP ( statut="o", typ="TXM", defaut="Continu",
1098                                                 fr="Prolongation à la frontière amont",
1099                                                 into=( 'Continu', 'Exclu', 'Lineaire' ), ),
1100     Aval_CoeffDilatThermREV            = SIMP ( statut="o", typ="TXM", defaut="Continu",
1101                                                 fr="Prolongation à la frontière aval",
1102                                                 into=( 'Continu', 'Exclu', 'Lineaire' ), ),
1103
1104   ), # Fin FACT CoeffDilatThermREV
1105
1106   LimiteElasticiteREV = FACT (statut = "o",
1107
1108     LimiteElasticiteREV_Fct_Temperature = SIMP ( statut="o", typ=Tuple(2), max="**",
1109                                                  fr="Température (°C) / limite d'élasticite (MPa) ", ),
1110     Amont_LimiteElasticiteREV           = SIMP ( statut="o", typ="TXM", defaut="Continu",
1111                                                  fr="Prolongation à la frontière amont",
1112                                                  into=( 'Continu', 'Exclu', 'Lineaire' ), ),
1113     Aval_LimiteElasticiteREV            = SIMP ( statut="o", typ="TXM", defaut="Continu",
1114                                                  fr="Prolongation à la frontière aval",
1115                                                  into=( 'Continu', 'Exclu', 'Lineaire' ), ),
1116
1117   ), # Fin FACT LimiteElasticiteREV
1118
1119   AutresParametresREV = FACT (statut = "o",
1120
1121     # TREFREV
1122     TemperatureDeformationNulleREV   = SIMP ( statut="o", typ="R", defaut=20.,
1123                                               fr="Température de référence pour laquelle les déformations thermiques sont nulles (°C) ", ),
1124     # TDETREV
1125     TemperaturePourCoefDilatThermREV = SIMP ( statut="o", typ="R", defaut=287.,
1126                                               fr="Température de définition du coefficient de dilatation thermique (°C) ", ),
1127     # NUREV
1128     CoefficientPoissonREV            = SIMP ( statut="o", typ="R", defaut=0.3,
1129                                               fr="Coefficient de Poisson ", ),
1130
1131   ), # Fin FACT AutresParametresREV
1132
1133 ) # Fin PROC REVETEMENT
1134
1135
1136 #=====================================
1137 # 7. CARACTERISTIQUES DU METAL DE BASE
1138 #=====================================
1139
1140 METAL_BASE = PROC ( nom = "METAL_BASE",
1141                     op = 68,
1142                     repetable = 'n',
1143                     fr = "Caracteristiques du metal de base",
1144
1145   # KTHMDB
1146   ConditionLimiteThermiqueMDB = SIMP ( statut="o", typ="TXM", defaut="CHALEUR",
1147                                        fr="Option pour definir les caractéristiques du revêtement ",
1148                                        into=( "ENTHALPIE", "CHALEUR",), ),
1149
1150   EnthalpieMDB = BLOC ( condition = "ConditionLimiteThermiqueMDB=='ENTHALPIE'",
1151
1152     EnthalpieMDB_Fct_Temperature = SIMP ( statut="o", typ=Tuple(2), max="**",
1153                                           fr="Température (°C) / enthalpie massique (J/kg) ", ),
1154     Amont_EnthalpieMDB           = SIMP ( statut="o", typ="TXM", defaut="Continu",
1155                                           fr="Prolongation à la frontière amont",
1156                                           into=( 'Continu', 'Exclu', 'Lineaire' ), ),
1157     Aval_EnthalpieMDB            = SIMP ( statut="o", typ="TXM", defaut="Continu",
1158                                           fr="Prolongation à la frontière aval",
1159                                           into=( 'Continu', 'Exclu', 'Lineaire' ), ),
1160
1161   ), # Fin BLOC EnthalpieMDB
1162
1163   ChaleurMDB = BLOC ( condition = "ConditionLimiteThermiqueMDB=='CHALEUR'",
1164
1165     ChaleurMDB_Fct_Temperature = SIMP ( statut="o", typ=Tuple(2), max="**",
1166                                         fr="Température (°C) / chaleur volumique (J/kg/K) ", ),
1167     Amont_ChaleurMDB           = SIMP ( statut="o", typ="TXM", defaut="Continu",
1168                                         fr="Prolongation à la frontière amont",
1169                                         into=( 'Continu', 'Exclu', 'Lineaire' ), ),
1170     Aval_ChaleurMDB            = SIMP ( statut="o", typ="TXM", defaut="Continu",
1171                                         fr="Prolongation à la frontière aval",
1172                                         into=( 'Continu', 'Exclu', 'Lineaire' ), ),
1173
1174   ), # Fin BLOC ChaleurMDB
1175
1176   ConductiviteMDB = FACT ( statut = "o",
1177
1178     ConductiviteMDB_Fct_Temperature = SIMP ( statut="o", typ=Tuple(2), max="**",
1179                                              fr="Température (°C) / conductivité thermique (W/m/°C) ", ),
1180     Amont_ConductiviteMDB           = SIMP ( statut="o", typ="TXM", defaut="Continu",
1181                                              fr="Prolongation à la frontière amont",
1182                                              into=( 'Continu', 'Exclu', 'Lineaire' ), ),
1183     Aval_ConductiviteMDB            = SIMP ( statut="o", typ="TXM", defaut="Continu",
1184                                              fr="Prolongation à la frontière aval",
1185                                              into=( 'Continu', 'Exclu', 'Lineaire' ), ),
1186
1187   ), # Fin FACT ConductiviteMDB
1188
1189   ModuleYoungMDB = FACT ( statut="o",
1190
1191     ModuleYoungMDB_Fct_Temperature = SIMP ( statut="o", typ=Tuple(2), max="**",
1192                                             fr="Température (°C) / module d'Young (MPa) ", ),
1193     Amont_ModuleYoungMDB           = SIMP ( statut="o", typ="TXM", defaut="Continu",
1194                                             fr="Prolongation à la frontière amont",
1195                                             into=( 'Continu', 'Exclu', 'Lineaire' ), ),
1196     Aval_ModuleYoungMDB            = SIMP ( statut="o", typ="TXM", defaut="Continu",
1197                                             fr="Prolongation à la frontière aval",
1198                                             into=( 'Continu', 'Exclu', 'Lineaire' ), ),
1199
1200   ), # Fin FACT ModuleYoungMDB
1201
1202   CoeffDilatThermMDB = FACT ( statut="o",
1203
1204     CoeffDilatThermMDB_Fct_Temperature = SIMP ( statut="o", typ=Tuple(2), max="**",
1205                                                 fr="Température (°C) / coefficient de dilatation thermique (°C-1) ", ),
1206     Amont_CoeffDilatThermMDB           = SIMP ( statut="o", typ="TXM", defaut="Continu",
1207                                                 fr="Prolongation à la frontière amont",
1208                                                 into=( 'Continu', 'Exclu', 'Lineaire' ), ),
1209     Aval_CoeffDilatThermMDB            = SIMP ( statut="o", typ="TXM", defaut="Continu",
1210                                                 fr="Prolongation à la frontière aval",
1211                                                 into=( 'Continu', 'Exclu', 'Lineaire' ), ),
1212
1213   ), # Fin FACT CoeffDilatThermMDB
1214
1215   AutresParametresMDB = FACT ( statut = "o",
1216
1217     # TREFMDB
1218     TemperatureDeformationNulleMDB   = SIMP ( statut="o", typ="R", defaut=20.,
1219                                               fr="Température de référence pour laquelle les déformations thermiques sont nulles (°C) ", ),
1220     # TDETMDB
1221     TemperaturePourCoefDilatThermMDB = SIMP ( statut="o", typ="R", defaut=287.,
1222                                               fr="Température de définition du coefficient de dilatation thermique (°C) ", ),
1223     # NUMDB
1224     CoefficientPoissonMDB            = SIMP ( statut="o", typ="R", defaut=0.3,
1225                                               fr="Coefficient de Poisson ", ),
1226
1227   ), # Fin FACT TemperatureDeformationNulleMDB
1228
1229 ) # Fin PROC METAL_BASE
1230
1231
1232 #===============================
1233 # 8. TRANSITOIRE THERMOMECANIQUE
1234 #===============================
1235
1236 TRANSITOIRE = PROC ( nom = "TRANSITOIRE",
1237                      op = 68,
1238                      repetable = 'n',
1239                      fr = "Description du transitoire thermohydraulique",
1240
1241   Pression = FACT ( statut = "o",
1242
1243     ProfilTemporel_Pression = SIMP ( statut="o", typ=Tuple(2), max="**",
1244                                      fr = "Instant (s) / pression (MPa) ", ),
1245     Amont_Pression          = SIMP ( statut="o", typ="TXM", defaut="Continu",
1246                                      fr="Prolongation à la frontière amont",
1247                                      into=( 'Continu', 'Exclu', 'Lineaire' ), ),
1248     Aval_Pression           = SIMP ( statut="o", typ="TXM", defaut="Continu",
1249                                      fr="Prolongation à la frontière aval",
1250                                      into=( 'Continu', 'Exclu', 'Lineaire' ), ),
1251
1252   ), # FIN FACT Pression
1253
1254
1255   CL_thermique = FACT ( statut = "o",
1256
1257     # TYPCLTH
1258     TypeConditionLimiteThermique = SIMP ( statut="o", typ="TXM",
1259                                          fr="Type de condition thermique en paroi interne ",
1260                                          into=( "Temperature imposee en paroi", # TEMP_IMPO
1261                                                "Flux de chaleur impose en paroi", # FLUX_REP
1262                                                "Temperature imposee du fluide et coefficient echange", # ECHANGE
1263                                                "Debit massique et temperature d injection de securite", # DEBIT
1264                                                "Temperature imposee du fluide et debit d injection de securite", # TEMP_FLU
1265                                                "Courbe APRP"), # APRP
1266                                         ),
1267
1268     APRP = BLOC ( condition = " TypeConditionLimiteThermique in ( 'Courbe APRP', ) ",
1269
1270       # INSTANT1
1271       Instant_1              = SIMP ( statut="o", typ="R", defaut=21.,
1272                                     fr="Palier 2 à T1 : borne inférieure (en s) ", ),
1273       # INSTANT2
1274       Instant_2              = SIMP ( statut="o", typ="R", defaut=45.,
1275                                       fr="Palier 2 à T1 : borne supérieure (en s) ", ),
1276       # QACCU
1277       DebitAccumule          = SIMP ( statut="o", typ="R", defaut=2.3,
1278                                       fr="Debit accumule (en m3/h) ", ),
1279       # QIS
1280       DebitInjectionSecurite = SIMP ( statut="o", typ="R", defaut=0.375,
1281                                       fr="Debit injection securite (en m3/h) ", ),
1282       # TIS_MESSAGE
1283       TempInjectionSecurite_mess = SIMP ( statut="o", typ="TXM", defaut="NON",
1284                                       fr="Affichage ecran de la temperature injection securite",
1285                                       into = ( "NON", "OUI" ), ),
1286     ), # Fin BLOC APRP
1287
1288     TemperatureImposeeFluide     = BLOC ( condition = " TypeConditionLimiteThermique in ( 'Temperature imposee en paroi','Temperature imposee du fluide et coefficient echange', 'Temperature imposee du fluide et debit d injection de securite', 'Courbe APRP' ) ",
1289
1290       ProfilTemporel_TemperatureImposeeFluide = SIMP ( statut="o", typ=Tuple(2), max="**",
1291                                                        fr = "Instant (s) / Température imposée (°C) ", ),
1292       Amont_TemperatureImposeeFluide          = SIMP ( statut="o", typ="TXM", defaut="Continu",
1293                                                        fr="Prolongation à la frontière amont",
1294                                                        into=( 'Continu', 'Exclu', 'Lineaire' ), ),
1295       Aval_TemperatureImposeeFluide           = SIMP ( statut="o", typ="TXM", defaut="Continu",
1296                                                        fr="Prolongation à la frontière aval",
1297                                                        into=( 'Continu', 'Exclu', 'Lineaire' ), ),
1298
1299     ), # Fin BLOC TemperatureImposeeFluide
1300
1301
1302     FluxChaleur                  = BLOC ( condition = " TypeConditionLimiteThermique in ( 'Flux de chaleur impose en paroi', ) ",
1303
1304       ProfilTemporel_FluxChaleur    = SIMP ( statut="o", typ=Tuple(2), max="**",
1305                                            fr="Instant (s) / Flux de chaleur impose (W/m2) ", ),
1306       Amont_FluxChaleur             = SIMP ( statut="o", typ="TXM", defaut="Continu",
1307                                            fr="Prolongation à la frontière amont",
1308                                            into=( 'Continu', 'Exclu', 'Lineaire' ), ),
1309       Aval_FluxChaleur              = SIMP ( statut="o", typ="TXM", defaut="Continu",
1310                                            fr="Prolongation à la frontière aval",
1311                                            into=( 'Continu', 'Exclu', 'Lineaire' ), ),
1312
1313     ), # Fin BLOC FluxChaleur
1314
1315     CoefficientEchange          = BLOC ( condition = " TypeConditionLimiteThermique in ( 'Temperature imposee du fluide et coefficient echange', ) ",
1316
1317       ProfilTemporel_CoefficientEchange = SIMP ( statut="o", typ=Tuple(2), max="**",
1318                                                fr="Instant (s) / Coefficient d'échange (W/m2/K) ", ),
1319       Amont_CoefficientEchange          = SIMP ( statut="o", typ="TXM", defaut="Continu",
1320                                                fr="Prolongation à la frontière amont",
1321                                                into=( 'Continu', 'Exclu', 'Lineaire' ), ),
1322       Aval_CoefficientEchange           = SIMP ( statut="o", typ="TXM", defaut="Continu",
1323                                                fr="Prolongation à la frontière aval",
1324                                                into=( 'Continu', 'Exclu', 'Lineaire' ), ),
1325
1326     ), # Fin BLOC CoefficientEchange
1327
1328     DebitMassique               = BLOC ( condition = " TypeConditionLimiteThermique in ( 'Debit massique et temperature d injection de securite', ) ",
1329
1330       ProfilTemporel_DebitMassique = SIMP ( statut="o", typ=Tuple(2), max="**",
1331                                           fr="Instant (s) / Débit massique (kg/s) ", ),
1332       Amont_DebitMassique          = SIMP ( statut="o", typ="TXM", defaut="Continu",
1333                                           fr="Prolongation à la frontière amont",
1334                                           into=( 'Continu', 'Exclu', 'Lineaire' ), ),
1335       Aval_DebitMassique = SIMP ( statut="o", typ="TXM",
1336                                 fr="Prolongation à la frontière aval", defaut="Continu",
1337                                 into=( 'Continu', 'Exclu', 'Lineaire' ), ),
1338
1339     ), # Fin BLOC DebitMassique
1340
1341     TemperatureInjection        = BLOC ( condition = " TypeConditionLimiteThermique in ( 'Debit massique et temperature d injection de securite', ) ",
1342
1343       ProfilTemporel_TemperatureInjection = SIMP ( statut="o", typ=Tuple(2), max="**",
1344                                                  fr="Instant (s) / Température d'injection de sécurité  (°C) ", ),
1345       Amont_TemperatureInjection          = SIMP ( statut="o", typ="TXM", defaut="Continu",
1346                                                  fr="Prolongation à la frontière amont",
1347                                                  into=( 'Continu', 'Exclu', 'Lineaire' ), ),
1348       Aval_TemperatureInjection           = SIMP ( statut="o", typ = "TXM", defaut="Continu",
1349                                                  fr="Prolongation à la frontière aval",
1350                                                  into=( 'Continu', 'Exclu', 'Lineaire' ), ),
1351     ), # Fin BLOC TemperatureInjection
1352
1353     DebitInjection              = BLOC ( condition = " TypeConditionLimiteThermique in ( 'Temperature imposee du fluide et debit d injection de securite', 'Courbe APRP', ) ",
1354
1355       ProfilTemporel_DebitInjection = SIMP ( statut="o", typ=Tuple(2), max="**",
1356                                            fr="Instant (s) / Débit d'injection de sécurité (kg/s) ", ),
1357       Amont_DebitInjection          = SIMP ( statut="o", typ="TXM", defaut="Continu",
1358                                            fr="Prolongation à la frontière amont",
1359                                            into=( 'Continu', 'Exclu', 'Lineaire' ), ),
1360       Aval_DebitInjection           = SIMP ( statut="o", typ="TXM", defaut="Continu",
1361                                            fr="Prolongation à la frontière aval",
1362                                            into=( 'Continu', 'Exclu', 'Lineaire' ), ),
1363
1364     ), # Fin BLOC DebitInjection
1365
1366     Vestale = BLOC ( condition = " TypeConditionLimiteThermique in ( 'Temperature imposee du fluide et debit d injection de securite', 'Debit massique et temperature d injection de securite', 'Courbe APRP', ) ",
1367
1368       # DH
1369       DiametreHydraulique             = SIMP ( statut="o", typ="R", defaut=0.3816,
1370                                              fr="Diamètre hydraulique (m) ", ),
1371       # DH_MESSAGE
1372       DiametreHydraulique_mess        = SIMP ( statut="o", typ="TXM", defaut="NON",
1373                                              fr="Affichage ecran du diamètre hydraulique (m) ",
1374                                              into = ( "NON", "OUI" ), ),
1375       # SECTION
1376       SectionEspaceAnnulaire          = SIMP ( statut="o", typ="R", defaut=0.21712,
1377                                              fr="Section espace annulaire (m2) ", ),
1378       # SECTION_MESSAGE
1379       SectionEspaceAnnulaire_mess     = SIMP ( statut="o", typ="TXM", defaut="NON",
1380                                              fr="Affichage ecran de la section espace annulaire (m2) ",
1381                                              into = ( "NON", "OUI" ), ),
1382       # DELTA
1383       HauteurCaracConvectionNaturelle = SIMP ( statut="o", typ="R", defaut=6.,
1384                                              fr="Hauteur caractéristique convection naturelle (m) ", ),
1385       # DELTA_MESSAGE
1386       HauteurCaracConvectionNaturelle_mess = SIMP ( statut="o", typ="TXM", defaut="NON",
1387                                                   fr="Affichage ecran de la hauteur caractéristique convection naturelle (m) ",
1388                                                   into = ( "NON", "OUI" ), ),
1389       # EPS
1390       CritereConvergenceRelative      = SIMP ( statut="o", typ="R", defaut=0.00001,
1391                                              fr="Critère convergence relative (-) ", ),
1392       # COEFVESTALE
1393       CoefficientsVestale             = SIMP ( statut="o", typ="TXM", defaut="NON",
1394                                              fr="Application des coefficients de Vestale",
1395                                              into=( 'OUI', 'NON' ), ),
1396
1397     ), # Fin BLOC Vestale
1398
1399     Creare = BLOC ( condition = " TypeConditionLimiteThermique in ( 'Debit massique et temperature d injection de securite', ) ",
1400
1401       # VM
1402       VolumeMelange_CREARE           = SIMP ( statut="o", typ="R", defaut=14.9,
1403                                             fr = "Volume de mélange CREARE (m3) ", ),
1404       # VM_MESSAGE
1405       VolumeMelange_CREARE_mess      = SIMP ( statut="o", typ="TXM", defaut="NON",
1406                                             fr = "Affichage ecran du volume de mélange CREARE (m3) ",
1407                                              into=( 'OUI', 'NON' ), ),
1408       # T0
1409       TemperatureInitiale_CREARE     = SIMP ( statut="o", typ="R", defaut=250.,
1410                                             fr="Température initiale CREARE (°C) ", ),
1411       # T0_MESSAGE
1412       TemperatureInitiale_CREARE_mess = SIMP ( statut="o", typ="TXM", defaut="NON",
1413                                              fr="Affichage ecran de la température initiale CREARE (°C) ",
1414                                              into=( 'OUI', 'NON' ), ),
1415       # SE
1416       SurfaceEchange_FluideStructure = SIMP ( statut="o", typ="R", defaut=0.,
1417                                             fr="Surface d'échange fluide/structure (m2) ", ),
1418       # SE_MESSAGE
1419       SurfaceEchange_FluideStructure_mess = SIMP ( statut="o", typ="TXM", defaut="NON",
1420                                                  fr="Affichage ecran de la surface d'échange fluide/structure (m2) ",
1421                                                  into=( 'OUI', 'NON' ), ),
1422
1423     ), # Fin BLOC Creare
1424
1425   ), # FIN FACT CL_thermique
1426
1427 ) # Fin PROC TRANSITOIRE