TALK=f;RUN( 1, 1)

TEXT( Library case Y609: Varying properties recirculating flow.

  >>>>>>>>>>>>>>>>>>>>>> Comment begins >>>>>>>>>>>>>>>>>>>>>>>>>>>>
    PLANT information :
     * Data input groups used:  9
     * Ground groups planted :  9-14,-1, -6, -7.
     * Headings used  : PRPT??
     * Functions used : None
     * Commands used  : None
  <<<<<<<<<<<<<<<<<<<<<<<<<  Comment ends <<<<<<<<<<<<<<<<<<<<<<<<<<

 LOAD(Z100)
     * Density
RHO1=GRND
REAL(DENC0,DENC1,DENC2,DENC3)
DENC0=1.1386e3;DENC1=1.0388;DENC2=5.81149E-4;DENC3=-6.7765E-7
  DEN1=:DENC0:+:DENC1:*TEMP+:DENC2:*TEMP**2+(:DENC3:)$
                                                     *TEMP**3
     * Heat capacity
CP1=GRND
   ISPH1=4186.8*(0.616-0.0040428*TEMP+1.8333e-05*TEMP$
                                       **2-2.38e-08*TEMP**3)
     *Prandtl number
PRNDTL(TEMP)=GRND
   LAMPR(H1)=VISL*DEN1*ISPH1/(1.1630*(-0.1909+.003155$
                 *TEMP-1.0341e-5*TEMP**2+1.0666e-8*TEMP**3))
TSTSWP=-1
STOP