Procedures | Cast3M

   1 : * PENCECHI  PROCEDUR  GOUNAND   12/12/20    21:15:21     7633           
   2 : ************************************************************************
   3 : * NOM         : PENCECHI
   4 : * DESCRIPTION :
   5 : *
   6 : *
   7 : * Procédure PENCECHI ajoutée par Gounand (20/12/2012)
   8 : * Cette procédure est déclarée dans PREPAENC pour remplacer des DFDT 
   9 : * servant à modéliser des ECHIMP. Pourquoi ? Apparemment car ECHI ne
  10 : * fonctionnait pas sur des inconnues vectorielles. Le problème avec DFDT
  11 : * est qu'il induit des effets de bord non voulus à l'appel de TCRR (dans
  12 : * EXEC) consistant en la mise à jour non souhaitée de certains
  13 : * paramètres donnés à DFDT (correspondant dans le cas "normal" à
  14 : * l'inconnue au pas de temps précédent mais pas dans le cas de la
  15 : * modélisation d'un échange).
  16 : * La procédure PENCECHI utilise toujours DFDT mais comme elle s'appelle
  17 : * PENCECHI et pas DFDT, il n'y a pas d'effet de bord.
  18 : * Le mieux serait peut-être d'étendre ECHI aux inconnues vectorielles.
  19 : * On pourrait aussi faire avec NLIN
  20 : * 
  21 : *
  22 : *
  23 : * LANGAGE     : GIBIANE-CAST3M
  24 : * AUTEUR      : Stéphane GOUNAND (CEA/DEN/DM2S/SFME/LTMF)
  25 : *               mél : stephane.gounand@cea.fr
  26 : **********************************************************************
  27 : * VERSION    : v1, 20/12/2012, version initiale
  28 : * HISTORIQUE : v1, 20/12/2012, création
  29 : * HISTORIQUE :
  30 : * HISTORIQUE :
  31 : ************************************************************************
  32 : *
  33 : 'DEBPROC' PENCECHI ;
  34 :    'ARGUMENT' rvx*'TABLE' ;
  35 :    rv = rvx . 'EQEX' ;
  36 :    tbt = rv . 'TBT' ;
  37 :    $vtf = rvx . 'DOMZ' ;
  38 :    kdis = rvx . 'ARG1' ;
  39 :    unm  = rvx . 'ARG2' ;
  40 :    cun  = rvx . 'ARG3' ;
  41 :    nominco = 'EXTRAIRE' (rvx . 'LISTINCO') 1 ;
  42 :    rvni = 'EQEX'
  43 :        'OPTI' TBT.'FEF' TBT.'FIMPL' 'SUPG' 'EFM1' 'CENTREE'
  44 :         'ZONE'  $vtf  'OPER' 'DFDT' kdis unm cun 'INCO' nominco ;
  45 :    rvni . 'INCO' = rv . 'INCO' ;
  46 :    mat chpo = 'DFDT' (rvni . '1DFDT') ;
  47 :    'RESPRO' mat chpo ;
  48 : *
  49 : * End of procedure file PENCECHI
  50 : *
  51 : 'FINPROC' ;
  52 : 
  53 :