>>>>>>>>>>>>>>>>>>>>>> Comment begins >>>>>>>>>>>>>>>>>>>>

  DISPLAY
    This run analyses the flow in a cavity,  the top wall of
    which moves with a constant velocity.
 
    The library case Z100 which deals with varying viscosity
    is extended here by  PLANT  for  varying  density,  heat
    capacity  and Prandtl number.  The property correlations
    are taken with no modification from library case Z101.
  ENDDIS
 
    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)

RELAX(TEMP,FALSDT,0.05)
LSWEEP=1000

  PLANTBEGIN
     * 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(TEMP)=VISL*DEN1*ISPH1/(1.1630*(-0.1909+.003155$
                 *TEMP-1.0341e-5*TEMP**2+1.0666e-8*TEMP**3))
  PLANTEND

TSTSWP=-1
dmpstk=t
DISTIL=T
EX(P1)=6.110E+00; EX(U1)=6.955E-02; EX(V1)=5.321E-02
EX(TEMP)=3.196E+00; EX(VISL)=6.188E-06
 LIBREF=612
STOP