Esope source files

   1 : C BPHYS     SOURCE    CHAT      05/01/12    21:42:20     5004           
   2 :       SUBROUTINE BPHYS(T0,P0,RA,RV,CA,CV,CL,XLAT,ROL,XKL,XKT,REL)
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8 (A-H,O-Z)
   5 : C
   6 : C     operateur FUITE
   7 : C>>>  definit des proprietes physiques ou des grandeurs de reference
   8 : C
   9 : C     param}tres de sortie
  10 : C       T0,P0    :
  11 : C       RA,RV    : constante gaz parfait air, vapeur
  12 : C       CA,CV,CL : chaleur massique air, vapeur, eau liquide
  13 : C       XLAT     : chaleur latente
  14 : C       ROL      : masse volumique liquide
  15 : C       XKL      : pour la loi de frottement en laminaire
  16 : C       XKT      :                              turbulent lisse
  17 : C       REL      : Reynolds de transition laminaire-turbulent
  18 : C
  19 :       T0 = 273.15
  20 :       P0 = 1.D5
  21 :       RA = 287.
  22 :       RV = 462.
  23 :       CA=1.D3
  24 :       CV=2.2D3
  25 :       CL=4.2D3
  26 :       XLAT=2.976D6
  27 :       ROL =1.D3
  28 :       XKL=96.
  29 :       XKT=.316
  30 :       REL=2042.
  31 :       RETURN
  32 :       END
  33 :  
  34 :  
  35 :  
  36 :