Télécharger la plaquette Cast3M


fr en

Télécharger ppre.procedur

Retour à la liste

Numérotation des lignes : 

  1. * PPRE      PROCEDUR  MAGN      14/07/15    21:15:04     8096           
  2.  
  3.   debproc ppre  rx*table                                            ;
  4.  
  5. * Operateur PPRE
  6. * -------------
  7. *
  8. * Description: The PPRE operator computes the pressure gradient term
  9. *              for the particle qdm equation.
  10. *
  11. *              It computes the term: grad(P)/rho_p
  12. *
  13. * Syntax (EQEX) :
  14. *
  15. *         PPRE  VN rho_p
  16. *
  17. * rho_p   FLOTTANT Particle density
  18. * VN      MOT      CHPOINT (VECT SOMMET) in table INCO for the
  19. *                  particle velocity
  20.  
  21.   uname   = rx.arg1                                                 ;
  22.   coef    = rx.arg2                                                 ;
  23.   rv      = rx.eqex                                                 ;
  24.   rvi     = rx.eqex.'INCO'                                          ;
  25.  
  26. * modifica pressione
  27.  
  28.   si (exist rvi gradp)                                              ;
  29.      gpp             = (rvi.'GRADP') *  coef                        ;
  30.      fp              = rv.'KIZG'.uname                              ;
  31.      rv.'KIZG'.uname = kops fp '-' gpp                              ;
  32.   finsi                                                             ;
  33.  
  34.     as2 ama1  = 'KOPS' 'MATRIK'                                     ;
  35.     finproc as2 ama1                                                ;
  36.  
  37.  

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