Esope source files

   1 : C BHECH     SOURCE    CHAT      05/01/12    21:39:54     5004           
   2 :       FUNCTION BHECH(RE,REL,PR,XLA,E)
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8 (A-H,O-Z)
   5 : C
   6 : C     operateur FUITE
   7 : C>>>  calcule le coefficient d'echange thermique
   8 : C       RE : nombre de Reynolds
   9 : C       PR : nombre de Prandtl
  10 : C       REL: nombre de Reynolds transition laminaire turbulent
  11 : C       XLA: conductivite de l'air
  12 : C       E  : epaisseur fissure
  13 : C       XNU: nombre de Nusselt
  14 : C
  15 :       IF (RE.LT.REL) THEN
  16 :          XNU=7.6
  17 :       ELSE
  18 :          XNU=.023*RE**(.8)*PR**(.4)
  19 :       ENDIF
  20 :       BHECH=XNU*XLA/2/E
  21 :       RETURN
  22 :       END
  23 :  
  24 :