Minicode/cata_saturne2.py

   1 # -*- coding: utf-8 -*-
   2 # debut entete
   3 import Accas
   4 from Accas import AU_MOINS_UN,UN_PARMI,EXCLUS,PRESENT_PRESENT
   5 from Accas import ENSEMBLE,PRESENT_ABSENT
   6 from Accas import JDC_CATA,NIVEAU
   7 from Accas import OPER,PROC,MACRO,FORM
   8 from Accas import SIMP,FACT,BLOC
   9 from Accas import EVAL,PARAMETRE,COMMENTAIRE,PARAMETRE_EVAL,COMMANDE_COMM
  10 from Accas import ASSD,CO,GEOM,fonction,geom,assd
  11 #
  12 __version__="$Name:  $"
  13 __Id__="$Id: cata_saturne2.py,v 1.2 2003/10/16 14:31:22 eficas Exp $"
  14 #
  15
  16 import ops
  17
  18 JdC = JDC_CATA(code='SATURNE',
  19                execmodul=None,
  20                regles = (AU_MOINS_UN('CALCUL_SATURNE'),),
  21               )
  22
  23 # P. RASCLE MMN
  24 # remarques diverses sur le catalogue Saturne
  25 # - dans les blocs, il faut au moins un mot clé de statut obligatoire
  26 # probleme de rafraichissement des blocs dépendants quand la valeur d'un mot cle global (ITURB) passe de 1 à 0
  27
  28 class sonde(ASSD):pass
  29 class varsca(ASSD):pass
  30 class flusca(ASSD):pass
  31 class varpre(ASSD):pass
  32 class varvitx(ASSD):pass
  33 class varvity(ASSD):pass
  34 class varvitz(ASSD):pass
  35 class eturb(ASSD):pass
  36 class dturb(ASSD):pass
  37 class tsr11(ASSD):pass
  38 class tsr22(ASSD):pass
  39 class tsr33(ASSD):pass
  40 class tsr12(ASSD):pass
  41 class tsr13(ASSD):pass
  42 class tsr23(ASSD):pass
  43 class resti(ASSD):pass
  44
  45 # fin entete
  46
  47 INCLUDE=MACRO(nom="INCLUDE",op=-1,docu="U4.13.01-e",
  48              fr="Débranchement vers un fichier de commandes secondaires",
  49              sd_prod=ops.INCLUDE,op_init=ops.INCLUDE_context,fichier_ini=1,
  50          UNITE = SIMP(statut='o',typ='I'),
  51          INFO  = SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
  52 );
  53
  54 POURSUITE=MACRO(nom="POURSUITE",op=0,repetable='n',fr="Poursuite d une étude",
  55                 docu="U4.11.03-f1",sd_prod = ops.POURSUITE,
  56                 op_init = ops.POURSUITE_context,fichier_ini = 1,
  57          HDF             =FACT(statut='f',min=1,max=1,
  58            FICHIER         =SIMP(fr="nom du fichier hdf associe",statut='o',typ='TXM'),
  59          ),
  60          PAR_LOT         =SIMP(fr="mode de traitement des commandes",statut='f',typ='TXM',
  61                            into=("OUI","NON"),defaut="OUI"),
  62          BASE            =FACT(fr="définition des parmètres associés aux bases JEVEUX",
  63                                statut='f',min=1,max=3,
  64            FICHIER         =SIMP(fr="nom de la base",statut='o',typ='TXM'),
  65            TITRE           =SIMP(statut='f',typ='TXM'),
  66            CAS             =SIMP(statut='f',typ='TXM'),
  67            NMAX_ENRE       =SIMP(fr="nombre maximum d enregistrements",statut='f',typ='I'),
  68            LONG_ENRE       =SIMP(fr="longueur des enregistrements",statut='f',typ='I'),
  69            LONG_REPE       =SIMP(fr="longueur du répertoire",statut='f',typ='I'),
  70          ),
  71          IMPRESSION      =FACT(statut='f',min=1,max=3,
  72            FICHIER         =SIMP(statut='o',typ='TXM'),
  73            UNITE           =SIMP(statut='o',typ='I'),
  74          ),
  75          CATALOGUE       =FACT(statut='f',min=1,max=10,
  76            FICHIER         =SIMP(statut='o',typ='TXM'),
  77            TITRE           =SIMP(statut='f',typ='TXM'),
  78            UNITE           =SIMP(statut='f',typ='I'),
  79          ),
  80          DEBUG           =FACT(fr="option de déboggage reservée aux développeurs",
  81                                statut='f',min=1,max=1,
  82            JXVERI          =SIMP(fr="vérifie l intégrité de la segmentation mémoire",
  83                                  statut='f',typ='TXM',into=('OUI','NON'),defaut='NON'),
  84            JEVEUX          =SIMP(fr="force les déchargement sur disque",
  85                                  statut='f',typ='TXM',into=('OUI','NON'),defaut='NON'),
  86            ENVIMA          =SIMP(fr="imprime les valeurs définies dans ENVIMA",
  87                                  statut='f',typ='TXM',into=('TES',)),
  88          ),
  89          MEMOIRE         =FACT(fr="mode de gestion mémoire utilisé",statut='f',min=1,max=1,
  90            GESTION         =SIMP(statut='f',typ='TXM',into=('COMPACTE','RAPIDE'),defaut='RAPIDE'),
  91            TYPE_ALLOCATION =SIMP(statut='f',typ='I',into=(1,2,3,4),defaut=1),
  92            TAILLE          =SIMP(statut='f',typ='I'),
  93            TAILLE_BLOC     =SIMP(statut='f',typ='R',defaut=800.),
  94            PARTITION       =SIMP(statut='f',typ='R' ),
  95          ),
  96          CODE            =FACT("définition d un nom pour l'esemble d'une étude",
  97                                statut='f',min=1,max=1,
  98            NOM             =SIMP(statut='o',typ='TXM'),
  99            UNITE           =SIMP(statut='f',typ='I',defaut=15),
 100          ),
 101 )  ;
 102
 103 FORMULE = FORM( nom='FORMULE',op=-5,sd_prod=fonction,
 104                 fr="Définition d une fonction",reentrant = 'n',
 105                 regles=(UN_PARMI('REEL','ENTIER','COMPLEXE'),),
 106                 REEL = SIMP(typ = 'shell',max=1),
 107                 ENTIER = SIMP(typ = 'shell',max=1),
 108                 COMPLEXE = SIMP(typ = 'shell',max=1),
 109 ) ;
 110
 111 DEFI_SONDE = OPER(nom="DEFI_SONDE",op= 1,sd_prod=sonde,
 112      docu="U2D1",
 113      fr="définition d'une sonde historique avec ses coordonnées",
 114                   X = SIMP(statut ='o',typ='R',
 115                            fr="coordonnée X de la sonde"),
 116                   Y = SIMP(statut ='o',typ='R',
 117                            fr="coordonnée Y de la sonde"),
 118                   Z = SIMP(statut ='o',typ='R',
 119                            fr="coordonnée Z de la sonde")
 120                  );
 121
 122 def defi_scala_prod(**args):
 123    return varsca
 124
 125 DEFI_SCALA = OPER(nom="DEFI_SCALA",op=2,sd_prod=defi_scala_prod,
 126 fr="définition d'une inconnue scalaire avec ses paramètres physico numériques",
 127                   NUMERIC = FACT(statut='o',max=01,
 128                                 fr="propriétés numériques liées à l'inconnue",
 129                                     ICONV  = SIMP(statut='o',typ='I',defaut=1,into=(0,1),
 130                                                   fr="indicateur de convection"),
 131                                     ISTAT  = SIMP(statut='f',typ='I',defaut=1,into=(0,1),
 132                                                   fr="présence terme instationnaire dans les matrices"),
 133                                     IDIFF  = SIMP(statut='f',typ='I',defaut=1,into=(0,1),
 134                                                   fr="diffusion"),
 135                                     IDIRCL = SIMP(statut='f',typ='I',defaut=1,into=(0,1),
 136                                                   fr="décalage du spectre des valeurs propres en l'absence de Dirichlet"),
 137                                     SCHEMA_CONVECTIF = BLOC(condition="ICONV == 1", fr ="ordre du schéma convectif",
 138                                                             BLENCV = SIMP(statut='o',typ='R',defaut=0,val_min=0,val_max=1,
 139                                                                           fr="pourcentage schéma convectif au second ordre"),
 140                                                             ISCHCV = SIMP(statut='f',typ='I',defaut=0,into=(0,1),
 141                                                                           fr ="type schéma convectif au second ordre 1 : centré")
 142                                                             ),
 143                                     NITMAX = SIMP(statut='f',typ='I',defaut=10000,val_min=0,
 144                                                   fr="nombre max d'itération pour la résolution des systèmes linéaires"),
 145                                     EPSILO = SIMP(statut='f',typ='R',defaut=1.e-4,val_min=0,
 146                                                   fr="précision relative pour la résolution des systèmes linéaires"),
 147                                     IMLIGR = SIMP(statut='f',typ='I',defaut=-999,into=(-999,-1,0,1),
 148                                                   fr="type de limitation des gradients"),
 149                                     NSWRGR = SIMP(statut='f',typ='I',defaut=100,val_min=0,
 150                                                   fr="reconstruction des gradients"),
 151                                     NSWRSM = SIMP(statut='f',typ='I',defaut=2,val_min=0,
 152                                                   fr="nombre d'itérations pour la reconstruction des seconds membres"),
 153                                     CLIMGR = SIMP(statut='f',typ='R',defaut=1.5,val_min=0,
 154                                                   fr="facteur de limitation des gradients"),
 155                                     EPSRGR = SIMP(statut='f',typ='R',defaut=1.e-5,val_min=0,
 156                                                   fr="précision relative pour la reconstruction itérative des gradients")
 157                                  ),
 158                   RESTITUE = FACT(statut='o',max=01,
 159                                   fr = "Description de la grandeur restituée",
 160                                   NOMVAR = SIMP(statut='o',typ='TXM',fr = "nom de la grandeur restituée"),
 161                                   ICHRVR = SIMP(statut='f',typ='I',defaut=-999,into=(-999,0,1),
 162                                                 fr = "post-traitement (-999 : le code décide ; 0 : non ; 1 : oui)"),
 163                                   ILISVR = SIMP(statut='f',typ='I',defaut=-999,into=(-999,0,1),
 164                                                 fr = "impression dans CR exécution (-999 : le code décide ; 0 : non ; 1 : oui)"),
 165                                   IHISVR = SIMP(statut='f',typ=sonde,min=0,max='**',
 166                                                 fr = "inventaire des sondes utilisées pour la grandeur scalaire")
 167                                   ),
 168                   MODELE = FACT(statut='o',max=01,
 169                                 fr="modélisation",
 170                                 VALREF = SIMP(statut='o',typ='R',fr="valeur de référence (température, masse volumique...)"),
 171                                 SCAMIN = SIMP(statut='f',typ='R',defaut=1.e12,fr="valeur minimale pour le scalaire"),
 172                                 SCAMAX = SIMP(statut='f',typ='R',defaut=-1.e12,fr="valeur maximale pour le scalaire"),
 173                                 SIGMAS = SIMP(statut='f',typ='R',val_min=0,defaut=1,fr="nombre de Prandtl pour le scalaire"),
 174                                 VISLS0 = SIMP(statut='o',typ='R',fr="valeur de référence de la viscosité associée au scalaire"),
 175                                 IVISLS = SIMP(statut='f',typ='I',defaut=0,into=(0,1),fr="viscosité variable")
 176                                 )
 177                  );
 178
 179 DEFI_FLUSCA = OPER(nom="DEFI_FLUSCA",op=2,sd_prod=flusca,fr="définition des fluctuations d'une inconnue scalaire avec ses paramètres physico numériques",
 180                   VARFL  = SIMP(statut='o',typ=varsca,fr="scalaire associé au calcul de la variance des fluctuations"),
 181                   NUMERIC = FACT(statut='o',max=01,
 182                                 fr="propriétés numériques liées à l'inconnue",
 183                                     ICONV  = SIMP(statut='o',typ='I',defaut=1,into=(0,1),
 184                                                   fr="indicateur de convection"),
 185                                     ISTAT  = SIMP(statut='f',typ='I',defaut=1,into=(0,1),
 186                                                   fr="présence terme instationnaire dans les matrices"),
 187                                     IDIFF  = SIMP(statut='f',typ='I',defaut=1,into=(0,1),
 188                                                   fr="diffusion"),
 189                                     IDIRCL = SIMP(statut='f',typ='I',defaut=1,into=(0,1),
 190                                                   fr="décalage du spectre des valeurs propres en l'absence de Dirichlet"),
 191                                     SCHEMA_CONVECTIF = BLOC(condition="ICONV == 1", fr ="ordre du schéma convectif",
 192                                                             BLENCV = SIMP(statut='o',typ='R',defaut=0,val_min=0,val_max=1,
 193                                                                           fr="pourcentage schéma convectif au second ordre"),
 194                                                             ISCHCV = SIMP(statut='f',typ='I',defaut=0,into=(0,1),
 195                                                                           fr ="type schéma convectif au second ordre 1 : centré")
 196                                                             ),
 197                                     NITMAX = SIMP(statut='f',typ='I',defaut=10000,val_min=0,
 198                                                   fr="nombre max d'itération pour la résolution des systèmes linéaires"),
 199                                     EPSILO = SIMP(statut='f',typ='R',defaut=1.e-4,val_min=0,
 200                                                   fr="précision relative pour la résolution des systèmes linéaires"),
 201                                     IMLIGR = SIMP(statut='f',typ='I',defaut=-999,into=(-999,-1,0,1),
 202                                                   fr="type de limitation des gradients"),
 203                                     NSWRGR = SIMP(statut='f',typ='I',defaut=100,val_min=0,
 204                                                   fr="reconstruction des gradients"),
 205                                     NSWRSM = SIMP(statut='f',typ='I',defaut=2,val_min=0,
 206                                                   fr="nombre d'itérations pour la reconstruction des seconds membres"),
 207                                     CLIMGR = SIMP(statut='f',typ='R',defaut=1.5,val_min=0,
 208                                                   fr="facteur de limitation des gradients"),
 209                                     EPSRGR = SIMP(statut='f',typ='R',defaut=1.e-5,val_min=0,
 210                                                   fr="précision relative pour la reconstruction itérative des gradients")
 211                                  ),
 212                   RESTITUE = FACT(statut='o',max=01,
 213                                   fr = "Description de la grandeur restituée",
 214                                   NOMVAR = SIMP(statut='o',typ='TXM',fr = "nom de la grandeur restituée"),
 215                                   ICHRVR = SIMP(statut='f',typ='I',defaut=-999,into=(-999,0,1),
 216                                                 fr = "post-traitement (-999 : le code décide ; 0 : non ; 1 : oui)"),
 217                                   ILISVR = SIMP(statut='f',typ='I',defaut=-999,into=(-999,0,1),
 218                                                 fr = "impression dans CR exécution (-999 : le code décide ; 0 : non ; 1 : oui)"),
 219                                   IHISVR = SIMP(statut='f',typ=sonde,min=0,max='**',
 220                                                 fr = "inventaire des sondes utilisées pour la grandeur scalaire")
 221                                   ),
 222                   MODELE = FACT(statut='o',max=01,
 223                                 fr="modélisation",
 224                                 VALREF = SIMP(statut='o',typ='R',fr="valeur de référence (température, masse volumique...)"),
 225                                 SCAMIN = SIMP(statut='f',typ='R',defaut=1.e12,fr="valeur minimale pour le scalaire"),
 226                                 SCAMAX = SIMP(statut='f',typ='R',defaut=-1.e12,fr="valeur maximale pour le scalaire"),
 227                                 SIGMAS = SIMP(statut='f',typ='R',val_min=0,defaut=1,fr="nombre de Prandtl pour le scalaire"),
 228                                 VISLS0 = SIMP(statut='o',typ='R',fr="valeur de référence de la viscosité associée au scalaire"),
 229                                 IVISLS = SIMP(statut='f',typ='I',defaut=0,into=(0,1),fr="viscosité variable"),
 230                                 RVARFL = SIMP(statut='o',typ='R',val_min=0,defaut=0.8,
 231                                                        fr="nombre de Prandtl pour la variance des fluctuations du scalaire")
 232                                 )
 233                   );
 234
 235 DEFI_PRESSION = OPER(nom="DEFI_PRESSION",op=2,sd_prod=varpre,fr="définition del'inconnue pression avec ses paramètres physico numériques",
 236                    NUMERIC = FACT(statut='o',max=01,
 237                                   fr="propriétés de l'équation de pression",
 238                                   ICONV  = SIMP(statut='o',typ='I',defaut=0,into=(0,1),
 239                                                 fr="indicateur de convection"),
 240                                   ISTAT  = SIMP(statut='f',typ='I',defaut=0,into=(0,1),
 241                                                 fr="présence terme instationnaire dans les matrices"),
 242                                   IDIFF  = SIMP(statut='f',typ='I',defaut=1,into=(0,1),
 243                                                 fr="diffusion"),
 244                                   IDIRCL = SIMP(statut='f',typ='I',defaut=0,into=(0,1),
 245                                                 fr="décalage du spectre des valeurs propres en l'absence de Dirichlet"),
 246                                   SCHEMA_CONVECTIF = BLOC(condition="ICONV == 1", fr ="ordre du schéma convectif",
 247                                                           BLENCV = SIMP(statut='o',typ='R',defaut=0,val_min=0,val_max=1,
 248                                                                         fr="pourcentage schéma convectif au second ordre"),
 249                                                           ISCHCV = SIMP(statut='f',typ='I',defaut=0,into=(0,1),
 250                                                                         fr ="type schéma convectif au second ordre 1 : centré")
 251                                                           ),
 252                                   NITMAX = SIMP(statut='f',typ='I',defaut=10000,val_min=0,
 253                                                 fr="nombre max d'itération pour la résolution des systèmes linéaires"),
 254                                   EPSILO = SIMP(statut='f',typ='R',defaut=1.e-4,val_min=0,
 255                                                 fr="précision relative pour la résolution des systèmes linéaires"),
 256                                   IMLIGR = SIMP(statut='f',typ='I',defaut=-999,into=(-999,-1,0,1),
 257                                                 fr="type de limitation des gradients"),
 258                                   NSWRGR = SIMP(statut='f',typ='I',defaut=100,val_min=0,
 259                                                 fr="reconstruction des gradients"),
 260                                   NSWRSM = SIMP(statut='f',typ='I',defaut=2,val_min=0,
 261                                                 fr="nombre d'itérations pour la reconstruction des seconds membres"),
 262                                   CLIMGR = SIMP(statut='f',typ='R',defaut=1.5,val_min=0,
 263                                                 fr="facteur de limitation des gradients"),
 264                                   EPSRGR = SIMP(statut='f',typ='R',defaut=1.e-5,val_min=0,
 265                                                 fr="précision relative pour la reconstruction itérative des gradients")
 266                                   ),
 267                   RESTITUE = FACT(statut='o',max=01,
 268                                   fr = "Description de la grandeur restituée",
 269                                   NOMVAR = SIMP(statut='o',typ='TXM',fr = "nom de la grandeur restituée",
 270                                                 defaut="Pression"),
 271                                   ICHRVR = SIMP(statut='f',typ='I',defaut=-999,into=(-999,0,1),
 272                                                 fr = "post-traitement (-999 : le code décide ; 0 : non ; 1 : oui)"),
 273                                   ILISVR = SIMP(statut='f',typ='I',defaut=-999,into=(-999,0,1),
 274                                                 fr = "impression dans CR exécution (-999 : le code décide ; 0 : non ; 1 : oui)"),
 275                                   IHISVR = SIMP(statut='f',typ=sonde,min=0,max='**',
 276                                                 fr = "inventaire des sondes utilisées pour la grandeur")
 277                                   ),
 278                   MODELE = FACT(statut='o',max=01,
 279                                 fr="modélisation",
 280                                 VALREF = SIMP(statut='o',typ='R',fr="valeur de référence (température, masse volumique...)"),
 281                                 SCAMIN = SIMP(statut='f',typ='R',defaut=1.e12,fr="valeur minimale pour la grandeur"),
 282                                 SCAMAX = SIMP(statut='f',typ='R',defaut=-1.e12,fr="valeur maximale pour la grandeur"),
 283                                 SIGMAS = SIMP(statut='f',typ='R',val_min=0,defaut=1,fr="nombre de Prandtl pour la grandeur"),
 284                                 VISLS0 = SIMP(statut='o',typ='R',fr="valeur de référence de la viscosité associée à la grandeur"),
 285                                 IVISLS = SIMP(statut='f',typ='I',defaut=0,into=(0,1),fr="viscosité variable")
 286                                 )
 287                     );
 288
 289 DEFI_VITX = OPER(nom="DEFI_VITX",op=2,sd_prod=varvitx,fr="définition de l'inconnue vitesse X avec ses paramètres physico numériques",
 290                    NUMERIC = FACT(statut='o',max=01,
 291                                   fr="propriétés de l'équation de vitesse X",
 292                                   ICONV  = SIMP(statut='o',typ='I',defaut=1,into=(0,1),
 293                                                 fr="indicateur de convection"),
 294                                   ISTAT  = SIMP(statut='f',typ='I',defaut=1,into=(0,1),
 295                                                 fr="présence terme instationnaire dans les matrices"),
 296                                   IDIFF  = SIMP(statut='f',typ='I',defaut=1,into=(0,1),
 297                                                 fr="diffusion"),
 298                                   IDIRCL = SIMP(statut='f',typ='I',defaut=1,into=(0,1),
 299                                                 fr="décalage du spectre des valeurs propres en l'absence de Dirichlet"),
 300                                   SCHEMA_CONVECTIF = BLOC(condition="ICONV == 1", fr ="ordre du schéma convectif",
 301                                                           BLENCV = SIMP(statut='o',typ='R',defaut=0,val_min=0,val_max=1,
 302                                                                         fr="pourcentage schéma convectif au second ordre"),
 303                                                           ISCHCV = SIMP(statut='f',typ='I',defaut=0,into=(0,1),
 304                                                                         fr ="type schéma convectif au second ordre 1 : centré")
 305                                                           ),
 306                                   NITMAX = SIMP(statut='f',typ='I',defaut=10000,val_min=0,
 307                                                 fr="nombre max d'itération pour la résolution des systèmes linéaires"),
 308                                   EPSILO = SIMP(statut='f',typ='R',defaut=1.e-4,val_min=0,
 309                                                 fr="précision relative pour la résolution des systèmes linéaires"),
 310                                   IMLIGR = SIMP(statut='f',typ='I',defaut=-999,into=(-999,-1,0,1),
 311                                                 fr="type de limitation des gradients"),
 312                                   NSWRGR = SIMP(statut='f',typ='I',defaut=100,val_min=0,
 313                                                 fr="reconstruction des gradients"),
 314                                   NSWRSM = SIMP(statut='f',typ='I',defaut=2,val_min=0,
 315                                                 fr="nombre d'itérations pour la reconstruction des seconds membres"),
 316                                   CLIMGR = SIMP(statut='f',typ='R',defaut=1.5,val_min=0,
 317                                                 fr="facteur de limitation des gradients"),
 318                                   EPSRGR = SIMP(statut='f',typ='R',defaut=1.e-5,val_min=0,
 319                                                 fr="précision relative pour la reconstruction itérative des gradients")
 320                                   ),
 321                   RESTITUE = FACT(statut='o',max=01,
 322                                   fr = "Description de la grandeur restituée",
 323                                   NOMVAR = SIMP(statut='o',typ='TXM',fr = "nom de la grandeur restituée",
 324                                                 defaut="vitesse_u1"),
 325                                   ICHRVR = SIMP(statut='f',typ='I',defaut=-999,into=(-999,0,1),
 326                                                 fr = "post-traitement (-999 : le code décide ; 0 : non ; 1 : oui)"),
 327                                   ILISVR = SIMP(statut='f',typ='I',defaut=-999,into=(-999,0,1),
 328                                                 fr = "impression dans CR exécution (-999 : le code décide ; 0 : non ; 1 : oui)"),
 329                                   IHISVR = SIMP(statut='f',typ=sonde,min=0,max='**',
 330                                                 fr = "inventaire des sondes utilisées pour la grandeur")
 331                                   ),
 332                   MODELE = FACT(statut='o',max=01,
 333                                 fr="modélisation",
 334                                 VALREF = SIMP(statut='o',typ='R',fr="valeur de référence (température, masse volumique...)"),
 335                                 SCAMIN = SIMP(statut='f',typ='R',defaut=1.e12,fr="valeur minimale pour la grandeur"),
 336                                 SCAMAX = SIMP(statut='f',typ='R',defaut=-1.e12,fr="valeur maximale pour la grandeur"),
 337                                 SIGMAS = SIMP(statut='f',typ='R',val_min=0,defaut=1,fr="nombre de Prandtl pour la grandeur"),
 338                                 VISLS0 = SIMP(statut='o',typ='R',fr="valeur de référence de la viscosité associée à la grandeur"),
 339                                 IVISLS = SIMP(statut='f',typ='I',defaut=0,into=(0,1),fr="viscosité variable")
 340                                 )
 341                 );
 342
 343 DEFI_VITY = OPER(nom="DEFI_VITY",op=2,sd_prod=varvity,fr="définition de l'inconnue vitesse Y avec ses paramètres physico numériques",
 344                    NUMERIC = FACT(statut='o',max=01,
 345                                   fr="propriétés de l'équation de vitesse Y",
 346                                   ICONV  = SIMP(statut='o',typ='I',defaut=1,into=(0,1),
 347                                                 fr="indicateur de convection"),
 348                                   ISTAT  = SIMP(statut='f',typ='I',defaut=1,into=(0,1),
 349                                                 fr="présence terme instationnaire dans les matrices"),
 350                                   IDIFF  = SIMP(statut='f',typ='I',defaut=1,into=(0,1),
 351                                                 fr="diffusion"),
 352                                   IDIRCL = SIMP(statut='f',typ='I',defaut=1,into=(0,1),
 353                                                 fr="décalage du spectre des valeurs propres en l'absence de Dirichlet"),
 354                                   SCHEMA_CONVECTIF = BLOC(condition="ICONV == 1", fr ="ordre du schéma convectif",
 355                                                           BLENCV = SIMP(statut='o',typ='R',defaut=0,val_min=0,val_max=1,
 356                                                                         fr="pourcentage schéma convectif au second ordre"),
 357                                                           ISCHCV = SIMP(statut='f',typ='I',defaut=0,into=(0,1),
 358                                                                         fr ="type schéma convectif au second ordre 1 : centré")
 359                                                           ),
 360                                   NITMAX = SIMP(statut='f',typ='I',defaut=10000,val_min=0,
 361                                                 fr="nombre max d'itération pour la résolution des systèmes linéaires"),
 362                                   EPSILO = SIMP(statut='f',typ='R',defaut=1.e-4,val_min=0,
 363                                                 fr="précision relative pour la résolution des systèmes linéaires"),
 364                                   IMLIGR = SIMP(statut='f',typ='I',defaut=-999,into=(-999,-1,0,1),
 365                                                 fr="type de limitation des gradients"),
 366                                   NSWRGR = SIMP(statut='f',typ='I',defaut=100,val_min=0,
 367                                                 fr="reconstruction des gradients"),
 368                                   NSWRSM = SIMP(statut='f',typ='I',defaut=2,val_min=0,
 369                                                 fr="nombre d'itérations pour la reconstruction des seconds membres"),
 370                                   CLIMGR = SIMP(statut='f',typ='R',defaut=1.5,val_min=0,
 371                                                 fr="facteur de limitation des gradients"),
 372                                   EPSRGR = SIMP(statut='f',typ='R',defaut=1.e-5,val_min=0,
 373                                                 fr="précision relative pour la reconstruction itérative des gradients")
 374                                   ),
 375                   RESTITUE = FACT(statut='o',max=01,
 376                                   fr = "Description de la grandeur restituée",
 377                                   NOMVAR = SIMP(statut='o',typ='TXM',fr = "nom de la grandeur restituée",
 378                                                 defaut="vitesse_v1"),
 379                                   ICHRVR = SIMP(statut='f',typ='I',defaut=-999,into=(-999,0,1),
 380                                                 fr = "post-traitement (-999 : le code décide ; 0 : non ; 1 : oui)"),
 381                                   ILISVR = SIMP(statut='f',typ='I',defaut=-999,into=(-999,0,1),
 382                                                 fr = "impression dans CR exécution (-999 : le code décide ; 0 : non ; 1 : oui)"),
 383                                   IHISVR = SIMP(statut='f',typ=sonde,min=0,max='**',
 384                                                 fr = "inventaire des sondes utilisées pour la grandeur")
 385                                   ),
 386                   MODELE = FACT(statut='o',max=01,
 387                                 fr="modélisation",
 388                                 VALREF = SIMP(statut='o',typ='R',fr="valeur de référence (température, masse volumique...)"),
 389                                 SCAMIN = SIMP(statut='f',typ='R',defaut=1.e12,fr="valeur minimale pour la grandeur"),
 390                                 SCAMAX = SIMP(statut='f',typ='R',defaut=-1.e12,fr="valeur maximale pour la grandeur"),
 391                                 SIGMAS = SIMP(statut='f',typ='R',val_min=0,defaut=1,fr="nombre de Prandtl pour la grandeur"),
 392                                 VISLS0 = SIMP(statut='o',typ='R',fr="valeur de référence de la viscosité associée à la grandeur"),
 393                                 IVISLS = SIMP(statut='f',typ='I',defaut=0,into=(0,1),fr="viscosité variable")
 394                                 )
 395                 );
 396
 397 DEFI_VITZ = OPER(nom="DEFI_VITZ",op=2,sd_prod=varvitz,fr="définition de l'inconnue vitesse Z avec ses paramètres physico numériques",
 398                    NUMERIC = FACT(statut='o',max=01,
 399                                   fr="propriétés de l'équation de vitesse Z",
 400                                   ICONV  = SIMP(statut='o',typ='I',defaut=1,into=(0,1),
 401                                                 fr="indicateur de convection"),
 402                                   ISTAT  = SIMP(statut='f',typ='I',defaut=1,into=(0,1),
 403                                                 fr="présence terme instationnaire dans les matrices"),
 404                                   IDIFF  = SIMP(statut='f',typ='I',defaut=1,into=(0,1),
 405                                                 fr="diffusion"),
 406                                   IDIRCL = SIMP(statut='f',typ='I',defaut=1,into=(0,1),
 407                                                 fr="décalage du spectre des valeurs propres en l'absence de Dirichlet"),
 408                                   SCHEMA_CONVECTIF = BLOC(condition="ICONV == 1", fr ="ordre du schéma convectif",
 409                                                           BLENCV = SIMP(statut='o',typ='R',defaut=0,val_min=0,val_max=1,
 410                                                                         fr="pourcentage schéma convectif au second ordre"),
 411                                                           ISCHCV = SIMP(statut='f',typ='I',defaut=0,into=(0,1),
 412                                                                         fr ="type schéma convectif au second ordre 1 : centré")
 413                                                           ),
 414                                   NITMAX = SIMP(statut='f',typ='I',defaut=10000,val_min=0,
 415                                                 fr="nombre max d'itération pour la résolution des systèmes linéaires"),
 416                                   EPSILO = SIMP(statut='f',typ='R',defaut=1.e-4,val_min=0,
 417                                                 fr="précision relative pour la résolution des systèmes linéaires"),
 418                                   IMLIGR = SIMP(statut='f',typ='I',defaut=-999,into=(-999,-1,0,1),
 419                                                 fr="type de limitation des gradients"),
 420                                   NSWRGR = SIMP(statut='f',typ='I',defaut=100,val_min=0,
 421                                                 fr="reconstruction des gradients"),
 422                                   NSWRSM = SIMP(statut='f',typ='I',defaut=2,val_min=0,
 423                                                 fr="nombre d'itérations pour la reconstruction des seconds membres"),
 424                                   CLIMGR = SIMP(statut='f',typ='R',defaut=1.5,val_min=0,
 425                                                 fr="facteur de limitation des gradients"),
 426                                   EPSRGR = SIMP(statut='f',typ='R',defaut=1.e-5,val_min=0,
 427                                                 fr="précision relative pour la reconstruction itérative des gradients")
 428                                   ),
 429                   RESTITUE = FACT(statut='o',max=01,
 430                                   fr = "Description de la grandeur restituée",
 431                                   NOMVAR = SIMP(statut='o',typ='TXM',fr = "nom de la grandeur restituée",
 432                                                 defaut="vitesse_w1"),
 433                                   ICHRVR = SIMP(statut='f',typ='I',defaut=-999,into=(-999,0,1),
 434                                                 fr = "post-traitement (-999 : le code décide ; 0 : non ; 1 : oui)"),
 435                                   ILISVR = SIMP(statut='f',typ='I',defaut=-999,into=(-999,0,1),
 436                                                 fr = "impression dans CR exécution (-999 : le code décide ; 0 : non ; 1 : oui)"),
 437                                   IHISVR = SIMP(statut='f',typ=sonde,min=0,max='**',
 438                                                 fr = "inventaire des sondes utilisées pour la grandeur")
 439                                   ),
 440                   MODELE = FACT(statut='o',max=01,
 441                                 fr="modélisation",
 442                                 VALREF = SIMP(statut='o',typ='R',fr="valeur de référence (température, masse volumique...)"),
 443                                 SCAMIN = SIMP(statut='f',typ='R',defaut=1.e12,fr="valeur minimale pour la grandeur"),
 444                                 SCAMAX = SIMP(statut='f',typ='R',defaut=-1.e12,fr="valeur maximale pour la grandeur"),
 445                                 SIGMAS = SIMP(statut='f',typ='R',val_min=0,defaut=1,fr="nombre de Prandtl pour la grandeur"),
 446                                 VISLS0 = SIMP(statut='o',typ='R',fr="valeur de référence de la viscosité associée à la grandeur"),
 447                                 IVISLS = SIMP(statut='f',typ='I',defaut=0,into=(0,1),fr="viscosité variable"),
 448                                 )
 449                 );
 450
 451
 452 DEFI_ETURB = OPER(nom="DEFI_ETURB",op=2,sd_prod=eturb,fr="définition de l'inconnue energie turbulente k-eps avec ses paramètres physico numériques",
 453                   NUMERIC = FACT(statut='o',max=01,
 454                                     fr="propriétés numériques liées à l'inconnue",
 455                                     ICONV  = SIMP(statut='o',typ='I',defaut=1,into=(0,1),
 456                                                   fr="indicateur de convection"),
 457                                     ISTAT  = SIMP(statut='f',typ='I',defaut=1,into=(0,1),
 458                                                   fr="présence terme instationnaire dans les matrices"),
 459                                     IDIFF  = SIMP(statut='f',typ='I',defaut=1,into=(0,1),
 460                                                   fr="diffusion"),
 461                                     IDIRCL = SIMP(statut='f',typ='I',defaut=1,into=(0,1),
 462                                                   fr="décalage du spectre des valeurs propres en l'absence de Dirichlet"),
 463                                     SCHEMA_CONVECTIF = BLOC(condition="ICONV == 1", fr ="ordre du schéma convectif",
 464                                                             BLENCV = SIMP(statut='o',typ='R',defaut=0,val_min=0,val_max=1,
 465                                                                           fr="pourcentage schéma convectif au second ordre"),
 466                                                             ISCHCV = SIMP(statut='f',typ='I',defaut=0,into=(0,1),
 467                                                                           fr ="type schéma convectif au second ordre 1 : centré")
 468                                                             ),
 469                                     NITMAX = SIMP(statut='f',typ='I',defaut=10000,val_min=0,
 470                                                   fr="nombre max d'itération pour la résolution des systèmes linéaires"),
 471                                     EPSILO = SIMP(statut='f',typ='R',defaut=1.e-4,val_min=0,
 472                                                   fr="précision relative pour la résolution des systèmes linéaires"),
 473                                     IMLIGR = SIMP(statut='f',typ='I',defaut=-999,into=(-999,-1,0,1),
 474                                                   fr="type de limitation des gradients"),
 475                                     NSWRGR = SIMP(statut='f',typ='I',defaut=100,val_min=0,
 476                                                   fr="reconstruction des gradients"),
 477                                     NSWRSM = SIMP(statut='f',typ='I',defaut=2,val_min=0,
 478                                                   fr="nombre d'itérations pour la reconstruction des seconds membres"),
 479                                     CLIMGR = SIMP(statut='f',typ='R',defaut=1.5,val_min=0,
 480                                                   fr="facteur de limitation des gradients"),
 481                                     EPSRGR = SIMP(statut='f',typ='R',defaut=1.e-5,val_min=0,
 482                                                   fr="précision relative pour la reconstruction itérative des gradients")
 483                                  ),
 484                   RESTITUE = FACT(statut='o',max=01,
 485                                   fr = "Description de la grandeur restituée",
 486                                   NOMVAR = SIMP(statut='o',typ='TXM',fr = "nom de la grandeur restituée"),
 487                                   ICHRVR = SIMP(statut='f',typ='I',defaut=-999,into=(-999,0,1),
 488                                                 fr = "post-traitement (-999 : le code décide ; 0 : non ; 1 : oui)"),
 489                                   ILISVR = SIMP(statut='f',typ='I',defaut=-999,into=(-999,0,1),
 490                                                 fr = "impression dans CR exécution (-999 : le code décide ; 0 : non ; 1 : oui)"),
 491                                   IHISVR = SIMP(statut='f',typ=sonde,min=0,max='**',
 492                                                 fr = "inventaire des sondes utilisées pour la grandeur scalaire")
 493                                   ),
 494                   MODELE = FACT(statut='o',max=01,
 495                                 fr="modélisation",
 496                                 VALREF = SIMP(statut='o',typ='R',fr="valeur de référence (température, masse volumique...)"),
 497                                 SCAMIN = SIMP(statut='f',typ='R',defaut=1.e12,fr="valeur minimale pour le scalaire"),
 498                                 SCAMAX = SIMP(statut='f',typ='R',defaut=-1.e12,fr="valeur maximale pour le scalaire"),
 499                                 SIGMAS = SIMP(statut='f',typ='R',val_min=0,defaut=1,fr="nombre de Prandtl pour le scalaire"),
 500                                 VISLS0 = SIMP(statut='o',typ='R',fr="valeur de référence de la viscosité associée au scalaire"),
 501                                 IVISLS = SIMP(statut='f',typ='I',defaut=0,into=(0,1),fr="viscosité variable")
 502                                 )
 503                  );
 504
 505 DEFI_DTURB = OPER(nom="DEFI_DTURB",op=2,sd_prod=dturb,fr="définition de l'inconnue dissipation turbulente k-eps avec ses paramètres physico numériques",
 506                   NUMERIC = FACT(statut='o',max=01,
 507                                 fr="propriétés numériques liées à l'inconnue",
 508                                     ICONV  = SIMP(statut='o',typ='I',defaut=1,into=(0,1),
 509                                                   fr="indicateur de convection"),
 510                                     ISTAT  = SIMP(statut='f',typ='I',defaut=1,into=(0,1),
 511                                                   fr="présence terme instationnaire dans les matrices"),
 512                                     IDIFF  = SIMP(statut='f',typ='I',defaut=1,into=(0,1),
 513                                                   fr="diffusion"),
 514                                     IDIRCL = SIMP(statut='f',typ='I',defaut=1,into=(0,1),
 515                                                   fr="décalage du spectre des valeurs propres en l'absence de Dirichlet"),
 516                                     SCHEMA_CONVECTIF = BLOC(condition="ICONV == 1", fr ="ordre du schéma convectif",
 517                                                             BLENCV = SIMP(statut='o',typ='R',defaut=0,val_min=0,val_max=1,
 518                                                                           fr="pourcentage schéma convectif au second ordre"),
 519                                                             ISCHCV = SIMP(statut='f',typ='I',defaut=0,into=(0,1),
 520                                                                           fr ="type schéma convectif au second ordre 1 : centré")
 521                                                             ),
 522                                     NITMAX = SIMP(statut='f',typ='I',defaut=10000,val_min=0,
 523                                                   fr="nombre max d'itération pour la résolution des systèmes linéaires"),
 524                                     EPSILO = SIMP(statut='f',typ='R',defaut=1.e-4,val_min=0,
 525                                                   fr="précision relative pour la résolution des systèmes linéaires"),
 526                                     IMLIGR = SIMP(statut='f',typ='I',defaut=-999,into=(-999,-1,0,1),
 527                                                   fr="type de limitation des gradients"),
 528                                     NSWRGR = SIMP(statut='f',typ='I',defaut=100,val_min=0,
 529                                                   fr="reconstruction des gradients"),
 530                                     NSWRSM = SIMP(statut='f',typ='I',defaut=2,val_min=0,
 531                                                   fr="nombre d'itérations pour la reconstruction des seconds membres"),
 532                                     CLIMGR = SIMP(statut='f',typ='R',defaut=1.5,val_min=0,
 533                                                   fr="facteur de limitation des gradients"),
 534                                     EPSRGR = SIMP(statut='f',typ='R',defaut=1.e-5,val_min=0,
 535                                                   fr="précision relative pour la reconstruction itérative des gradients")
 536                                  ),
 537                   RESTITUE = FACT(statut='o',max=01,
 538                                   fr = "Description de la grandeur restituée",
 539                                   NOMVAR = SIMP(statut='o',typ='TXM',fr = "nom de la grandeur restituée"),
 540                                   ICHRVR = SIMP(statut='f',typ='I',defaut=-999,into=(-999,0,1),
 541                                                 fr = "post-traitement (-999 : le code décide ; 0 : non ; 1 : oui)"),
 542                                   ILISVR = SIMP(statut='f',typ='I',defaut=-999,into=(-999,0,1),
 543                                                 fr = "impression dans CR exécution (-999 : le code décide ; 0 : non ; 1 : oui)"),
 544                                   IHISVR = SIMP(statut='f',typ=sonde,min=0,max='**',
 545                                                 fr = "inventaire des sondes utilisées pour la grandeur scalaire")
 546                                   ),
 547                   MODELE = FACT(statut='o',max=01,
 548                                 fr="modélisation",
 549                                 VALREF = SIMP(statut='o',typ='R',fr="valeur de référence (température, masse volumique...)"),
 550                                 SCAMIN = SIMP(statut='f',typ='R',defaut=1.e12,fr="valeur minimale pour le scalaire"),
 551                                 SCAMAX = SIMP(statut='f',typ='R',defaut=-1.e12,fr="valeur maximale pour le scalaire"),
 552                                 SIGMAS = SIMP(statut='f',typ='R',val_min=0,defaut=1,fr="nombre de Prandtl pour le scalaire"),
 553                                 VISLS0 = SIMP(statut='o',typ='R',fr="valeur de référence de la viscosité associée au scalaire"),
 554                                 IVISLS = SIMP(statut='f',typ='I',defaut=0,into=(0,1),fr="viscosité variable")
 555                                 )
 556                  );
 557
 558 DEFI_TSR11 = OPER(nom="DEFI_TSR11",op=2,sd_prod=tsr11,fr="définition de l'inconnue tension Reynolds R11 Rij-eps avec ses paramètres physico numériques",
 559                   NUMERIC = FACT(statut='o',max=01,
 560                                 fr="propriétés numériques liées à l'inconnue",
 561                                     ICONV  = SIMP(statut='o',typ='I',defaut=1,into=(0,1),
 562                                                   fr="indicateur de convection"),
 563                                     ISTAT  = SIMP(statut='f',typ='I',defaut=1,into=(0,1),
 564                                                   fr="présence terme instationnaire dans les matrices"),
 565                                     IDIFF  = SIMP(statut='f',typ='I',defaut=1,into=(0,1),
 566                                                   fr="diffusion"),
 567                                     IDIRCL = SIMP(statut='f',typ='I',defaut=1,into=(0,1),
 568                                                   fr="décalage du spectre des valeurs propres en l'absence de Dirichlet"),
 569                                     SCHEMA_CONVECTIF = BLOC(condition="ICONV == 1", fr ="ordre du schéma convectif",
 570                                                             BLENCV = SIMP(statut='o',typ='R',defaut=0,val_min=0,val_max=1,
 571                                                                           fr="pourcentage schéma convectif au second ordre"),
 572                                                             ISCHCV = SIMP(statut='f',typ='I',defaut=0,into=(0,1),
 573                                                                           fr ="type schéma convectif au second ordre 1 : centré")
 574                                                             ),
 575                                     NITMAX = SIMP(statut='f',typ='I',defaut=10000,val_min=0,
 576                                                   fr="nombre max d'itération pour la résolution des systèmes linéaires"),
 577                                     EPSILO = SIMP(statut='f',typ='R',defaut=1.e-4,val_min=0,
 578                                                   fr="précision relative pour la résolution des systèmes linéaires"),
 579                                     IMLIGR = SIMP(statut='f',typ='I',defaut=-999,into=(-999,-1,0,1),
 580                                                   fr="type de limitation des gradients"),
 581                                     NSWRGR = SIMP(statut='f',typ='I',defaut=100,val_min=0,
 582                                                   fr="reconstruction des gradients"),
 583                                     NSWRSM = SIMP(statut='f',typ='I',defaut=2,val_min=0,
 584                                                   fr="nombre d'itérations pour la reconstruction des seconds membres"),
 585                                     CLIMGR = SIMP(statut='f',typ='R',defaut=1.5,val_min=0,
 586                                                   fr="facteur de limitation des gradients"),
 587                                     EPSRGR = SIMP(statut='f',typ='R',defaut=1.e-5,val_min=0,
 588                                                   fr="précision relative pour la reconstruction itérative des gradients")
 589                                  ),
 590                   RESTITUE = FACT(statut='o',max=01,
 591                                   fr = "Description de la grandeur restituée",
 592                                   NOMVAR = SIMP(statut='o',typ='TXM',fr = "nom de la grandeur restituée"),
 593                                   ICHRVR = SIMP(statut='f',typ='I',defaut=-999,into=(-999,0,1),
 594                                                 fr = "post-traitement (-999 : le code décide ; 0 : non ; 1 : oui)"),
 595                                   ILISVR = SIMP(statut='f',typ='I',defaut=-999,into=(-999,0,1),
 596                                                 fr = "impression dans CR exécution (-999 : le code décide ; 0 : non ; 1 : oui)"),
 597                                   IHISVR = SIMP(statut='f',typ=sonde,min=0,max='**',
 598                                                 fr = "inventaire des sondes utilisées pour la grandeur scalaire")
 599                                   ),
 600                   MODELE = FACT(statut='o',max=01,
 601                                 fr="modélisation",
 602                                 VALREF = SIMP(statut='o',typ='R',fr="valeur de référence (température, masse volumique...)"),
 603                                 SCAMIN = SIMP(statut='f',typ='R',defaut=1.e12,fr="valeur minimale pour le scalaire"),
 604                                 SCAMAX = SIMP(statut='f',typ='R',defaut=-1.e12,fr="valeur maximale pour le scalaire"),
 605                                 SIGMAS = SIMP(statut='f',typ='R',val_min=0,defaut=1,fr="nombre de Prandtl pour le scalaire"),
 606                                 VISLS0 = SIMP(statut='o',typ='R',fr="valeur de référence de la viscosité associée au scalaire"),
 607                                 IVISLS = SIMP(statut='f',typ='I',defaut=0,into=(0,1),fr="viscosité variable")
 608                                 )
 609                  );
 610
 611 DEFI_TSR22 = OPER(nom="DEFI_TSR22",op=2,sd_prod=tsr11,fr="définition de l'inconnue tension Reynolds R22 Rij-eps avec ses paramètres physico numériques",
 612                   NUMERIC = FACT(statut='o',max=01,
 613                                 fr="propriétés numériques liées à l'inconnue",
 614                                     ICONV  = SIMP(statut='o',typ='I',defaut=1,into=(0,1),
 615                                                   fr="indicateur de convection"),
 616                                     ISTAT  = SIMP(statut='f',typ='I',defaut=1,into=(0,1),
 617                                                   fr="présence terme instationnaire dans les matrices"),
 618                                     IDIFF  = SIMP(statut='f',typ='I',defaut=1,into=(0,1),
 619                                                   fr="diffusion"),
 620                                     IDIRCL = SIMP(statut='f',typ='I',defaut=1,into=(0,1),
 621                                                   fr="décalage du spectre des valeurs propres en l'absence de Dirichlet"),
 622                                     SCHEMA_CONVECTIF = BLOC(condition="ICONV == 1", fr ="ordre du schéma convectif",
 623                                                             BLENCV = SIMP(statut='o',typ='R',defaut=0,val_min=0,val_max=1,
 624                                                                           fr="pourcentage schéma convectif au second ordre"),
 625                                                             ISCHCV = SIMP(statut='f',typ='I',defaut=0,into=(0,1),
 626                                                                           fr ="type schéma convectif au second ordre 1 : centré")
 627                                                             ),
 628                                     NITMAX = SIMP(statut='f',typ='I',defaut=10000,val_min=0,
 629                                                   fr="nombre max d'itération pour la résolution des systèmes linéaires"),
 630                                     EPSILO = SIMP(statut='f',typ='R',defaut=1.e-4,val_min=0,
 631                                                   fr="précision relative pour la résolution des systèmes linéaires"),
 632                                     IMLIGR = SIMP(statut='f',typ='I',defaut=-999,into=(-999,-1,0,1),
 633                                                   fr="type de limitation des gradients"),
 634                                     NSWRGR = SIMP(statut='f',typ='I',defaut=100,val_min=0,
 635                                                   fr="reconstruction des gradients"),
 636                                     NSWRSM = SIMP(statut='f',typ='I',defaut=2,val_min=0,
 637                                                   fr="nombre d'itérations pour la reconstruction des seconds membres"),
 638                                     CLIMGR = SIMP(statut='f',typ='R',defaut=1.5,val_min=0,
 639                                                   fr="facteur de limitation des gradients"),
 640                                     EPSRGR = SIMP(statut='f',typ='R',defaut=1.e-5,val_min=0,
 641                                                   fr="précision relative pour la reconstruction itérative des gradients")
 642                                  ),
 643                   RESTITUE = FACT(statut='o',max=01,
 644                                   fr = "Description de la grandeur restituée",
 645                                   NOMVAR = SIMP(statut='o',typ='TXM',fr = "nom de la grandeur restituée"),
 646                                   ICHRVR = SIMP(statut='f',typ='I',defaut=-999,into=(-999,0,1),
 647                                                 fr = "post-traitement (-999 : le code décide ; 0 : non ; 1 : oui)"),
 648                                   ILISVR = SIMP(statut='f',typ='I',defaut=-999,into=(-999,0,1),
 649                                                 fr = "impression dans CR exécution (-999 : le code décide ; 0 : non ; 1 : oui)"),
 650                                   IHISVR = SIMP(statut='f',typ=sonde,min=0,max='**',
 651                                                 fr = "inventaire des sondes utilisées pour la grandeur scalaire")
 652                                   ),
 653                   MODELE = FACT(statut='o',max=01,
 654                                 fr="modélisation",
 655                                 VALREF = SIMP(statut='o',typ='R',fr="valeur de référence (température, masse volumique...)"),
 656                                 SCAMIN = SIMP(statut='f',typ='R',defaut=1.e12,fr="valeur minimale pour le scalaire"),
 657                                 SCAMAX = SIMP(statut='f',typ='R',defaut=-1.e12,fr="valeur maximale pour le scalaire"),
 658                                 SIGMAS = SIMP(statut='f',typ='R',val_min=0,defaut=1,fr="nombre de Prandtl pour le scalaire"),
 659                                 VISLS0 = SIMP(statut='o',typ='R',fr="valeur de référence de la viscosité associée au scalaire"),
 660                                 IVISLS = SIMP(statut='f',typ='I',defaut=0,into=(0,1),fr="viscosité variable")
 661                                 )
 662                  );
 663
 664 DEFI_TSR33 = OPER(nom="DEFI_TSR33",op=2,sd_prod=tsr11,fr="définition de l'inconnue tension Reynolds R33 Rij-eps avec ses paramètres physico numériques",
 665                   NUMERIC = FACT(statut='o',max=01,
 666                                 fr="propriétés numériques liées à l'inconnue",
 667                                     ICONV  = SIMP(statut='o',typ='I',defaut=1,into=(0,1),
 668                                                   fr="indicateur de convection"),
 669                                     ISTAT  = SIMP(statut='f',typ='I',defaut=1,into=(0,1),
 670                                                   fr="présence terme instationnaire dans les matrices"),
 671                                     IDIFF  = SIMP(statut='f',typ='I',defaut=1,into=(0,1),
 672                                                   fr="diffusion"),
 673                                     IDIRCL = SIMP(statut='f',typ='I',defaut=1,into=(0,1),
 674                                                   fr="décalage du spectre des valeurs propres en l'absence de Dirichlet"),
 675                                     SCHEMA_CONVECTIF = BLOC(condition="ICONV == 1", fr ="ordre du schéma convectif",
 676                                                             BLENCV = SIMP(statut='o',typ='R',defaut=0,val_min=0,val_max=1,
 677                                                                           fr="pourcentage schéma convectif au second ordre"),
 678                                                             ISCHCV = SIMP(statut='f',typ='I',defaut=0,into=(0,1),
 679                                                                           fr ="type schéma convectif au second ordre 1 : centré")
 680                                                             ),
 681                                     NITMAX = SIMP(statut='f',typ='I',defaut=10000,val_min=0,
 682                                                   fr="nombre max d'itération pour la résolution des systèmes linéaires"),
 683                                     EPSILO = SIMP(statut='f',typ='R',defaut=1.e-4,val_min=0,
 684                                                   fr="précision relative pour la résolution des systèmes linéaires"),
 685                                     IMLIGR = SIMP(statut='f',typ='I',defaut=-999,into=(-999,-1,0,1),
 686                                                   fr="type de limitation des gradients"),
 687                                     NSWRGR = SIMP(statut='f',typ='I',defaut=100,val_min=0,
 688                                                   fr="reconstruction des gradients"),
 689                                     NSWRSM = SIMP(statut='f',typ='I',defaut=2,val_min=0,
 690                                                   fr="nombre d'itérations pour la reconstruction des seconds membres"),
 691                                     CLIMGR = SIMP(statut='f',typ='R',defaut=1.5,val_min=0,
 692                                                   fr="facteur de limitation des gradients"),
 693                                     EPSRGR = SIMP(statut='f',typ='R',defaut=1.e-5,val_min=0,
 694                                                   fr="précision relative pour la reconstruction itérative des gradients")
 695                                  ),
 696                   RESTITUE = FACT(statut='o',max=01,
 697                                   fr = "Description de la grandeur restituée",
 698                                   NOMVAR = SIMP(statut='o',typ='TXM',fr = "nom de la grandeur restituée"),
 699                                   ICHRVR = SIMP(statut='f',typ='I',defaut=-999,into=(-999,0,1),
 700                                                 fr = "post-traitement (-999 : le code décide ; 0 : non ; 1 : oui)"),
 701                                   ILISVR = SIMP(statut='f',typ='I',defaut=-999,into=(-999,0,1),
 702                                                 fr = "impression dans CR exécution (-999 : le code décide ; 0 : non ; 1 : oui)"),
 703                                   IHISVR = SIMP(statut='f',typ=sonde,min=0,max='**',
 704                                                 fr = "inventaire des sondes utilisées pour la grandeur scalaire")
 705                                   ),
 706                   MODELE = FACT(statut='o',max=01,
 707                                 fr="modélisation",
 708                                 VALREF = SIMP(statut='o',typ='R',fr="valeur de référence (température, masse volumique...)"),
 709                                 SCAMIN = SIMP(statut='f',typ='R',defaut=1.e12,fr="valeur minimale pour le scalaire"),
 710                                 SCAMAX = SIMP(statut='f',typ='R',defaut=-1.e12,fr="valeur maximale pour le scalaire"),
 711                                 SIGMAS = SIMP(statut='f',typ='R',val_min=0,defaut=1,fr="nombre de Prandtl pour le scalaire"),
 712                                 VISLS0 = SIMP(statut='o',typ='R',fr="valeur de référence de la viscosité associée au scalaire"),
 713                                 IVISLS = SIMP(statut='f',typ='I',defaut=0,into=(0,1),fr="viscosité variable")
 714                                 )
 715                  );
 716
 717 DEFI_TSR12 = OPER(nom="DEFI_TSR12",op=2,sd_prod=tsr11,fr="définition de l'inconnue tension Reynolds R12 Rij-eps avec ses paramètres physico numériques",
 718                   NUMERIC = FACT(statut='o',max=01,
 719                                 fr="propriétés numériques liées à l'inconnue",
 720                                     ICONV  = SIMP(statut='o',typ='I',defaut=1,into=(0,1),
 721                                                   fr="indicateur de convection"),
 722                                     ISTAT  = SIMP(statut='f',typ='I',defaut=1,into=(0,1),
 723                                                   fr="présence terme instationnaire dans les matrices"),
 724                                     IDIFF  = SIMP(statut='f',typ='I',defaut=1,into=(0,1),
 725                                                   fr="diffusion"),
 726                                     IDIRCL = SIMP(statut='f',typ='I',defaut=1,into=(0,1),
 727                                                   fr="décalage du spectre des valeurs propres en l'absence de Dirichlet"),
 728                                     SCHEMA_CONVECTIF = BLOC(condition="ICONV == 1", fr ="ordre du schéma convectif",
 729                                                             BLENCV = SIMP(statut='o',typ='R',defaut=0,val_min=0,val_max=1,
 730                                                                           fr="pourcentage schéma convectif au second ordre"),
 731                                                             ISCHCV = SIMP(statut='f',typ='I',defaut=0,into=(0,1),
 732                                                                           fr ="type schéma convectif au second ordre 1 : centré")
 733                                                             ),
 734                                     NITMAX = SIMP(statut='f',typ='I',defaut=10000,val_min=0,
 735                                                   fr="nombre max d'itération pour la résolution des systèmes linéaires"),
 736                                     EPSILO = SIMP(statut='f',typ='R',defaut=1.e-4,val_min=0,
 737                                                   fr="précision relative pour la résolution des systèmes linéaires"),
 738                                     IMLIGR = SIMP(statut='f',typ='I',defaut=-999,into=(-999,-1,0,1),
 739                                                   fr="type de limitation des gradients"),
 740                                     NSWRGR = SIMP(statut='f',typ='I',defaut=100,val_min=0,
 741                                                   fr="reconstruction des gradients"),
 742                                     NSWRSM = SIMP(statut='f',typ='I',defaut=2,val_min=0,
 743                                                   fr="nombre d'itérations pour la reconstruction des seconds membres"),
 744                                     CLIMGR = SIMP(statut='f',typ='R',defaut=1.5,val_min=0,
 745                                                   fr="facteur de limitation des gradients"),
 746                                     EPSRGR = SIMP(statut='f',typ='R',defaut=1.e-5,val_min=0,
 747                                                   fr="précision relative pour la reconstruction itérative des gradients")
 748                                  ),
 749                   RESTITUE = FACT(statut='o',max=01,
 750                                   fr = "Description de la grandeur restituée",
 751                                   NOMVAR = SIMP(statut='o',typ='TXM',fr = "nom de la grandeur restituée"),
 752                                   ICHRVR = SIMP(statut='f',typ='I',defaut=-999,into=(-999,0,1),
 753                                                 fr = "post-traitement (-999 : le code décide ; 0 : non ; 1 : oui)"),
 754                                   ILISVR = SIMP(statut='f',typ='I',defaut=-999,into=(-999,0,1),
 755                                                 fr = "impression dans CR exécution (-999 : le code décide ; 0 : non ; 1 : oui)"),
 756                                   IHISVR = SIMP(statut='f',typ=sonde,min=0,max='**',
 757                                                 fr = "inventaire des sondes utilisées pour la grandeur scalaire")
 758                                   ),
 759                   MODELE = FACT(statut='o',max=01,
 760                                 fr="modélisation",
 761                                 VALREF = SIMP(statut='o',typ='R',fr="valeur de référence (température, masse volumique...)"),
 762                                 SCAMIN = SIMP(statut='f',typ='R',defaut=1.e12,fr="valeur minimale pour le scalaire"),
 763                                 SCAMAX = SIMP(statut='f',typ='R',defaut=-1.e12,fr="valeur maximale pour le scalaire"),
 764                                 SIGMAS = SIMP(statut='f',typ='R',val_min=0,defaut=1,fr="nombre de Prandtl pour le scalaire"),
 765                                 VISLS0 = SIMP(statut='o',typ='R',fr="valeur de référence de la viscosité associée au scalaire"),
 766                                 IVISLS = SIMP(statut='f',typ='I',defaut=0,into=(0,1),fr="viscosité variable")
 767                                 )
 768                  );
 769
 770 DEFI_TSR13 = OPER(nom="DEFI_TSR13",op=2,sd_prod=tsr11,fr="définition de l'inconnue tension Reynolds R13 Rij-eps avec ses paramètres physico numériques",
 771                   NUMERIC = FACT(statut='o',max=01,
 772                                 fr="propriétés numériques liées à l'inconnue",
 773                                     ICONV  = SIMP(statut='o',typ='I',defaut=1,into=(0,1),
 774                                                   fr="indicateur de convection"),
 775                                     ISTAT  = SIMP(statut='f',typ='I',defaut=1,into=(0,1),
 776                                                   fr="présence terme instationnaire dans les matrices"),
 777                                     IDIFF  = SIMP(statut='f',typ='I',defaut=1,into=(0,1),
 778                                                   fr="diffusion"),
 779                                     IDIRCL = SIMP(statut='f',typ='I',defaut=1,into=(0,1),
 780                                                   fr="décalage du spectre des valeurs propres en l'absence de Dirichlet"),
 781                                     SCHEMA_CONVECTIF = BLOC(condition="ICONV == 1", fr ="ordre du schéma convectif",
 782                                                             BLENCV = SIMP(statut='o',typ='R',defaut=0,val_min=0,val_max=1,
 783                                                                           fr="pourcentage schéma convectif au second ordre"),
 784                                                             ISCHCV = SIMP(statut='f',typ='I',defaut=0,into=(0,1),
 785                                                                           fr ="type schéma convectif au second ordre 1 : centré")
 786                                                             ),
 787                                     NITMAX = SIMP(statut='f',typ='I',defaut=10000,val_min=0,
 788                                                   fr="nombre max d'itération pour la résolution des systèmes linéaires"),
 789                                     EPSILO = SIMP(statut='f',typ='R',defaut=1.e-4,val_min=0,
 790                                                   fr="précision relative pour la résolution des systèmes linéaires"),
 791                                     IMLIGR = SIMP(statut='f',typ='I',defaut=-999,into=(-999,-1,0,1),
 792                                                   fr="type de limitation des gradients"),
 793                                     NSWRGR = SIMP(statut='f',typ='I',defaut=100,val_min=0,
 794                                                   fr="reconstruction des gradients"),
 795                                     NSWRSM = SIMP(statut='f',typ='I',defaut=2,val_min=0,
 796                                                   fr="nombre d'itérations pour la reconstruction des seconds membres"),
 797                                     CLIMGR = SIMP(statut='f',typ='R',defaut=1.5,val_min=0,
 798                                                   fr="facteur de limitation des gradients"),
 799                                     EPSRGR = SIMP(statut='f',typ='R',defaut=1.e-5,val_min=0,
 800                                                   fr="précision relative pour la reconstruction itérative des gradients")
 801                                  ),
 802                   RESTITUE = FACT(statut='o',max=01,
 803                                   fr = "Description de la grandeur restituée",
 804                                   NOMVAR = SIMP(statut='o',typ='TXM',fr = "nom de la grandeur restituée"),
 805                                   ICHRVR = SIMP(statut='f',typ='I',defaut=-999,into=(-999,0,1),
 806                                                 fr = "post-traitement (-999 : le code décide ; 0 : non ; 1 : oui)"),
 807                                   ILISVR = SIMP(statut='f',typ='I',defaut=-999,into=(-999,0,1),
 808                                                 fr = "impression dans CR exécution (-999 : le code décide ; 0 : non ; 1 : oui)"),
 809                                   IHISVR = SIMP(statut='f',typ=sonde,min=0,max='**',
 810                                                 fr = "inventaire des sondes utilisées pour la grandeur scalaire")
 811                                   ),
 812                   MODELE = FACT(statut='o',max=01,
 813                                 fr="modélisation",
 814                                 VALREF = SIMP(statut='o',typ='R',fr="valeur de référence (température, masse volumique...)"),
 815                                 SCAMIN = SIMP(statut='f',typ='R',defaut=1.e12,fr="valeur minimale pour le scalaire"),
 816                                 SCAMAX = SIMP(statut='f',typ='R',defaut=-1.e12,fr="valeur maximale pour le scalaire"),
 817                                 SIGMAS = SIMP(statut='f',typ='R',val_min=0,defaut=1,fr="nombre de Prandtl pour le scalaire"),
 818                                 VISLS0 = SIMP(statut='o',typ='R',fr="valeur de référence de la viscosité associée au scalaire"),
 819                                 IVISLS = SIMP(statut='f',typ='I',defaut=0,into=(0,1),fr="viscosité variable")
 820                                 )
 821                  );
 822
 823 DEFI_TSR23 = OPER(nom="DEFI_TSR23",op=2,sd_prod=tsr11,fr="définition de l'inconnue tension Reynolds R23 Rij-eps avec ses paramètres physico numériques",
 824                   NUMERIC = FACT(statut='o',max=01,
 825                                 fr="propriétés numériques liées à l'inconnue",
 826                                     ICONV  = SIMP(statut='o',typ='I',defaut=1,into=(0,1),
 827                                                   fr="indicateur de convection"),
 828                                     ISTAT  = SIMP(statut='f',typ='I',defaut=1,into=(0,1),
 829                                                   fr="présence terme instationnaire dans les matrices"),
 830                                     IDIFF  = SIMP(statut='f',typ='I',defaut=1,into=(0,1),
 831                                                   fr="diffusion"),
 832                                     IDIRCL = SIMP(statut='f',typ='I',defaut=1,into=(0,1),
 833                                                   fr="décalage du spectre des valeurs propres en l'absence de Dirichlet"),
 834                                     SCHEMA_CONVECTIF = BLOC(condition="ICONV == 1", fr ="ordre du schéma convectif",
 835                                                             BLENCV = SIMP(statut='o',typ='R',defaut=0,val_min=0,val_max=1,
 836                                                                           fr="pourcentage schéma convectif au second ordre"),
 837                                                             ISCHCV = SIMP(statut='f',typ='I',defaut=0,into=(0,1),
 838                                                                           fr ="type schéma convectif au second ordre 1 : centré")
 839                                                             ),
 840                                     NITMAX = SIMP(statut='f',typ='I',defaut=10000,val_min=0,
 841                                                   fr="nombre max d'itération pour la résolution des systèmes linéaires"),
 842                                     EPSILO = SIMP(statut='f',typ='R',defaut=1.e-4,val_min=0,
 843                                                   fr="précision relative pour la résolution des systèmes linéaires"),
 844                                     IMLIGR = SIMP(statut='f',typ='I',defaut=-999,into=(-999,-1,0,1),
 845                                                   fr="type de limitation des gradients"),
 846                                     NSWRGR = SIMP(statut='f',typ='I',defaut=100,val_min=0,
 847                                                   fr="reconstruction des gradients"),
 848                                     NSWRSM = SIMP(statut='f',typ='I',defaut=2,val_min=0,
 849                                                   fr="nombre d'itérations pour la reconstruction des seconds membres"),
 850                                     CLIMGR = SIMP(statut='f',typ='R',defaut=1.5,val_min=0,
 851                                                   fr="facteur de limitation des gradients"),
 852                                     EPSRGR = SIMP(statut='f',typ='R',defaut=1.e-5,val_min=0,
 853                                                   fr="précision relative pour la reconstruction itérative des gradients")
 854                                  ),
 855                   RESTITUE = FACT(statut='o',max=01,
 856                                   fr = "Description de la grandeur restituée",
 857                                   NOMVAR = SIMP(statut='o',typ='TXM',fr = "nom de la grandeur restituée"),
 858                                   ICHRVR = SIMP(statut='f',typ='I',defaut=-999,into=(-999,0,1),
 859                                                 fr = "post-traitement (-999 : le code décide ; 0 : non ; 1 : oui)"),
 860                                   ILISVR = SIMP(statut='f',typ='I',defaut=-999,into=(-999,0,1),
 861                                                 fr = "impression dans CR exécution (-999 : le code décide ; 0 : non ; 1 : oui)"),
 862                                   IHISVR = SIMP(statut='f',typ=sonde,min=0,max='**',
 863                                                 fr = "inventaire des sondes utilisées pour la grandeur scalaire")
 864                                   ),
 865                   MODELE = FACT(statut='o',max=01,
 866                                 fr="modélisation",
 867                                 VALREF = SIMP(statut='o',typ='R',fr="valeur de référence (température, masse volumique...)"),
 868                                 SCAMIN = SIMP(statut='f',typ='R',defaut=1.e12,fr="valeur minimale pour le scalaire"),
 869                                 SCAMAX = SIMP(statut='f',typ='R',defaut=-1.e12,fr="valeur maximale pour le scalaire"),
 870                                 SIGMAS = SIMP(statut='f',typ='R',val_min=0,defaut=1,fr="nombre de Prandtl pour le scalaire"),
 871                                 VISLS0 = SIMP(statut='o',typ='R',fr="valeur de référence de la viscosité associée au scalaire"),
 872                                 IVISLS = SIMP(statut='f',typ='I',defaut=0,into=(0,1),fr="viscosité variable")
 873                                 )
 874                  );
 875
 876
 877 DEFI_RESTI = OPER(nom="DEFI_RESTI",op=2,sd_prod=resti,fr = "Description de la grandeur restituée",
 878                                   NOMVAR = SIMP(statut='o',typ='TXM',fr = "nom de la grandeur restituée"),
 879                                   ICHRVR = SIMP(statut='f',typ='I',defaut=-999,into=(-999,0,1),
 880                                                 fr = "post-traitement (-999 : le code décide ; 0 : non ; 1 : oui)"),
 881                                   ILISVR = SIMP(statut='f',typ='I',defaut=-999,into=(-999,0,1),
 882                                                 fr = "impression dans CR exécution (-999 : le code décide ; 0 : non ; 1 : oui)"),
 883                                   IHISVR = SIMP(statut='f',typ=sonde,min=0,max='**',
 884                                                 fr = "inventaire des sondes utilisées pour la grandeur scalaire")
 885                   );
 886
 887 CALCUL_SATURNE = PROC(nom = "CALCUL_SATURNE",op = 1,
 888                       fr = "définition des paramètres généraux pour un calcul Saturne",
 889                       docu = "néant",reentrant = 'n',
 890         ENVELOPPE = FACT(statut='o',max=01,fr = "gestion de l'enveloppe",
 891                          IFOENV = SIMP(statut='o',typ='I',defaut=2,into=(0,1,2),position='global',
 892                                        fr = "mode de communication enveloppe solveur"),
 893                          ENVTOSOLV = BLOC(condition="IFOENV > 0",
 894                                           fr = "liaison enveloppe vers solveur",
 895                                           IMPEVI = SIMP(statut='o',typ='I',defaut=13,val_min=0,val_max=99,
 896                                                         fr = "numéro de fichier enveloppe vers solveur"),
 897                                           FICEVI = SIMP(statut='o',typ='TXM',defaut="enveloppe_vers_solveur          ",
 898                                                         fr = "nom de fichier enveloppe vers solveur")
 899                                          ),
 900                          SOLVTOENV = BLOC(condition="IFOENV > 0",
 901                                           fr = "liaison solveur vers enveloppe",
 902                                           IMPEVO = SIMP(statut='o',typ='I',defaut=14,val_min=0,val_max=99,
 903                                                         fr = "numéro de fichier solveur vers enveloppe"),
 904                                           FICEVO = SIMP(statut='o',typ='TXM',defaut="solveur_vers_enveloppe          ",
 905                                                         fr = "nom de fichier solveur vers enveloppe")
 906                                          )
 907                         ),
 908         FICHIERS_CALCUL = FACT(statut='f',max=01,
 909                                fr ="définition des fichiers géométrie, suite, stop",
 910                                GEOMETRIE = BLOC(condition="IFOENV == 0",
 911                                                 fr = "fichier géométrique (pas d'enveloppe)",
 912                                                 IMPGEO = SIMP(statut='o',typ='I',defaut=10,val_min=0,val_max=99,
 913                                                               fr = "numéro de fichier géométrique"),
 914                                                 FICGEO = SIMP(statut='o',typ='TXM',defaut="geomet",
 915                                                               fr = "nom de fichier géométrique")
 916                                                ),
 917                                SUITE_AMONT = BLOC(condition="ISUITE == 1",
 918                                                   fr = "fichier suite amont",
 919                                                   IMPAMO = SIMP(statut='o',typ='I',defaut=11,val_min=0,val_max=99,
 920                                                               fr = "numéro de fichier suite amont"),
 921                                                   FICGEO = SIMP(statut='o',typ='TXM',defaut="suiamo",
 922                                                               fr = "nom de fichier suite amont"),
 923                                                   IFOAMO = SIMP(statut='o',typ='I',defaut=1,into=(0,1),
 924                                                               fr = "format du fichier suite amont, 0 = binaire")
 925                                                  ),
 926                               ),
 927         POST_PROC_ENSIGHT = FACT(statut='f',max=01,
 928                                  fr = "options de post processing par Ensight",
 929                                  IFOENS = SIMP(statut='f',typ='I',defaut=-2,into=(-2,-1,0,1),
 930                                                fr = "option type de fichier et processus générateur"),
 931                                  NTCHR  = SIMP(statut='f',typ='I',defaut=-1,
 932                                                fr = "périodicité de sortie des fichiers Ensight"),
 933                                  ITCHR  = SIMP(statut='f',typ='I',defaut=0,val_min=0,
 934                                                fr = "compteur des sorties des fichiers Ensight"),
 935                                  N3S_ASCII_NOY = BLOC(condition="(IFOENS == -1) and (IFOENV == 0)",
 936                                                       fr = "format Ensight N3S ASCII généré par le noyau",
 937                                                       IMPPST = SIMP(statut='o',typ='I',defaut=21,val_min=0,val_max=99,
 938                                                                     fr = "numéro de fichier Ensight"),
 939                                                       FICPST = SIMP(statut='o',typ='TXM',defaut="dessin",
 940                                                                     fr = "nom de fichier Ensight")
 941                                                       ),
 942                                  P0_NOY =        BLOC(condition="((IFOENS == 0) or (IFOENS == 1)) and (IFOENV == 0)",
 943                                                       fr = "format Ensight P0 généré par le noyau",
 944                                                       IMPEP0 = SIMP(statut='o',typ='I',defaut=22,val_min=0,val_max=99,
 945                                                                     fr = "numéro de fichier Ensight"),
 946                                                       EMPCHR = SIMP(statut='o',typ='TXM',defaut="./",
 947                                                                     fr = "répertoire de fichier Ensight"),
 948                                                       ENTCHR = SIMP(statut='o',typ='TXM',defaut="chr",
 949                                                                     fr = "préfixe nom de fichier Ensight")
 950                                                       )
 951                                 ),
 952         HISTORIQUE_PONCTUEL = FACT(statut='o',max=01,
 953                                    fr = "Sondes historiques",
 954                                    NTHIST = SIMP(statut='f',typ='I',defaut=-999,
 955                                                  fr="fréquence de sortie des historiques en pas de temps"),
 956                                    NTHSAV = SIMP(statut='f',typ='I',defaut=-999,
 957                                                  fr="fréquence de sauvegarde des historiques en pas de temps")
 958                                   ),
 959         OPTIONS_TURBULENCE = FACT(statut='o',max=01,
 960                                   fr="modèle de turbulence",
 961                                   ITURB  = SIMP(statut='f',fr="laminaire : 0, k-epsilon :1,Rij-epsilon :2",
 962                                                 typ='I',into=(0,1,2),defaut=1,position='global'),
 963                                   MODTURB = BLOC(condition="ITURB == 1",
 964                                                  fr = "option k-epsilon",
 965                                                  IGRAKE = SIMP(statut='o',typ='I',
 966                                                                fr="prise en compte gravité dans k-epsilon",
 967                                                                into=(0,1),defaut=0),
 968                                                  IDEUCH = SIMP(statut='f',typ='I',
 969                                                                fr="prise en compte k-epsilon deux échelles",
 970                                                                into=(0,1),defaut=1),
 971                                                  IKEKOU = SIMP(statut='f',typ='I',
 972                                                                fr="prise en compte couplage en incréments sur k-epsilon",
 973                                                                into=(0,1),defaut=1)
 974                                                  ),
 975                                   TEMPTURB = BLOC(condition="ITURB == 1",
 976                                                   fr = "option k-epsilon",
 977                                                   ISCALT = SIMP(statut='o',typ=varsca,
 978                                                                 fr=" identificateur inconnue scalaire température ")
 979                                                   )
 980                                   ),
 981         MARCHE_TEMPS = FACT(statut='o',max=01,
 982                             fr = "définition de la marche en temps",
 983                             DTREF  = SIMP(statut='o',fr="pas de temps de référence",
 984                                                         typ='R',val_min=0),
 985                             IDTVAR = SIMP(statut='f',fr="pas de temps constant : 0, variable temps espace : 1, variable temps : 2",
 986                                           typ='I',into=(0,1,2),defaut=0,position='global'),
 987                                   # probleme trace eficas quand un mot cle position global change
 988                             PASVAR = BLOC(condition="IDTVAR != 0",fr="options pas de temps variable",
 989                                           XCFMAX = SIMP(statut='o',fr="nombre de Courant-Fourier cible",
 990                                                         typ='R',defaut=0.5,val_min=0),
 991                                           FMIN =   SIMP(statut='f',fr="rapport min pas calculé DTREF",
 992                                                         typ='R',defaut=0.1,val_min=0),
 993                                           FMAX =   SIMP(statut='f',fr="rapport max pas calculé DTREF",
 994                                                         typ='R',defaut=1000,val_min=0),
 995                                           VARRDT = SIMP(statut='f',fr="variation relative max pas calculé entre deux instants",
 996                                                         typ='R',defaut=0.1,val_min=0)
 997                                           )
 998                             ),
 999         OPTIONS_EQUATIONS = FACT(statut='o',max=01,
1000                                    fr = "propriétés des équations, inconnues principales",
1001                                    IMGR   = SIMP(statut='f',fr="utilisation du multigrille pour la résolution des systèmes linéaires",
1002                                                  typ='I',into=(0,1),defaut=0),
1003                                    IMRGRA = SIMP(statut='f',fr="type de reconstruction des gradients 1 : moindres carrés",
1004                                                  typ='I',into=(0,1),defaut=0),
1005                                    ),
1006         VARIABLES = FACT(statut='o',max=01,
1007                          fr = "Restitution des grandeurs principales",
1008                          NTLIST = SIMP(statut='f',typ='I',defaut=1,val_min=1,val_max='**',
1009                                        fr = "fréquence de sortie (en pas de temps) dans le compte rendu d'éxécution"),
1010                          IWARNI = SIMP(statut='f',typ='I',defaut=2,val_min=0,val_max='**',
1011                                        fr = "niveau de détail des impressions dans le compte rendu d'éxécution"),
1012                         ),
1013         GESTION_CALCUL = FACT(statut='o',max=01,
1014                               fr = "calcul suite et numéros de pas de temps début et fin",
1015                               ISUITE = SIMP(statut='o',typ='I',defaut=0,into=(0,1),position='global',
1016                                             fr = "indicateur calcul suite (1 = suite)"),
1017                               NTPABS = SIMP(statut='f',typ='I',defaut=0,
1018                                             fr = "numéro dernier pas de temps calcul précédent (initialisation automatique)"),
1019                               NTMABS = SIMP(statut='o',typ='I',
1020                                             fr = "numéro dernier pas de temps visé (absolu)"),
1021                               TTPABS = SIMP(statut='f',typ='R',defaut=0,
1022                                             fr = "temps simulation au dernier pas de temps précédent (initialisation automatique)")
1023                              ),
1024         CONSTANTES_PHYSIQUES=FACT(statut='o',max=01,
1025                                   fr = "Grandeurs physiques et modélisation",
1026                                   TURBULENCE = BLOC(condition="ITURB >= 0",
1027                                                     XKAPPA = SIMP(statut ='o',typ='R',defaut=0.42,val_min=0,fr="constante de Karman"),
1028                                                     CSTLOG = SIMP(statut ='f',typ='R',defaut=5.2,val_min=0,fr="constante de la loi log"),
1029                                                     YPLULI = SIMP(statut ='f',typ='R',defaut=2/0.42,val_min=0,fr="valeur limite de y+ pour la sous couche visqueuse"),
1030                                                     CMU = SIMP(statut ='f',typ='R',defaut=0.009,val_min=0,fr="constante C mu"),
1031                                                     CE1 = SIMP(statut ='f',typ='R',defaut=1.44,val_min=0,fr="constante C epsilon 1"),
1032                                                     CE2 = SIMP(statut ='f',typ='R',defaut=1.92,val_min=0,fr="constante C epsilon 2"),
1033                                                     CE3 = SIMP(statut ='f',typ='R',defaut=1.0,val_min=0,fr="constante C epsilon 3"),
1034                                                     SIGMAK = SIMP(statut ='f',typ='R',defaut=1.0,val_min=0,fr="nombre de Prandtl pour k en k-epsilon"),
1035                                                     SIGMAE = SIMP(statut ='f',typ='R',defaut=1.3,val_min=0,fr="nombre de Prandtl pour epsilon en k-epsilon"),
1036                                                     ALMAX = SIMP(statut ='f',typ='R',val_min=0,fr="longueur macroscopique caractéristique du domaine"),
1037                                                     UREF = SIMP(statut ='f',typ='R',val_min=0,fr="vitesse caractéristique de l'écoulement pour l'initialisation du k-epsilon")
1038                                                     )
1039                                   )
1040                                  );
1041