Télécharger fla003.eso

Retour à la liste

Numérotation des lignes :

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

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