Esope source files

   1 : C BECALC    SOURCE    DURA      06/07/11    21:17:09     5481           
   2 :        SUBROUTINE BECALC(PE,PVE,TE,PS,XL,DX,RUG,QINI,XW,NNP,XN,TN,EN,BN,
   3 :      $       KIMP,NT,NX,XX,XP,XPV,XT,XY,XU,XHF,XQ,XQW,XQA,XRE,XDH,RECU,
   4 :      $       XKUL,XKUT1,XKUT2,XKUT3,XKUT4)
   5 :       IMPLICIT INTEGER(I-N)
   6 :       IMPLICIT REAL*8 (A-H,O-Z)
   7 : C
   8 : C     operateur FUITE
   9 : C>>>  parametres d'entree:
  10 : C       PE  : pression totale a l'entree
  11 : C       PVE : pression de vapeur a l'entree
  12 : C       TE  : temperature d'entree
  13 : C       PS  : pression de sortie
  14 : C       XL  : longueur de la fissure
  15 : C       DX  : taille relative maille fluide
  16 : C       RUG : rugosite
  17 : C       QINI: debit initialisation
  18 : C       XW  : parametre de condensation
  19 : C       XN TN EN : abscisses temperature et epaisseur de la paroi
  20 : C                   (dimension NNP)
  21 : C       KIMP: parametre d'impression
  22 : C       NT  : dimension max. grille fluide
  23 : C     RECU,XKUL,XKUT1,XKUT2,XKUT3,XKUT4 : coef lois de frot utilisateur
  24 : C
  25 : C>>>  parametres de sortie:
  26 : C       NX  : nombre de points grille fluide
  27 : C       pour la grille fluide
  28 : C       XX  : coordonnees relatives
  29 : C       XP XPV XT XU XY XHF XQ XQW XQA XRE
  30 : C       pression, pression vapeur, temperature, titre, vitesse
  31 : C       coef. echange, debit total, debit eau (liq.+vap.), debit air
  32 : C       Reynolds
  33 : 
  34 :       DIMENSION XX(NT),XP(NT),XT(NT),XY(NT),XU(NT),XPV(NT)
  35 :       DIMENSION XHF(NT),XQ(NT),XQW(NT),XQA(NT),XRE(NT),XDH(NT)
  36 :       DIMENSION XN(NNP),TN(NNP),EN(NNP),BN(NNP)
  37 : C
  38 :       IF(KIMP.GE.1) THEN
  39 :         WRITE(6,*) 'entree becalc  '
  40 :       ENDIF
  41 :       TE = TE + 273.15
  42 :       IF (QINI.LT.1.E-5) THEN
  43 : 
  44 : C>>>  calcul du debit correspondant a un melange gazeux isotherme
  45 : C     a la temperature d'entree
  46 : C
  47 :       E=(EN(1)+EN(NNP))/2.
  48 :       B=(BN(1)+BN(NNP))/2.
  48 :       CALL BCALQ0(PE,PVE,TE,PS,XL,E,B,RUG,Q0,RECU,XKUL,XKUT1,XKUT2,
  49 :      * XKUT3,XKUT4)
  50 :       ELSE
  51 :       Q0 = QINI
  52 :       ENDIF
  53 : C
  54 : C>>>  calcul du debit solution
  55 : 
  55 :       CALL BCALDP(PE,PVE,TE,PS,XL,DX,RUG,Q0,XW,NNP,XN,TN,EN,BN,
  56 :      $           KIMP,NT,NX,XX,XP,XT,XY,XU,XHF,XQ,XQW,
  57 :      $               Q,QAE,XRE,XDH,RECU,XKUL,XKUT1,XKUT2,XKUT3,XKUT4)
  58 : 
  59 : C>>>  calcul de la pression vapeur et des debits resultats
  60 : 
  61 :       DO 15 I=1,NX
  62 : 
  63 :          IF (XY(I).GT.0.99) THEN
  64 :             PHI=PVE/PE
  65 :             XPV(I)=PHI*XP(I)
  66 :          ELSE
  67 :             T=XT(I)+273.15
  68 :             XPV(I)=BPSAT(T)
  69 :          ENDIF
  70 : 
  71 : C>>   a revoir
  72 :          XQA(I) = QAE
  73 :          XQW(I) = XQ(I)
  74 :          XQ (I) = XQA(I)+XQW(I)
  75 : 
  76 :   15  CONTINUE
  77 : C
  78 : C>>   a revoir
  79 :        XHF(1) = XHF(2)
  80 :        XRE(1) = XRE(2)
  81 :        XDH(1) = XDH(2)
  82 : 
  83 :       RETURN
  84 :       END
  85 :  
  86 :  
  87 :  
  88 :  
  89 :  
  90 :  
  91 :