Sources Esope | Cast3M

hls0
C HLS0      SOURCE    CHAT      05/01/13    00:24:29     5004
      FUNCTION HLS0(P,T)
C
C--------------------------------------------------------------------
C Enthalpie liquide spécifique en fonction de P et de T
C--------------------------------------------------------------------
C
C  E/  P     : Pression (en Pa)
C  E/  T     : Température (en K)
C   /S HLS0  : Enthalpie spécifique liquide (en J/kg)
C
C--------------------------------------------------------------------
C
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
C
      HL1  = 0.18637D-2   * P - 0.50352D5
      HL2  = (0.3654D-12  * P - 0.30413D-5) * P + 0.40047D4
      HL3  = (-0.95261D-8 * P - 0.25785D0)  * P + 0.20641D8
      HL4  = 399.98D0
      TL1  = T - 273.15D0
      HLS0 = HL1 + (HL2 * TL1) + (HL3 / (HL4 - TL1))
C
      END