Esope source files

   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 :