Télécharger dhldp0.eso

Retour à la liste

Numérotation des lignes :

dhldp0
  1. C DHLDP0 SOURCE CHAT 05/01/12 22:48:48 5004
  2. FUNCTION DHLDP0(P,T)
  3. C--------------------------------------------------------------------
  4. C derivee partielle de Enthalpie liquide spécifique par rapport a P
  5. C Issue de la fonction Enthalpie liquide HLS0(P,T)
  6. C--------------------------------------------------------------------
  7. C
  8. C E/ P : Pression (en Pa)
  9. C E/ T : Température (en K)
  10. C /S DHLDP0 : D/DP(Hl) Derivee partielle enthalpie spécifique
  11. C liquide par rapport à la pression P (en J/kg/Pa)
  12.  
  13. C--------------------------------------------------------------------
  14. IMPLICIT INTEGER(I-N)
  15. IMPLICIT REAL*8 (A-H,O-Z)
  16.  
  17. C DERIVEE DES COEFFICIENTS
  18. C ****************************************************
  19. C d/dP(hl1(P))
  20. DHL1 = 0.18637D-2
  21. C ****************************************************
  22. C d/dP(hl2(P))
  23. DHL2 = ((2*0.3654D-12)*P)-(0.30413D-5)
  24. C ****************************************************
  25. C d/dP(hl3(P))
  26. DHL3 = ((-0.95261D-8)*2*P)-(0.25785D0)
  27. C ****************************************************
  28. C COEFFICIENT hl4
  29. HL4 = 399.98D0
  30. C ****************************************************
  31. C TEMPERATURE T-T0
  32. C ****************************************************
  33. TL1 = (T - 273.15D0)
  34. C ****************************************************
  35. C FORMULE EXACTE DE LA DERIVEE
  36. DHLDP0 = DHL1 +(DHL2 * TL1)+(DHL3/(HL4 - TL1))
  37. RETURN
  38. END
  39.  
  40.  
  41.  
  42.  

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