Sources Esope | Cast3M

lbdaliq0
C LBDALIQ0  SOURCE    SERRE     16/07/20    21:15:04     9017           
      FUNCTION LBDALIQ0(P,T)
C--------------------------------------------------------------------
C Conductivité thermique de l'eau en fonction de la pression et de la
C température (issue de CATHARE) : les data sont des FLOTTANTS
C--------------------------------------------------------------------
C Conductivité thermique de l'eau (issue de CATHARE)
C--------------------------------------------------------------------
C
C  E/  P        : Pression (en Pa)
C  E/  T        : Température (en K)
C   /S LBDALIQ0 : Conductivité thermique de l'eau (en W/m/K)
C
C-----------------------------------------------------------------------
C
C Langage : ESOPE + FORTRAN77
C Auteurs : F.DABBENE 2016/05
C
C-----------------------------------------------------------------------
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
      REAL*8 LBDALIQ0
C
      HL1 = HLS0(P,T)
      a0 = 0.573738622D0
      a1 = 0.2536103551D0
      a2 = -0.145468269D0 
      a3 = 0.01387472485D0
      x  = 1.7196904D-6 * HL1
C
      LBDALIQ0 = a0 + x*(a1 + x*(a2 + x*a3))
C
      END