Télécharger la plaquette Cast3M


fr en

Télécharger pas_modl.procedur

Retour à la liste

Numérotation des lignes : 

  1. * PAS_MODL  PROCEDUR  MB234859  25/02/21    21:18:06     12167          
  2. DEBPROC PAS_MODL TPASA1*'TABLE' ;
  3. ************************************************************************
  4. * Cette procedure initialise ou met a jour les indices relatifs aux 
  5. * modeles de la table WTABLE de PASAPAS, ainsi que les caracteristiques
  6. * associees.
  7. *
  8. * Pour plus de details, voir la notice.
  9. *
  10. ************************************************************************
  11. WTAB = TPASA1.'WTABLE' ;
  12. *
  13. 'SI' ('NON' (('EXIS' WTAB 'MODELE') 'ET' ('EXIS' WTAB 'CARACTERISTIQUES')));
  14.   'ERRE' '***** Il manque le MODELE ou les CARACTERISTIQUES dans Wtable' ;
  15.   'QUIT' PAS_MODL ;
  16. 'FINSI' ;
  17. *
  18. * Modele global :
  19. mod0 = WTAB.'MODELE' ;
  20.  
  21. * Le modele a-t-il ete actualise
  22. 'SI' ('EXIS' WTAB 'MODELE_COURANT') ;
  23.   'SI' ('EGA' mod0 (WTAB.'MODELE_COURANT')) ;
  24.     'QUIT' PAS_MODL ;
  25.   'FINSI' ;
  26. 'FINSI' ;
  27. WTAB.'MODELE_COURANT' = mod0 ;
  28.  
  29. * Caracteristiques :
  30. mat0 = WTAB.'CARACTERISTIQUES' ;
  31. *mess '*****  Appel a PAS_MODL ' ;
  32. *-----------------------------------------------------------------------
  33. *             Indices pour TRANSNON/TRANSLIN/DUPONT2
  34. *-----------------------------------------------------------------------
  35. WTAB.'THE1'        = 'EXIS' mod0 'FORM' 'THERMIQUE' ;
  36. WTAB.'THM1'        = 'EXIS' mod0 'FORM' 'THERMOHYDRIQUE' ;
  37. WTAB.'FOR_DIFF'    = 'EXIS' mod0 'FORM' 'DIFFUSION' ;
  38. WTAB.'FOR_METALLU' = 'EXIS' mod0 'FORM' 'METALLURGIE' ;
  39. WTAB.'FOR_PHASE'   = 'EXIS' mod0 'FORM' 'CHANGEMENT_PHASE' ;
  40. WTAB.'FOR_THER'    = WTAB.'THE1' 'OU' WTAB.'THM1' ;
  41. *
  42. 'SI' (WTAB.'FOR_THER' 'OU' WTAB.'FOR_DIFF' 'OU' WTAB.'FOR_METALLU' 'OU' WTAB.'FOR_PHASE') ;
  43.   'SI' WTAB.'THE1' ;
  44.      WTAB.'MOD_THE' = 'EXTR' mod0 'FORM' 'THERMIQUE';
  45.      WTAB.'MAT_THE' = 'REDU' mat0 WTAB.'MOD_THE';
  46.      WTAB.'MOD_T'   = WTAB.'MOD_THE' ;
  47.      WTAB.'MAT_T'   = WTAB.'MAT_THE' ;
  48.   'FINSI' ;
  49. *
  50.   'SI' WTAB.'THM1' ;
  51.     WTAB.'MOD_THM' = 'EXTR' mod0 'FORM' 'THERMOHYDRIQUE' ;
  52.     WTAB.'MAT_THM' = 'REDU' mat0 WTAB.'MOD_THM';
  53.     WTAB.'MOD_T'   = WTAB.'MOD_T' 'ET' WTAB.'MOD_THM' ;
  54.     WTAB.'MAT_T'   = WTAB.'MAT_T' 'ET' WTAB.'MAT_THM' ;
  55.   'FINSI' ;
  56. *
  57.   WTAB.'MOD_TOT' = WTAB.'MOD_T' ;
  58. *
  59.   'SI' WTAB.'FOR_DIFF' ;
  60.     WTAB.'MOD_DIF' ='EXTR' mod0 'FORM' 'DIFFUSION' ;
  61.     WTAB.'MAT_DIF' ='REDU' mat0 WTAB.'MOD_DIF'     ;
  62.     WTAB.'MOD_TOT' = WTAB.'MOD_TOT' 'ET' WTAB.'MOD_DIF' ;
  63.     WTAB.'MOD_THE' = WTAB.'MOD_THE' 'ET' WTAB.'MOD_DIF' ;
  64.     WTAB.'MAT_THE' = WTAB.'MAT_THE' 'ET' WTAB.'MAT_DIF' ;
  65.   'FINSI' ;
  66. *
  67.   WTAB.'CONVECTION' = 'EXISTE' mod0 'MATE' 'CONVECTION' ;
  68.   'SI' WTAB.'CONVECTION' ;
  69.     WTAB.'MOD_CON' = 'EXTR' mod0 'MATE' 'CONVECTION';
  70.     WTAB.'MAT_CON' = 'REDU' mat0 WTAB.'MOD_CON';
  71.   'FINSI';
  72. *
  73.   WTAB.'RAYO' = 'EXISTE' mod0 'MATE' 'RAYONNEMENT' ;
  74.   'SI' WTAB.'RAYO' ;
  75.     WTAB.'MOD_RAY' = 'EXTR' mod0 'MATE' 'RAYONNEMENT';
  76.     WTAB.'MAT_RAY' = 'REDU' mat0 WTAB.'MOD_RAY';
  77.   'FINSI';
  78. *
  79.   WTAB.'CONDUCTION' = 'EXISTE' mod0 'MATE' 'CONDUCTION' ;
  80.   'SI' WTAB.'CONDUCTION' ;
  81.     WTAB.'MOD_COND' = 'EXTR' mod0 'MATE' 'CONDUCTION';
  82.     WTAB.'MAT_COND' = 'REDU' mat0 WTAB.'MOD_COND';
  83.   'FINSI';
  84. *
  85.   WTAB.'SOURCE_Q' = 'EXISTE' mod0 'MATE' 'SOURCE' ;
  86.   'SI' WTAB.'SOURCE_Q' ;
  87.     WTAB.'MOD_SOQ' = 'EXTR' mod0 'MATE' 'SOURCE';
  88.     WTAB.'MAT_SOQ' = 'REDU' mat0 WTAB.'MOD_SOQ';
  89.   'FINSI';
  90. *
  91.    WTAB.'ADVECTION' = 'EXISTE' mod0 'MATE' 'ADVECTION' ;
  92.   'SI' WTAB.'ADVECTION' ;
  93.      WTAB.'MOD_ADV' = 'EXTR' mod0 'MATE' 'ADVECTION';
  94.      WTAB.'MAT_ADV' = 'REDU' mat0 WTAB.'MOD_ADV';
  95.   'FINSI';
  96. *
  97. * Formulation Metallurgie (T.L. en juin 2018) :
  98.   'SI' WTAB.'FOR_METALLU' ;
  99.     WTAB.'MOD_MET' = 'EXTR' mod0 'FORM' 'METALLURGIE';
  100.     WTAB.'MAT_MET' = 'REDU' mat0  WTAB.'MOD_MET'     ;
  101.     WTAB.'MOD_TOT' = WTAB.'MOD_TOT' 'ET' WTAB.'MOD_MET' ;
  102.   'FINS';
  103. *
  104. * Formulation CHANGEMENT_PHASE (CB215821 2019) :
  105.   WTAB.'PHASE'      = FAUX ;
  106.   WTAB.'SOLUBILITE' = FAUX ;
  107.   'SI' ('EXIS' mod0 'FORM' 'CHANGEMENT_PHASE');
  108.     MOPHA='EXTR' mod0 'FORM' 'CHANGEMENT_PHASE' ;
  109.     MAPHA='REDU' mat0 MOPHA ;
  110.     'SI' ('EXIS' MOPHA 'MATE' 'SOLUBILITE');
  111. *      Cas 'SOLUBILITE'
  112.        WTAB.'SOLUBILITE' = VRAI ;
  113.        MOSOL='EXTR' MOPHA 'MATE' 'SOLUBILITE' ;
  114.        WTAB.'MOD_SOL' = MOSOL ;
  115.        WTAB.'MAT_SOL' ='REDU' mat0 MOSOL ;
  116.  
  117.     'SINO';
  118. *      Cas 'PARFAIT'
  119.        WTAB.'PHASE' = VRAI ;
  120.        MOPAR = 'EXTR' MOPHA 'MATE' 'PARFAIT' ;
  121.        WTAB.'MOD_PHA' = MOPAR ;
  122.        WTAB.'MAT_PHA' ='REDU' mat0 MOPAR ;
  123.     'FINS';
  124.  
  125.      WTAB.'MOD_THE' = WTAB.'MOD_THE' 'ET' MOPHA ;
  126.      WTAB.'MAT_THE' = WTAB.'MAT_THE' 'ET' MAPHA ;
  127.      WTAB.'MOD_TOT' = WTAB.'MOD_TOT' 'ET' MOPHA ;
  128.   'FINSI';
  129.  
  130.   WTAB.'MAT_TOT' = 'REDU' mat0 WTAB.'MOD_TOT' ;
  131.  
  132. 'FINSI' ;
  133. *-----------------------------------------------------------------------
  134. *                          Indices pour UNPAS
  135. *-----------------------------------------------------------------------
  136. WTAB.'MEC1'     = 'EXIS' mod0 'FORM' 'MECANIQUE' ;
  137. WTAB.'POR1'     = 'EXIS' mod0 'FORM' 'POREUX' ;
  138. WTAB.'FCHA'     = 'EXIS' mod0 'FORM' 'CHARGEMENT' ;
  139. WTAB.'FLIA'     = 'EXIS' mod0 'FORM' 'LIAISON' ;
  140. WTAB.'CONTACT'  = 'EXIS' mod0 'FORM' 'CONTACT' ;
  141. WTAB.'FOR_MECA' = WTAB.'MEC1' 'OU' WTAB.'POR1' 'OU' WTAB.'FCHA' ;
  142. *
  143. 'SI' (WTAB.'FOR_MECA' 'OU' WTAB.'FLIA' 'OU' WTAB.'CONTACT') ;
  144. *
  145.   WTAB.'MOD_SPE' = 'VIDE' 'MMODEL' ;
  146.   WTAB.'MO_TOT'  = 'VIDE' 'MMODEL' ;
  147. *
  148.   'SI' WTAB.'MEC1' ;
  149.  
  150.     WTAB.'MOD_MEC' = 'EXTR' mod0 'FORM' 'MECANIQUE';
  151.     WTAB.'MAT_MEC' = 'REDU' mat0  WTAB.'MOD_MEC';
  152.  
  153.     'SI' ('EXISTE' mod0 'FORM' 'MELANGE');
  154.       'SI' ('EXISTE' mod0 'MATE' 'PARALLELE');
  155.         MOPAL1 = 'EXTR' mod0 'MATE' 'PARALLELE' ;
  156.         'SI' ('EXISTE' MOPAL1 'FORM' 'MECANIQUE');
  157.           MAPAL1 = 'REDU' 'STRI' mat0 MOPAL1 ;
  158.           WTAB.'MOD_MEC' = MOPAL1 'ET' WTAB.'MOD_MEC' ;
  159.           WTAB.'MAT_MEC' = MAPAL1 'ET' WTAB.'MAT_MEC' ;
  160.         'FINSI' ;
  161.       'FINSI' ;
  162.     'FINSI';
  163.     WTAB.'MO_TOT' = WTAB.'MO_TOT' 'ET' WTAB.'MOD_MEC' ;
  164.   'FINSI';
  165. *
  166.   'SI' WTAB.'POR1' ;
  167.     WTAB.'MOD_POR' = 'EXTR' mod0 'FORM' 'POREUX';
  168.     WTAB.'MAT_POR' = 'REDU' mat0  WTAB.'MOD_POR';
  169.     WTAB.'MO_TOT'  = WTAB.'MO_TOT' 'ET' WTAB.'MOD_POR' ;
  170.   'FINSI';
  171. *
  172. * Initialisation des comportements d'apres le modele
  173.   'SI' ('EXISTE' WTAB.'MO_TOT' 'MATE' 'PLASTIQUE');
  174.     WTAB.'PLASTIQUE'      = VRAI;
  175.     WTAB.'IPLAVI'         = VRAI;
  176.   'FINSI';
  177.   'SI' ('EXISTE' WTAB.'MO_TOT' 'MATE' 'PLASTIQUE_ENDOM');
  178.     WTAB.'PLASTIQUE'      = VRAI;
  179.     WTAB.'ENDOMMAGEMENT'  = VRAI;
  180.     WTAB.'IPLAVI'         = VRAI;
  181.     MODZ = 'EXTR' WTAB.'MO_TOT' 'MATE' 'PLASTIQUE_ENDOM' ;
  182.     WTAB.'MOD_SPE' = WTAB.'MOD_SPE' 'ET' MODZ ;
  183.   'FINSI';
  184.   'SI' (('EXISTE' WTAB.'MO_TOT' 'MATE' 'VISCOPLASTIQUE') 'OU'
  185.         ('EXISTE' WTAB.'MO_TOT' 'MATE' 'FLUAGE'        ));
  186.     WTAB.'VISCOPLASTIQUE' = VRAI;
  187.     WTAB.'IPLAVI'         = VRAI;
  188.   'FINSI';
  189.   'SI' ('EXISTE' WTAB.'MO_TOT' 'MATE' 'VISCODOMMAGE');
  190.     WTAB.'VISCODOMMAGE'   = VRAI;
  191.     WTAB.'IPLAVI'         = VRAI;
  192.     MODZ = 'EXTR' WTAB.'MO_TOT' 'MATE' 'VISCODOMMAGE' ;
  193.     WTAB.'MOD_SPE' = WTAB.'MOD_SPE' 'ET' MODZ ;
  194.   'FINSI';
  195.   'SI' ('EXISTE' WTAB.'MO_TOT' 'MATE' 'ENDOMMAGEABLE');
  196.     WTAB.'ENDOMMAGEMENT'  = VRAI;
  197.     WTAB.'IPLAVI'         = VRAI;
  198.     MODZ = 'EXTR' WTAB.'MO_TOT' 'MATE' 'ENDOMMAGEABLE' ;
  199.     WTAB.'MOD_SPE' = WTAB.'MOD_SPE' 'ET' MODZ ;
  200.   'FINSI';
  201.   'SI' ('EXISTE' WTAB.'MO_TOT' 'MATE' 'ENDOMMAGEMENT') ;
  202.     WTAB.'ENDOMMAGEMENT'  = VRAI;
  203.     WTAB.'IPLAVI'         = VRAI;
  204.   'FINSI';
  205.   'SI' ('EXISTE' WTAB.'MO_TOT' 'MATE' 'NON_LINEAIRE') ;
  206.     WTAB.'NON_LINEAIRE'   = VRAI;
  207.     WTAB.'IPLAVI'         = VRAI;
  208.     WTAB.'UTILISATEUR'    = 'EXISTE' WTAB.'MO_TOT' 'MATE' 'UTILISATEUR' ;
  209.   'FINSI';
  210.   'SI' ('EXISTE' WTAB.'MO_TOT' 'MATE' 'VISCO_EXTERNE') ;
  211.     WTAB.'VISCO_EXTERNE'  = VRAI;
  212.     WTAB.'IPLAVI'         = VRAI;
  213.   'FINSI';
  214.   'SI' ('EXISTE' WTAB.'MO_TOT' 'MATE' 'CERAMIQUE');
  215.     WTAB.'CERAMIQUE'      = VRAI;
  216.     WTAB.'IPLAVI'         = VRAI;
  217.   'FINSI';
  218.   'SI' (('EXISTE' WTAB.'MO_TOT' 'MATE' 'MODAL'    ) 'OU'
  219.         ('EXISTE' WTAB.'MO_TOT' 'MATE' 'STATIQUE' ));
  220.     WTAB.'MODAL'          = VRAI;
  221.     WTAB.'IPLAVI'         = VRAI;
  222.   'FINSI';
  223.   'SI' ('EXISTE' WTAB.'MO_TOT' 'MATE' 'IMPEDANCE');
  224.     WTAB.'IMPEDANCE'      = VRAI;
  225.     WTAB.'IPLAVI'         = VRAI;
  226.   'FINSI';
  227. *
  228.   WTAB.'MO_VARI' = 'DIFF' WTAB.'MO_TOT' WTAB.'MOD_SPE' ;
  229. *
  230. * Creation, si besoin, du chargement de flux neutronique pour le modele mistral
  231.   'SI' ('EXIS' WTAB.'MO_TOT' 'MATE' 'MISTRAL');
  232.     'SI' ('NON' ('EXISTE' (WTAB.'CHARGEMENT') 'FI  ')) ;
  233.       MAI_TOT = 'EXTR' WTAB.'MO_TOT' 'MAIL' ;
  234.       FIZER = 'MANU' 'CHPO' MAI_TOT 1 'FI  ' 0. 'NATURE' 'DIFFUS' ;
  235.       WTAB.'CHARGEMENT' = WTAB.'CHARGEMENT' 'ET' ('CHAR' 'FI' FIZER
  236.         ('EVOL' 'MANU'  ('PROG' 0. 10.e10 ) ('PROG' 1. 1.)));
  237.     'FINSI';
  238.   'FINSI';
  239. * Creation, si besoin, du chargement de densite de fissions pour gatt_monerie & uo2
  240.   'SI' (('EXIS' WTAB.'MO_TOT' 'MATE' 'UO2') 'OU'
  241.         ('EXIS' WTAB.'MO_TOT' 'MATE' 'GATT_MONERIE') ) ;
  242.     'SI' ('NON' ('EXISTE' (WTAB.'CHARGEMENT') 'DFIS')) ;
  243.       MAI_TOT = 'EXTR' WTAB.'MO_TOT' 'MAIL' ;
  244.       DFISZER = 'MANU' 'CHPO'  MAI_TOT 1 'DFIS' 0. 'NATURE' 'DIFFUS' ;
  245.       WTAB.'CHARGEMENT' = WTAB.'CHARGEMENT' 'ET' ('CHAR' 'DFIS' DFISZER
  246.         ('EVOL' 'MANU'   ('PROG' 0. 10.e10 ) ('PROG' 1. 1.))) ;
  247.     'FINSI';
  248.   'FINSI';
  249. *
  250. * Non LOCale
  251.   lognlmo = 'EXIS' mod0 'NON_LOCAL' 'MOYE' ;
  252.   lognlsb = 'EXIS' mod0 'NON_LOCAL' 'SB  ' ;
  253.   lognlhe = 'EXIS' mod0 'NON_LOCAL' 'HELM' ;
  254.   WTAB.'NLOC' = lognlmo 'OU' lognlsb 'OU' lognlhe ;
  255.  
  256.   'SI' WTAB.'NLOC' ;
  257.  
  258. *   Verifier qu'il n'y a qu'un seul type de formulation non locale
  259.     'SI' ((lognlmo 'ET' lognlsb) 'OU' (lognlsb 'ET' lognlhe) 'OU' (lognlhe 'ET' lognlmo)) ;
  260.       'ERREUR' 'On ne peut pas avoir deux formulations non locales differentes' ;
  261.     'FINSI' ;
  262.  
  263. *   Cas 'MOYE'
  264.     'SI' lognlmo ;
  265.        WTAB.'NON_LOCAL' = 'MOT' 'MOYE' ;
  266.     'FINSI' ;
  267.  
  268. *    Cas 'SB'
  269.     'SI' lognlsb ;
  270.        WTAB.'NON_LOCAL' = 'MOT' 'SB' ;
  271.     'FINSI' ;
  272.  
  273. *    Cas 'HELM'
  274.     'SI' lognlhe ;
  275.        WTAB.'NON_LOCAL' = 'MOT' 'HELM' ;
  276.     'FINSI' ;
  277.  
  278.     WTAB.'NLOC_MODL' = 'EXTR' mod0 'NON_LOCAL' WTAB.'NON_LOCAL' ;
  279.  
  280.     'SI' lognlsb ;
  281.        MOD_SB = WTAB.'NLOC_MODL' ;
  282.        CHM_1 = 'MANU' 'CHML' MOD_SB 'LONG' 1.0 'STRESSES' 'TYPE' 'CARACTERISTIQUES' ;
  283.        CHM_L = 'INTG' 'ELEM' MOD_SB CHM_1 'LONG' ;
  284.        CHM_L = 'CHAN' 'COMP' 'LONG' CHM_L ;
  285.        CHM_L = 'CHAN' 'STRESSES' MOD_SB CHM_L ;
  286.        TAIL1 = CHM_L ** (1. / ('VALE' 'DIME')) ;
  287.        FTCH  = 'EXCO' mat0 'SBFT' 'SBFT' ;
  288.        FTCH  = 'CHAN' 'STRESSES' MOD_SB FTCH ;
  289.        MALVIA = TAIL1 '+' FTCH ;
  290.        WTAB.'NLOC_SB_REGU' = 'CHAN' MALVIA 'TYPE' 'VARIABLES INTERNES' ;
  291.     'FINSI' ;
  292.  
  293.   'FINSI' ;
  294. *
  295.   'SI' WTAB.'FCHA' ;
  296.     WTAB.'MOD_CHA' = 'EXTR' mod0 'FORM' 'CHARGEMENT' ;
  297.     WTAB.'MAT_CHA' = 'REDU' mat0 WTAB.'MOD_CHA' ;
  298.     'SI' ('EXIS' WTAB.'MOD_CHA' 'MATE' 'PRESSION') ;
  299.       WTAB.'MOD_PRE' = 'EXTR' (WTAB.'MOD_CHA') 'COMP' 'PRESSION' ;
  300. *   A t-on un MATE associe?
  301.       MATZ = 'REDU' mat0 WTAB.'MOD_PRE' ;
  302.       'SI' ('NEG' ('DIME' ('EXTR' MATZ 'COMP')) 0) ;
  303.         WTAB.'MAT_PRE' = MATZ ;
  304.       'FINSI' ;
  305.     'FINSI' ;
  306.     WTAB.'MO_VARI' = WTAB.'MO_VARI' 'ET' WTAB.'MOD_CHA' ;
  307.   'FINSI' ;
  308.  
  309. * Formulation LIAISON
  310.   'SI' WTAB.'FLIA' ;
  311.     WTAB.'MOD_LIA' = 'EXTR' mod0 'FORM' 'LIAISON' ;
  312.     WTAB.'MAT_LIA' = 'REDU' mat0 WTAB.'MOD_LIA' ;
  313.     WTAB.'MO_TOT'  = WTAB.'MO_TOT'  'ET' WTAB.'MOD_LIA' ;
  314.     WTAB.'MO_VARI' = WTAB.'MO_VARI' 'ET' WTAB.'MOD_LIA' ;
  315.   'FINSI' ;
  316. *
  317. * Formulation CONTACT :
  318.   'SI' WTAB.'CONTACT' ;
  319.     WTAB.'MODCONTA' = 'EXTR' mod0  'FORM' 'CONTACT';
  320.     MATCONTA = 'REDU' mat0 WTAB.'MODCONTA' ;
  321.     LSTCOMP  = 'EXTR' MATCONTA 'COMP' ;
  322.     'SI' ('NEG' ('DIME' LSTCOMP) 0) ;
  323.       WTAB.'MATCONTA' = MATCONTA ;
  324. *     A t-on la composante ADHE?
  325.       WTAB.'ADHERENCE' = 'EXIS' LSTCOMP 'ADHE' ;
  326.     'FINSI' ;
  327.     WTAB.'FROCOUL' = 'EXIS' WTAB.'MODCONTA' 'MATE' 'COULOMB' ;
  328.     WTAB.'FROCABL' = 'EXIS' WTAB.'MODCONTA' 'MATE' 'FROCABLE' ;
  329.     WTAB.'CAFROTTE' = WTAB.'FROCOUL' 'OU' WTAB.'FROCABL' ;
  330.   'FINSI';
  331. *
  332. * Informations pour COMP
  333.   WTAB.'LPAR0'     = 'EXTR' WTAB.'MO_TOT' 'PARA';
  334.   WTAB.'PARA_EXTE' = ('NEG' ('DIME' WTAB.'LPAR0') 0) ;
  335. *
  336.   WTAB.'MA_TOT' = 'REDU' mat0 WTAB.'MO_TOT' ;
  337.   WTAB.'LDEVA'  = 'EXTR' WTAB.'MA_TOT' 'DEVA';
  338.   LDEVA_DI      = 'DIME' WTAB.'LDEVA' ;
  339.   WTAB.'MATVAR' = ('NEG' LDEVA_DI 0) ;
  340.   'SI' WTAB.'MATVAR' ;
  341.     'SI' ('NON' (('EGA' LDEVA_DI 1) 'ET' 
  342.                  ('EGA' ('EXTR' WTAB.'LDEVA' 1) 'ALPH' ) ));
  343.       WTAB.'RECARI'= VRAI;
  344.     'FINSI';
  345.     'SI' WTAB.'FREQUENTIEL' ; WTAB.'MATVAR'= FAUX; 'FINSI';
  346.   'FINSI';
  347. *
  348. * Uniquement initialisation, sinon indice gere par UNPAS
  349.   'SI' ('NON' ('EXIS' WTAB 'MO_TOT_PREC')) ;
  350.     WTAB.'MO_TOT_PREC' = WTAB.'MO_TOT' ;
  351.   'FINSI' ;
  352. *
  353. 'FINSI';
  354. *
  355. * Formulation NAVIER_STOKES
  356. WTAB.'NVSTNL' = ('EXISTE' mod0 'FORM' 'NAVIER_STOKES')
  357.            'ET' ('EXISTE' mod0 'MATE' 'NLIN') ; 
  358. 'SI' WTAB. 'NVSTNL' ;
  359.   WTAB.'MOD_NSL' = 'EXTR' mod0 'MATE' 'NLIN' ;
  360.   WTAB.'MAT_NSL' = 'REDU' mat0 WTAB . 'MOD_NSL' ;
  361. 'FINSI' ;
  362. *
  363. 'FINP' TPASA1 ;
  364.  
  365.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales