Télécharger la plaquette Cast3M


fr en

Télécharger fla002.eso

Retour à la liste

Numérotation des lignes : 

fla002

  1. C FLA002    SOURCE    TTMF3     12/07/05    21:15:21     7425
  2.       FUNCTION FLA002(X,TRAV)
  3. C------------------------------------------------------------------------
  4. C Calcul du produit de la masse molaire du mélange par la chaleur
  5. C massique du mélange (en J/mol/K) en fonction de la composition du
  6. C mélange (comme Cp=Cpi*Yi et que Yi=Wi*Xi/W, W*Cp = Wi*Cpi*Xi)
  7. C------------------------------------------------------------------------
  8. C
  9. C---------------------------
  10. C Parametres Entree/Sortie :
  11. C---------------------------
  12. C
  13. C E/  X(7)   : flottant : Fraction molaire de N2, O2, H2 et H2O
  14. C  /S FLA002 : flottant : Produit W*Cp (J/mol/K)
  15. C
  16. C------------------------------
  17. C Variables de TRAV utilisées :
  18. C------------------------------
  19. C
  20. C E/  CPI(7) : Chaleur massique des constituants du mélange (J/kg/K)
  21. C E/  M(7)   : Masse molaire des constituants du mélange (kg/mol)
  22. C
  23. C------------------------------------------------------------------------
  24. C
  25. C Langage : ESOPE + FORTRAN 77
  26. C
  27. C Mise en oeuvre : H. Paillère (1997, TTMF)
  28. C
  29. C------------------------------------------------------------------------
  30.       IMPLICIT INTEGER(I-N)
  31.       IMPLICIT REAL*8 (A-H,O-Z)
  32.       REAL*8 FLA002
  33.       REAL*8 X(7)
  34.       segment trav
  35.            integer iKALP,iMODEL
  36.            real*8 e,L,Lch,Dh,S,sp,Ck
  37.            real*8 mc,Cpc
  38.            real*8 g,R,deltah
  39.            real*8 M(nbesp),cstmod(ncst)
  40.            real*8 Cpi(nbesp),al
  41.            real*8 eps_mh2,eps_dt,eps_con,u
  42.            real*8 XH2MOY,XO2MOY,XN2MOY,XH2OMOY,PRESSION,TEMPENT
  43.            real*8 XHEMOY,XCO2MOY,XCOMOY
  44.       endsegment
  45. C
  46.       ibou = cpi(/1)
  47.       sum  = 0.D0
  48.       do 10 i=1,ibou
  49.          sum = sum + cpi(i)*m(i)*x(i)
  50.  10   continue
  51.       FLA002 = sum
  52. C
  53.       RETURN
  54.       END
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  

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