Sources Esope | Cast3M

muliq0
C MULIQ0    SOURCE    SERRE     16/07/20    21:15:07     9017           
      FUNCTION MULIQ0(T)
C--------------------------------------------------------------------
C Conductivité thermique de l'eau en fonction de la température 
C (issue de CATHARE) : les data sont des FLOTTANTS
C--------------------------------------------------------------------
C
C  E/  T      : Température du liquide (en K)
C   /S MULIQ0 : 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 MULIQ0
C
      MULIQ0 = 2.414D-5 * (EXP(570.58058D0 / (-140.D0 + T))) 
C
      END