From 0e60f414377f96a9dcd86c9f508b2df2bfaa72f2 Mon Sep 17 00:00:00 2001 From: Pascale Noyret Date: Thu, 3 Jun 2010 08:51:16 +0000 Subject: [PATCH] Mise en coherence avec la 9.6.10 --- Aster/Cata/cataSTA9/SD/co_fonction.py | 18 ++- Aster/Cata/cataSTA9/cata.py | 176 +++++++++++--------------- 2 files changed, 90 insertions(+), 104 deletions(-) diff --git a/Aster/Cata/cataSTA9/SD/co_fonction.py b/Aster/Cata/cataSTA9/SD/co_fonction.py index f4e39ca1..f78372f4 100644 --- a/Aster/Cata/cataSTA9/SD/co_fonction.py +++ b/Aster/Cata/cataSTA9/SD/co_fonction.py @@ -1,4 +1,4 @@ -#@ MODIF co_fonction SD DATE 22/04/2008 AUTEUR COURTOIS M.COURTOIS +#@ MODIF co_fonction SD DATE 05/01/2010 AUTEUR MACOCCO K.MACOCCO # -*- coding: iso-8859-1 -*- # CONFIGURATION MANAGEMENT OF EDF VERSION # ====================================================================== @@ -112,18 +112,25 @@ class fonction_sdaster(fonction_class, sd_fonction_aster): lx = lbl[0:dim] ly = lbl[dim:2*dim] elif hasattr(self, 'etape') and self.etape.nom == 'DEFI_FONCTION' : - if self.etape['VALE'] != None: + if self.etape['VALE'] is not None: lbl = list(self.etape['VALE']) dim = len(lbl) lx = [lbl[i] for i in range(0,dim,2)] ly = [lbl[i] for i in range(1,dim,2)] - elif self.etape['VALE_PARA']!=None: + elif self.etape['VALE_PARA'] is not None: lx = self.etape['VALE_PARA'].Valeurs() ly = self.etape['VALE_FONC'].Valeurs() + elif self.etape['ABSCISSE'] is not None: + lx = self.etape['ABSCISSE'] + ly = self.etape['ORDONNEE'] + else: + raise Accas.AsException("Erreur (fonction.Valeurs) : ne fonctionne en " \ + "PAR_LOT='OUI' que sur des fonctions produites par DEFI_FONCTION " \ + "dans le fichier de commandes courant.") else: raise Accas.AsException("Erreur (fonction.Valeurs) : ne fonctionne en " \ "PAR_LOT='OUI' que sur des fonctions produites par DEFI_FONCTION " \ - "dans le jdc courant.") + "dans le fichier de commandes courant.") return [lx, ly] def Absc(self): """Retourne la liste des abscisses""" @@ -198,7 +205,8 @@ class fonction_c(fonction_class, sd_fonction_aster): for i in range(dim): lr.append(lbl[dim+2*i]) li.append(lbl[dim+2*i+1]) - elif hasattr(self, 'etape') and self.etape.nom == 'DEFI_FONCTION': + elif hasattr(self, 'etape') and self.etape.nom == 'DEFI_FONCTION' \ + and self.etape['VALE_C'] is not None: lbl=list(self.etape['VALE_C']) dim=len(lbl) lx=[lbl[i] for i in range(0,dim,3)] diff --git a/Aster/Cata/cataSTA9/cata.py b/Aster/Cata/cataSTA9/cata.py index 74b5280c..bf12d5eb 100644 --- a/Aster/Cata/cataSTA9/cata.py +++ b/Aster/Cata/cataSTA9/cata.py @@ -4837,7 +4837,7 @@ CALC_CHAR_SEISME=OPER(nom="CALC_CHAR_SEISME",op= 92,sd_prod=calc_char_seisme_pr ), TITRE =SIMP(statut='f',typ='TXM',max='**'), ) ; -#& MODIF COMMANDE DATE 02/11/2009 AUTEUR ASSIRE A.ASSIRE +#& MODIF COMMANDE DATE 05/05/2010 AUTEUR MACOCCO K.MACOCCO # CONFIGURATION MANAGEMENT OF EDF VERSION # ====================================================================== # COPYRIGHT (C) 1991 - 2009 EDF R&D WWW.CODE-ASTER.ORG @@ -4855,13 +4855,13 @@ CALC_CHAR_SEISME=OPER(nom="CALC_CHAR_SEISME",op= 92,sd_prod=calc_char_seisme_pr # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER, # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE. # ====================================================================== -# RESPONSABLE MICHEL S.MICHEL +# RESPONSABLE BOTTONI M.BOTTONI from Macro.calc_ecrevisse_ops import calc_ecrevisse_ops def calc_ecrevisse_prod(self,CHARGE_MECA,CHARGE_THER1,CHARGE_THER2,TABLE,DEBIT,**args): - self.type_sdprod(CHARGE_MECA,char_meca) + self.type_sdprod(CHARGE_MECA,char_meca) self.type_sdprod(CHARGE_THER1,char_ther) self.type_sdprod(CHARGE_THER2,char_ther) self.type_sdprod(TABLE,table_sdaster) @@ -4873,6 +4873,7 @@ def calc_ecrevisse_prod(self,CHARGE_MECA,CHARGE_THER1,CHARGE_THER2,TABLE,DEBIT,* CALC_ECREVISSE=MACRO(nom="CALC_ECREVISSE",op=calc_ecrevisse_ops,sd_prod=calc_ecrevisse_prod,reentrant='n', UIinfo={"groupes":("Outils metier",)},fr="Procedure de couplage avec Ecrevisse", + regles = (UN_PARMI('LOGICIEL','VERSION'),), # CONCEPTS SORTANTS : 2 CHARGEMENTS THERMIQUE + 1 MECANIQUE + 2 TABLES POUR LE POST-TRAITEMENT # ******************************************** @@ -4881,9 +4882,9 @@ CALC_ECREVISSE=MACRO(nom="CALC_ECREVISSE",op=calc_ecrevisse_ops,sd_prod=calc_ecr CHARGE_THER2 =SIMP(statut='o',typ=CO), TABLE =SIMP(statut='o',typ=CO), DEBIT =SIMP(statut='o',typ=CO), - -# MODELES MECANIQUES + +# MODELES MECANIQUES # ******************************************** MODELE_MECA =SIMP(statut='o',typ=modele_sdaster), MODELE_THER =SIMP(statut='o',typ=modele_sdaster), @@ -4903,14 +4904,14 @@ CALC_ECREVISSE=MACRO(nom="CALC_ECREVISSE",op=calc_ecrevisse_ops,sd_prod=calc_ecr # ******************************************* FISSURE =FACT(statut='o',min=1,max='**', - PREFIXE_FICHIER =SIMP(statut='f',typ='TXM',validators=LongStr(1,8), defaut="FISSURE1"), - GROUP_MA =SIMP(statut='o',typ=grma,validators=NoRepeat(),max=2, + PREFIXE_FICHIER =SIMP(statut='f',typ='TXM',validators=LongStr(1,8),), + GROUP_MA =SIMP(statut='o',typ=grma,validators=NoRepeat(),min=2,max=2, fr="Groupe(s) des noeuds definissant les levres de la fissure"), - GROUP_NO_ORIG =SIMP(statut='o',typ=grno,validators=NoRepeat(),max=2), - GROUP_NO_EXTR =SIMP(statut='o',typ=grno,validators=NoRepeat(),max=2), + GROUP_NO_ORIG =SIMP(statut='o',typ=grno,validators=NoRepeat(),min=2,max=2), + GROUP_NO_EXTR =SIMP(statut='o',typ=grno,validators=NoRepeat(),min=2,max=2), ZETA =SIMP(statut='o',typ='R',fr="Coefficient de la perte de charge singuliere a l'entree [zeta]" ), RUGOSITE =SIMP(statut='o',typ='R',fr="Rugosite absolu (metres) [eps]" ), - OUVERT_REMANENTE =SIMP(statut='o',typ='R',val_min=0.,defaut=10.E-6,fr="Ouverture remanente"), + OUVERT_REMANENTE =SIMP(statut='o',typ='R',val_min=0.,fr="Ouverture remanente"), TORTUOSITE =SIMP(statut='f',typ='R',defaut=1.0, val_min=0., val_max=1.0, fr="Coefficient de tortuosite de la fissure" ), SECTION =SIMP(statut='o',typ='TXM',into=("ELLIPSE","RECTANGLE"),fr="Type de section [is]" ), @@ -4982,7 +4983,7 @@ CALC_ECREVISSE=MACRO(nom="CALC_ECREVISSE",op=calc_ecrevisse_ops,sd_prod=calc_ecr b_transchal =BLOC(condition="TRANSFERT_CHAL<0", fr="Cas diphasique", XMINCH =SIMP(statut='o',typ='R',fr="Titre massique gazeux min [xminch]"), XMAXCH =SIMP(statut='o',typ='R',fr="Titre massique gazeux max [xmaxch]"), - ), + ), ), @@ -5003,11 +5004,11 @@ CALC_ECREVISSE=MACRO(nom="CALC_ECREVISSE",op=calc_ecrevisse_ops,sd_prod=calc_ecr COURBES =SIMP(statut='f',typ='TXM',into=("INTERACTIF","POSTSCRIPT","AUCUNE"),defaut="AUCUNE", fr="Generation eventuelle des courbes" ), - LOGICIEL =SIMP(statut='f',typ='TXM',validators=LongStr(1,255) ), - VERSION =SIMP(statut='f',typ='TXM',defaut="3.1.1",into = ("3.1.1",)), + LOGICIEL =SIMP(statut='f',typ='TXM',validators=LongStr(1,255),), + VERSION =SIMP(statut='f',typ='TXM',defaut="3.1.2",into = ("3.1.1","3.1.2")), ENTETE =SIMP(statut='f',typ='TXM',max='**',defaut="Titre du calcul Ecrevisse" ), IMPRESSION =SIMP(statut='f',typ='TXM',defaut='NON',into=( 'OUI','NON') ), - INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2,3) ), + INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ), ) ; #& MODIF COMMANDE DATE 09/11/2009 AUTEUR LEBOUVIER F.LEBOUVIER @@ -5555,7 +5556,7 @@ b_charge =BLOC( condition = "OPTION in ('EPME_ELNO_DEPL','EPSI_ELGA_DEPL','EPME_ INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ), TITRE =SIMP(statut='f',typ='TXM',max='**'), ) ; -#& MODIF COMMANDE DATE 02/06/2009 AUTEUR MACOCCO K.MACOCCO +#& MODIF COMMANDE DATE 03/02/2010 AUTEUR MACOCCO K.MACOCCO # CONFIGURATION MANAGEMENT OF EDF VERSION # ====================================================================== # COPYRIGHT (C) 1991 - 2008 EDF R&D WWW.CODE-ASTER.ORG @@ -5578,17 +5579,11 @@ b_charge =BLOC( condition = "OPTION in ('EPME_ELNO_DEPL','EPSI_ELGA_DEPL','EPME_ from Macro.calc_essai_ops import calc_essai_ops -def calc_essai_prod(self,RESU_FLUDELA,RESU_IDENTIFICATION,RESU_TURBULENT, RESU_MODIFSTRU,**args): +def calc_essai_prod(self,RESU_IDENTIFICATION, RESU_MODIFSTRU,**args): - if RESU_FLUDELA != None: - for res in RESU_FLUDELA: - self.type_sdprod(res['TABLE'],table_sdaster) if RESU_IDENTIFICATION != None: for res in RESU_IDENTIFICATION: self.type_sdprod(res['TABLE'],table_fonction) - if RESU_TURBULENT != None: - for res in RESU_TURBULENT: - self.type_sdprod(res['FONCTION'],fonction_sdaster) MTYPES = { @@ -5619,14 +5614,7 @@ CALC_ESSAI = MACRO(nom = 'CALC_ESSAI', reentrant = 'n', UIinfo = {"groupes":("Outils métier",)}, fr = "Outil de post-traitement interactif pour Meidee ", - UNITE_FIMEN = SIMP( statut='f',typ='I',max='**' ), INTERACTIF = SIMP( statut='f',typ='TXM',into=('OUI','NON'),defaut='OUI' ), - RESU_FLUDELA = FACT( statut='f',max='**', - TABLE = SIMP(statut='f', typ=CO), - ), - RESU_TURBULENT = FACT( statut='f',max=1, - FONCTION = SIMP(statut='f', typ=CO), - ), RESU_IDENTIFICATION = FACT( statut='f',max='**', TABLE = SIMP(statut='f', typ=CO), ), @@ -5644,7 +5632,6 @@ CALC_ESSAI = MACRO(nom = 'CALC_ESSAI', BASE_LMME=SIMP(statut='f',typ=CO,defaut=None), MODE_STA=SIMP(statut='f',typ=CO,defaut=None), ), - UNITE_RESU = SIMP( statut='f',typ='I'), b_inter = BLOC( condition="INTERACTIF=='NON'", @@ -5660,21 +5647,6 @@ CALC_ESSAI = MACRO(nom = 'CALC_ESSAI', EPS = SIMP(statut='f',typ='R', defaut = 0.) ) ), - MEIDEE_FLUDELA = FACT( statut='f', max='**', - MESURE1 = SIMP(statut='o',typ=mode_meca), - MESURE2 = SIMP(statut='o',typ=mode_meca), - MESURE3 = SIMP(statut='o',typ=mode_meca), - BASE = SIMP(statut='o',typ=mode_meca), - ), - MEIDEE_TURBULENT = FACT( statut='f', max='**', - INTE_SPEC = SIMP(statut='o',typ=table_sdaster), - NUME_MODE_DECONV = SIMP(statut='f',typ='I',validators=NoRepeat(), - max=1,defaut=0), - NUME_MODE_LOCAL = SIMP(statut='f',typ='I',validators=NoRepeat(), - max='**',defaut=0), - BASE = SIMP(statut='o',typ=mode_meca), - MESURE = SIMP(statut='o',typ=(mode_meca,base_modale)), - ), IDENTIFICATION = FACT( statut='f',max='**', ALPHA = SIMP(statut='f',typ='R', defaut = 0.), EPS = SIMP(statut='f',typ='R', defaut = 0.), @@ -9194,7 +9166,7 @@ DEFI_FLUI_STRU=OPER(nom="DEFI_FLUI_STRU",op= 143,sd_prod=type_flui_stru, ), INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ), ) ; -#& MODIF COMMANDE DATE 21/04/2008 AUTEUR LEFEBVRE J-P.LEFEBVRE +#& MODIF COMMANDE DATE 09/02/2010 AUTEUR MACOCCO K.MACOCCO # CONFIGURATION MANAGEMENT OF EDF VERSION # ====================================================================== # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG @@ -9212,8 +9184,11 @@ DEFI_FLUI_STRU=OPER(nom="DEFI_FLUI_STRU",op= 143,sd_prod=type_flui_stru, # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER, # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE. # ====================================================================== -# RESPONSABLE COURTOIS M.COURTOIS -DEFI_FONC_ELEC=OPER(nom="DEFI_FONC_ELEC",op=64,sd_prod=fonction_sdaster,reentrant='n', +# RESPONSABLE PEYRARD C.PEYRARD + +from Macro.defi_fonc_elec_ops import defi_fonc_elec_ops + +DEFI_FONC_ELEC=MACRO(nom="DEFI_FONC_ELEC",op=defi_fonc_elec_ops,sd_prod=fonction_sdaster,reentrant='n', UIinfo={"groupes":("Outils métier",)}, fr="Définir une fonction du temps intervenant dans le calcul des forces de LAPLACE", regles=(UN_PARMI('COUR_PRIN','COUR'), @@ -9263,7 +9238,7 @@ DEFI_FONC_ELEC=OPER(nom="DEFI_FONC_ELEC",op=64,sd_prod=fonction_sdaster,reentran DIST =SIMP(statut='f',typ='R',defaut=1.0E+0), ), INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ), -) ; +) #& MODIF COMMANDE DATE 21/04/2008 AUTEUR LEFEBVRE J-P.LEFEBVRE # CONFIGURATION MANAGEMENT OF EDF VERSION # ====================================================================== @@ -16896,7 +16871,7 @@ LIRE_PLEXUS=OPER(nom="LIRE_PLEXUS",op= 184,sd_prod=evol_char, PRECISION =SIMP(statut='o',typ='R',),),), TITRE =SIMP(statut='f',typ='TXM',max='**'), ) ; -#& MODIF COMMANDE DATE 30/09/2008 AUTEUR REZETTE C.REZETTE +#& MODIF COMMANDE DATE 08/04/2010 AUTEUR MACOCCO K.MACOCCO # CONFIGURATION MANAGEMENT OF EDF VERSION # ====================================================================== # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG @@ -17026,7 +17001,6 @@ LIRE_RESU=OPER(nom="LIRE_RESU",op=150,sd_prod=lire_resu_prod,reentrant='n', ), b_dataset_58_b = BLOC(condition="(FORMAT=='IDEAS_DS58') and ((TYPE_RESU=='DYNA_TRANS') or\ (TYPE_RESU=='DYNA_HARMO') or (TYPE_RESU=='HARM_GENE'))", - UNITE =SIMP(statut='f',typ='I',defaut= 19 ), NOM_CHAM=SIMP(statut='o',typ='TXM',into=("DEPL","VITE","ACCE","EPSI_NOEU_DEPL","SIEF_NOEU",) ), REDEFI_ORIENT=FACT(statut='f',max='**', regles=(PRESENT_PRESENT('CODE_DIR','DIRECTION','NOEUD',),), @@ -17075,7 +17049,7 @@ LIRE_RESU=OPER(nom="LIRE_RESU",op=150,sd_prod=lire_resu_prod,reentrant='n', # --------- b_med =BLOC(condition = "FORMAT == 'MED'",fr="Nom du champ dans le fichier MED", UNITE =SIMP(statut='f',typ='I',defaut= 81, fr="Le fichier est : fort.n.",), - FORMAT_MED =FACT(statut='f',max='**', + FORMAT_MED =FACT(statut='o',max='**', regles=(ENSEMBLE('NOM_CMP','NOM_CMP_MED'),), NOM_CHAM =SIMP(statut='o',typ='TXM',into=C_NOM_CHAM_INTO(),), NOM_CHAM_MED =SIMP(statut='o',typ='TXM', fr="Nom du champ dans le fichier MED.", ), @@ -18626,7 +18600,7 @@ MACR_ECLA_PG=MACRO(nom="MACR_ECLA_PG",op=macr_ecla_pg_ops,sd_prod=macr_ecla_pg_p b_prec_abso=BLOC(condition="(CRITERE=='ABSOLU')", PRECISION =SIMP(statut='o',typ='R',),), ) -#& MODIF COMMANDE DATE 02/11/2009 AUTEUR ASSIRE A.ASSIRE +#& MODIF COMMANDE DATE 05/05/2010 AUTEUR MACOCCO K.MACOCCO # CONFIGURATION MANAGEMENT OF EDF VERSION # ====================================================================== # COPYRIGHT (C) 1991 - 2009 EDF R&D WWW.CODE-ASTER.ORG @@ -18644,7 +18618,7 @@ MACR_ECLA_PG=MACRO(nom="MACR_ECLA_PG",op=macr_ecla_pg_ops,sd_prod=macr_ecla_pg_p # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER, # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE. # ====================================================================== -# RESPONSABLE MICHEL S.MICHEL +# RESPONSABLE BOTTONI M.BOTTONI from Macro.macr_ecre_calc_ops import macr_ecre_calc_ops @@ -18657,7 +18631,9 @@ def macr_ecre_calc_prod(self,TABLE,DEBIT,**args): MACR_ECRE_CALC=MACRO(nom="MACR_ECRE_CALC",op=macr_ecre_calc_ops,sd_prod=macr_ecre_calc_prod,reentrant='n', UIinfo={"groupes":("Outils metier",)},fr="Procedure de couplage avec Ecrevisse", -# CONCEPTS SORTANT : 2 TABLES POUR LE POST-TRAITEMENT + regles = (UN_PARMI('LOGICIEL','VERSION'),), + +# CONCEPTS SORTANT : 2 TABLES POUR LE POST-TRAITEMENT # ******************************************** TABLE =SIMP(statut='o',typ=CO), DEBIT =SIMP(statut='o',typ=CO), @@ -18668,7 +18644,7 @@ MACR_ECRE_CALC=MACRO(nom="MACR_ECRE_CALC",op=macr_ecre_calc_ops,sd_prod=macr_ecr FISSURE =FACT(statut='o',min=1,max=1, LONGUEUR =SIMP(statut='o',typ='R',val_min=0.E+0,fr="Longueur de la fissure [zl]"), RUGOSITE =SIMP(statut='o',typ='R',fr="Rugosite absolu (metres) [eps]"), - ANGLE =SIMP(statut='o',typ='R',fr="Angle par rapport à l'ascendante verticale (degres)"), + ANGLE =SIMP(statut='o',typ='R',fr="Angle par rapport a l'ascendante verticale (degres)"), ZETA =SIMP(statut='o',typ='R',fr="Coefficient de la perte de charge singuliere a l'entree [zeta]"), SECTION =SIMP(statut='o',typ='TXM',into=("ELLIPSE","RECTANGLE"),fr="Type de section [is]"), b_section_ellipse =BLOC(condition="SECTION=='ELLIPSE'",fr="Fissure a section elliptique", @@ -18720,7 +18696,7 @@ MACR_ECRE_CALC=MACRO(nom="MACR_ECRE_CALC",op=macr_ecre_calc_ops,sd_prod=macr_ecr ), b_condition_5 =BLOC(condition="FLUIDE_ENTREE==5",fr="Air + vapeur saturee", TITR_MASS =SIMP(statut='o',typ='R',fr="Titre massique eau vap/eau tot a l'entree [xe]" ), - PRES_PART =SIMP(statut='o',typ='R',fr="Pression partielle air en entree (Pa) [pae]" ), + PRES_PART =SIMP(statut='o',typ='R',fr="Pression partielle air en entree (Pa) [pae]" ), ), b_condition_6 =BLOC(condition="FLUIDE_ENTREE==6",fr="Air seul", TEMP_ENTREE =SIMP(statut='o',typ='R',fr="Temperature a l'entree (degres C) [te]" ), @@ -18777,7 +18753,7 @@ MACR_ECRE_CALC=MACRO(nom="MACR_ECRE_CALC",op=macr_ecre_calc_ops,sd_prod=macr_ecr b_transchal =BLOC(condition="TRANSFERT_CHAL<0", fr="Cas diphasique", XMINCH =SIMP(statut='o',typ='R',fr="Titre massique gazeux min [xminch]"), XMAXCH =SIMP(statut='o',typ='R',fr="Titre massique gazeux max [xmaxch]"), - ), + ), ), @@ -18799,14 +18775,14 @@ MACR_ECRE_CALC=MACRO(nom="MACR_ECRE_CALC",op=macr_ecre_calc_ops,sd_prod=macr_ecr COURBES =SIMP(statut='f',typ='TXM',into=("INTERACTIF","POSTSCRIPT","AUCUNE"),defaut="AUCUNE", fr="Generation eventuelle des courbes" ), - LOGICIEL =SIMP(statut='f',typ='TXM',validators=LongStr(1,255) ), - VERSION =SIMP(statut='f',typ='TXM',defaut="3.1.1",into = ("3.1.1",)), + LOGICIEL =SIMP(statut='f',typ='TXM',validators=LongStr(1,255),), + VERSION =SIMP(statut='f',typ='TXM',defaut="3.1.2",into = ("3.1.1","3.1.2")), ENTETE =SIMP(statut='f',typ='TXM',max='**',defaut="Titre du calcul Ecrevisse" ), IMPRESSION =SIMP(statut='f',typ='TXM',defaut='NON',into=( 'OUI','NON') ), - INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2,3) ), + INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ), ) ; -#& MODIF COMMANDE DATE 02/11/2009 AUTEUR ASSIRE A.ASSIRE +#& MODIF COMMANDE DATE 05/05/2010 AUTEUR MACOCCO K.MACOCCO # CONFIGURATION MANAGEMENT OF EDF VERSION # ====================================================================== # COPYRIGHT (C) 1991 - 2009 EDF R&D WWW.CODE-ASTER.ORG @@ -18824,7 +18800,7 @@ MACR_ECRE_CALC=MACRO(nom="MACR_ECRE_CALC",op=macr_ecre_calc_ops,sd_prod=macr_ecr # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER, # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE. # ====================================================================== -# RESPONSABLE MICHEL S.MICHEL +# RESPONSABLE BOTTONI M.BOTTONI from Macro.macr_ecrevisse_ops import macr_ecrevisse_ops @@ -18840,15 +18816,18 @@ def macr_ecrevisse_prod(self,TABLE,TEMPER,DEBIT,**args): MACR_ECREVISSE=MACRO(nom="MACR_ECREVISSE",op=macr_ecrevisse_ops,sd_prod=macr_ecrevisse_prod,reentrant='f', UIinfo={"groupes":("Outils metier",)},fr="Procedure de couplage avec Ecrevisse", + reuse =SIMP(statut='f',typ='evol_noli'), - + regles = (EXCLUS('TEMPER','ETAT_INIT'), + UN_PARMI('LOGICIEL','VERSION'),), + # CONCEPT SORTANT # ******************************************** TABLE =SIMP(statut='f',typ=CO), DEBIT =SIMP(statut='f',typ=CO), TEMPER =SIMP(statut='f',typ=CO), - regles = (EXCLUS('TEMPER','ETAT_INIT'),), -# ETAT_INITIAL + +# ETAT_INITIAL # ******************************************** ETAT_INIT =FACT(statut='f', EVOL_NOLI =SIMP(statut='o',typ=evol_noli), @@ -18866,14 +18845,16 @@ MACR_ECREVISSE=MACRO(nom="MACR_ECREVISSE",op=macr_ecrevisse_ops,sd_prod=macr_ecr # DONNEES GEOMETRIQUES RELATIVES A LA FISSURE # ******************************************* FISSURE =FACT(statut='o',min=1,max='**', - PREFIXE_FICHIER =SIMP(statut='f',typ='TXM',validators=LongStr(1,8),defaut="FISSURE1"), - GROUP_MA =SIMP(statut='o',typ=grma,validators=NoRepeat(),max=2, + PREFIXE_FICHIER =SIMP(statut='f',typ='TXM',validators=LongStr(1,8)), + GROUP_MA =SIMP(statut='o',typ=grma,validators=NoRepeat(),min=2,max=2, fr="Groupe(s) des noeuds definissant les levres de la fissure"), - GROUP_NO_ORIG =SIMP(statut='o',typ=grno,validators=NoRepeat(),max=2), - GROUP_NO_EXTR =SIMP(statut='o',typ=grno,validators=NoRepeat(),max=2), + GROUP_NO_ORIG =SIMP(statut='o',typ=grno,validators=NoRepeat(),min=2,max=2), + GROUP_NO_EXTR =SIMP(statut='o',typ=grno,validators=NoRepeat(),min=2,max=2), ZETA =SIMP(statut='o',typ='R',fr="Coefficient de la perte de charge singuliere a l'entree [zeta]" ), RUGOSITE =SIMP(statut='o',typ='R',fr="Rugosite absolu (metres) [eps]" ), - OUVERT_REMANENTE =SIMP(statut='o',typ='R',val_min=0.,defaut=10.E-6,fr="Ouverture remanente"), + TORTUOSITE =SIMP(statut='f',typ='R',defaut=1.0, val_min=0., val_max=1.0, + fr="Coefficient de tortuosite de la fissure" ), + OUVERT_REMANENTE =SIMP(statut='o',typ='R',val_min=0.,fr="Ouverture remanente"), SECTION =SIMP(statut='o',typ='TXM',into=("ELLIPSE","RECTANGLE"),fr="Type de section [is]" ), b_section_ellipse =BLOC(condition="SECTION=='ELLIPSE'",fr="Fissure a section elliptique", LISTE_COTES_BL =SIMP(statut='f',typ='R',max='**', @@ -18985,7 +18966,7 @@ MACR_ECREVISSE=MACRO(nom="MACR_ECREVISSE",op=macr_ecrevisse_ops,sd_prod=macr_ecr # CRITERE DE CONVERGENCE # ********************** - + CONV_CRITERE =FACT(statut='o',min=1,max=1, TEMP_REF =SIMP(statut='o',typ='R',val_min=1.0E-5,fr="Temperature de reference pour le calcul du critere"), PRES_REF =SIMP(statut='o',typ='R',val_min=1.0E-5,fr="Pression de reference pour le calcul du critere"), @@ -19014,32 +18995,31 @@ MACR_ECREVISSE=MACRO(nom="MACR_ECREVISSE",op=macr_ecrevisse_ops,sd_prod=macr_ecr fr="Nombre maximum d'iterations de la methode de Newton [itnmax]" ), CRIT_CONV_DEBI =SIMP(statut='f',typ='R',val_min=0.E+0,val_max=1.E+0,defaut= 1.E-5, fr="Critere de convergence en debit [precdb]" ), - ), # GENERAL # ******* - COURBES =SIMP(statut='f',typ='TXM',into=("INTERACTIF","POSTSCRIPT","AUCUNE"),defaut="AUCUNE", + COURBES = SIMP(statut='f',typ='TXM',into=("INTERACTIF","POSTSCRIPT","AUCUNE"),defaut="AUCUNE", fr="Generation eventuelle des courbes" ), - LOGICIEL =SIMP(statut='f',typ='TXM',validators=LongStr(1,255) ), - VERSION =SIMP(statut='f',typ='TXM',defaut="3.1.1",into = ("3.1.1",) ), - ENTETE =SIMP(statut='f',typ='TXM',max='**',defaut="Titre du calcul Ecrevisse" ), - IMPRESSION =SIMP(statut='f',typ='TXM',defaut='NON',into=( 'OUI','NON') ), - INFO =SIMP(statut='f',typ='I',defaut="1",into=(1,2,3) ), + LOGICIEL = SIMP(statut='f',typ='TXM',validators=LongStr(1,255),), + VERSION = SIMP(statut='f',typ='TXM',defaut="3.1.2",into = ("3.1.1","3.1.2") ), + ENTETE = SIMP(statut='f',typ='TXM',max='**',defaut="Titre du calcul Ecrevisse" ), + IMPRESSION = SIMP(statut='f',typ='TXM',defaut='NON',into=( 'OUI','NON') ), + INFO = SIMP(statut='f',typ='I',defaut="1",into=(1,2) ), # DONNEES POUR STAT_NON_LINE ET THER_NON_LINE # ******************************************* # copie de stat_non_line.capy des options des mots cles qui nous interessent - + # donnees communes - + CHAM_MATER =SIMP(statut='o',typ=cham_mater), CARA_ELEM =SIMP(statut='f',typ=cara_elem), - # donnees specifiques a stat_non_line + # donnees specifiques a stat_non_line EXCIT_MECA =FACT(statut='o',max='**', CHARGE =SIMP(statut='o',typ=(char_meca,char_cine_meca)), @@ -19076,15 +19056,15 @@ MACR_ECREVISSE=MACRO(nom="MACR_ECREVISSE",op=macr_ecrevisse_ops,sd_prod=macr_ecr ITER_GLOB_ELAS =SIMP(statut='f',typ='I',defaut=25), ARRET =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")), ), - + # donnees specifiques a ther_lineaire - + EXCIT_THER =FACT(statut='o',max='**', CHARGE =SIMP(statut='o',typ=(char_ther,char_cine_ther)), FONC_MULT =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)), ), PARM_THETA =SIMP(statut='f',typ='R',defaut= 0.57), - + ) #& MODIF COMMANDE DATE 06/05/2008 AUTEUR CORUS M.CORUS # CONFIGURATION MANAGEMENT OF EDF VERSION @@ -19861,23 +19841,23 @@ MACR_LIGN_COUPE=MACRO(nom="MACR_LIGN_COUPE",op=macr_lign_coupe_ops,sd_prod=table ) ; -#& MODIF COMMANDE DATE 21/04/2008 AUTEUR LEFEBVRE J-P.LEFEBVRE +#& MODIF COMMANDE DATE 03/02/2010 AUTEUR MACOCCO K.MACOCCO # CONFIGURATION MANAGEMENT OF EDF VERSION # ====================================================================== # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY -# THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR -# (AT YOUR OPTION) ANY LATER VERSION. +# THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR +# (AT YOUR OPTION) ANY LATER VERSION. # -# THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT -# WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF -# MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU -# GENERAL PUBLIC LICENSE FOR MORE DETAILS. +# THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT +# WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF +# MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU +# GENERAL PUBLIC LICENSE FOR MORE DETAILS. # -# YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE -# ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER, -# 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE. +# YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE +# ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER, +# 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE. # ====================================================================== # RESPONSABLE DESROCHES X.DESROCHES @@ -19895,22 +19875,20 @@ def macro_elas_mult_prod(self,NUME_DDL,CAS_CHARGE,**args ): MACRO_ELAS_MULT=MACRO(nom="MACRO_ELAS_MULT",op=macro_elas_mult_ops,sd_prod=macro_elas_mult_prod,reentrant='f', UIinfo={"groupes":("Résolution",)}, fr="Calculer les réponses statiques linéaires pour différents cas de charges ou modes de Fourier", - regles=(UN_PARMI('CHAR_MECA_GLOBAL','CHAR_CINE_GLOBAL','LIAISON_DISCRET', ),), + regles=(UN_PARMI('CHAR_MECA_GLOBAL','LIAISON_DISCRET', ),), MODELE =SIMP(statut='o',typ=modele_sdaster), CHAM_MATER =SIMP(statut='f',typ=cham_mater), CARA_ELEM =SIMP(statut='f',typ=cara_elem), NUME_DDL =SIMP(statut='f',typ=(nume_ddl_sdaster,CO)), CHAR_MECA_GLOBAL=SIMP(statut='f',typ=char_meca,validators=NoRepeat(),max='**'), - CHAR_CINE_GLOBAL=SIMP(statut='f',typ=char_meca,validators=NoRepeat(),max='**'), LIAISON_DISCRET =SIMP(statut='f',typ='TXM',into=("OUI",)), CAS_CHARGE =FACT(statut='o',max='**', regles=(UN_PARMI('NOM_CAS','MODE_FOURIER'), - UN_PARMI('CHAR_MECA','CHAR_CINE','VECT_ASSE'),), + UN_PARMI('CHAR_MECA','VECT_ASSE'),), NOM_CAS =SIMP(statut='f',typ='TXM' ), MODE_FOURIER =SIMP(statut='f',typ='I' ), TYPE_MODE =SIMP(statut='f',typ='TXM',defaut="SYME",into=("SYME","ANTI","TOUS") ), CHAR_MECA =SIMP(statut='f',typ=char_meca,validators=NoRepeat(),max='**'), - CHAR_CINE =SIMP(statut='f',typ=char_meca,validators=NoRepeat(),max='**'), OPTION =SIMP(statut='f',typ='TXM',validators=NoRepeat(),max='**', into=("EFGE_ELNO_DEPL","EPOT_ELEM_DEPL","SIGM_ELNO_DEPL","SIEF_ELGA_DEPL", "SIGM_ELNO_CART","EFGE_ELNO_CART","DEGE_ELNO_DEPL","EPSI_ELNO_DEPL", -- 2.39.2