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