Télécharger rovap0.eso

Retour à la liste

Numérotation des lignes :

  1. C ROVAP0 SOURCE SERRE 16/11/25 21:15:04 9165
  2. FUNCTION ROVAP0(P,T)
  3. C--------------------------------------------------------------------
  4. C Densité vapeur fonction de P et de T (issu de RALOC)
  5. C--------------------------------------------------------------------
  6. C
  7. C E/ P : Pression partielle de vapeur (en Pa)
  8. C E/ T : Température (en K)
  9. C /S ROVAP0 : Densité de la vapeur (en kg/m3)
  10. C
  11. C--------------------------------------------------------------------
  12. IMPLICIT INTEGER(I-N)
  13. IMPLICIT REAL*8 (A-H,O-Z)
  14. C
  15. B0 = -4512.70756D0
  16. B1 = 4245585.9D0
  17. B2 = -1584624342.D0
  18. R = 461.523D0
  19. C
  20. RAC1 = ((B0*T + B1) * T + B2) * P / (T**4.D0) + (R*R/4.D0)
  21. IF (RAC1 .GT. 0.D0) THEN
  22. RAC1 = RAC1 ** 0.5D0
  23. ELSE
  24. RAC1 = 0.D0
  25. ENDIF
  26. ZVAP1 = RAC1/R + 0.5D0
  27. C
  28. ROVAP0 = P / (R * T * ZVAP1)
  29. C
  30. END
  31.  
  32.  
  33.  
  34.  
  35.  

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