Télécharger zvap0.eso

Retour à la liste

Numérotation des lignes :

  1. C ZVAP0 SOURCE SERRE 16/11/25 21:15:06 9165
  2. FUNCTION ZVAP0(RO,T)
  3. C
  4. C---------------------------------------------------------------------
  5. C Correction gaz reel pour la vapeur (issue de RALOC)
  6. C---------------------------------------------------------------------
  7. C
  8. C E/ RO : Densité de vapeur (en kg/m3)
  9. C E/ T : Température (en K)
  10. C /S ZVAP0 : Correction gaz reel pour la vapeur (p = ro R Z T)
  11. C
  12. C--------------------------------------------------------------------
  13. C
  14. IMPLICIT INTEGER(I-N)
  15. IMPLICIT REAL*8 (A-H,O-Z)
  16. C
  17. B0 = -4512.70756D0
  18. B1 = 4245585.9D0
  19. B2 = -1584624342.D0
  20. R = 461.523D0
  21. ZVAP1 = ((B0*T + B1) * T + B2) * RO / (R * T**3.D0) + 1.D0
  22. ZVAP0 = MAX(ZVAP1,0.5D0)
  23. C
  24. END
  25.  
  26.  
  27.  
  28.  
  29.  

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