Télécharger bwall.eso

Retour à la liste

Numérotation des lignes :

  1. C BWALL SOURCE CHAT 05/01/12 21:44:34 5004
  2. FUNCTION BWALL (XLAT,CV,PHI,H,FT)
  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 linéarisé du a la condensation
  8. C en film
  9. C XLAT : chaleur latente
  10. C CV : chaleur specifique vapeur
  11. C PHI : PV/P
  12. C H : coefficient echange simple phase
  13. C FT : D/DT de Psat(T)
  14. C D : coefficient de diffusion de la vapeur dans l'air
  15. C A : diffusivite du gaz
  16. D=2.5E-5
  17. A=2.3E-5
  18. BWALL=(XLAT/CV)*(PHI/(1.-PHI))* H * FT
  19. BWALL=BWALL*((D/A)**(2./3.))
  20. C WRITE(6,*)'FT XLAT/CV PHI/(1.-PHI) = ',FT,(XLAT/CV),PHI/(1.-PHI)
  21. C WRITE(6,*)'HW H HW/H = ',BWALL,H,(BWALL/H)
  22. RETURN
  23. END
  24.  
  25.  
  26.  

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