Télécharger bhech.eso

Retour à la liste

Numérotation des lignes :

  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.  
  25.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales