Télécharger la plaquette Cast3M


fr en

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