Sources Esope | Cast3M

tliqu0
C TLIQU0    SOURCE    CHAT      05/01/13    03:41:45     5004
      FUNCTION TLIQU0(P,HLIQ)
C
C--------------------------------------------------------------------
C Température de l'eau liquide en fonction de la pression et de
C l'enthalpie liquide spécifique.
C--------------------------------------------------------------------
C  E/   P      : Pression de l'enceinte (en Pa)
C  E/   HLIQ   : Enthalpie liquide spécifique (en J/kg)
C   /S  TLIQU0 : Température liquide (en K)
C--------------------------------------------------------------------
C
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
C
      HL1 = P * 0.18637D-2 - 0.50352D+5
      HL2 = (P * 0.3654D-12 - 0.30413D-5) * P + 0.40047D+4
      HL3 = (-0.95261D-8 * P - 0.25785D0) * P + 0.20641D+8
      HL4 = 399.98
      DET = (HLIQ - HL1 + (HL2 * HL4)) ** 2. - (4.D0 * HL2 *
     &      (HL4 * (HLIQ - HL1) - HL3))
      TLIQU0 = (HLIQ - HL1 + (HL2 * HL4)
     &       - (DET ** 0.5)) / (2.D0 * HL2)
     &       + 273.15D0
C
      END