Télécharger pvap0.eso

Retour à la liste

Numérotation des lignes :

  1. C PVAP0 SOURCE SERRE 16/11/25 21:15:04 9165
  2. FUNCTION PVAP0(RO,T)
  3. C
  4. C---------------------------------------------------------------------
  5. C Pression partielle de vapeur fonction de RO et de T (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 PVAP0 : Pression partielle de 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.513D0
  21. C
  22. ZVAP1 = ((B0*T + B1) * T + B2) * RO / (R * T**3.D0) + 1.D0
  23. ZVAP0 = MAX(ZVAP1,0.5D0)
  24. PVAP0 = ZVAP0 * RO * R * T
  25. C
  26. END
  27.  
  28.  
  29.  
  30.  

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