TALK=T;RUN(1,1)
  DISPLAY

  This In-Form case illustrates the setting of properties by
  way of case 089.

  First, case 249 (moving-wall cavity) is loaded. Then, the
  wall temperatures are changed.to absolute values

  The variable TEM1 is created as equal to H1, which case 249
  treats as temperature rather than enthalpy.

  Thereafter case 089, which contains fluid properties as
  functions of TEM1, is loaded for fluid_name = saturated_water.

  The following In-Form statement calculates the enthalpy

  (STORED var ENT1 is TEM1*CP1)

  The Q1 contains PHOTON USE commands
  ENDDIS
  USTRBEGIN
  NAMPLT MAP
  NAMVAR U1
  USTREND
  DISPLAY

  This run analyses the flow in a cavity, the top wall of which
  moves with a constant velocity. The stationary walls are at one
  temperature, the moving wall is at a different temperature.
  Interesting variants include: changes to the velocity and
  temperature of the moving wall; changes to the aspect ratio
  of the cavity; and changes to the temperatures of the walls
  at rest.

  The USTEER feature is activated by UWATCH=T;USTEER=T and by the
  file.

  In-Form statements are introduced which enable the residuals of
  and corrections to the temperature variable H1, namely HRES and
  HCOR, to be printed, and viewed via PHOTON.

  ENDDIS
  PHOTON USE
  p;;;;

  con h1 z 1 fi;0.001
  msg contours of temperature (h1)
  pause
  con hres z 1 fi;0.001
  msg contours of temperature residuals (hres)
  pause
  con hcor z 1 fi;0.001
  msg contours of temperature corrections (hcor)
  pause; con off; red
  vec z 1 fi;0.001
  msg velocity vectors (h1)
  pause
  gr z 1
  msg the computational grid

  ENDUSE
  PHOTON USE
  p;;;;;

  con TEM1 z 1 fi;0.001
  pause
  con cp1 z 1 fi;0.001
  pause
  con enul z 1 fi;0.001
  pause
  con rho1 z 1 fi;0.001
  pause
  con ent1 z 1 fi;0.001
  ENDUSE
 ************************************************************
  Group 1. Run Title and Number
 ************************************************************
 ************************************************************
 
 TEXT(SATURATED_WATER                         )
 
 ************************************************************
 ************************************************************
 
 IRUNN = 1 ;LIBREF = 761
 ************************************************************
  Group 2. Time dependence
 STEADY = T
 ************************************************************
  Group 3. X-Direction Grid Spacing
 CARTES = T
 NX = 10
 XULAST =0.1
 XFRAC(1)=0.02 ;XFRAC(2)=0.08
 XFRAC(3)=0.18 ;XFRAC(4)=0.32
 XFRAC(5)=0.5 ;XFRAC(6)=0.68
 XFRAC(7)=0.82 ;XFRAC(8)=0.92
 XFRAC(9)=0.98 ;XFRAC(10)=1.
 ************************************************************
  Group 4. Y-Direction Grid Spacing
 NY = 10
 YVLAST =0.1
 YFRAC(1)=0.02 ;YFRAC(2)=0.08
 YFRAC(3)=0.18 ;YFRAC(4)=0.32
 YFRAC(5)=0.5 ;YFRAC(6)=0.68
 YFRAC(7)=0.82 ;YFRAC(8)=0.92
 YFRAC(9)=0.98 ;YFRAC(10)=1.
 ************************************************************
  Group 5. Z-Direction Grid Spacing
 PARAB = F
 NZ = 1
 ZWLAST =1.
 ZFRAC(1)=1.
 ************************************************************
  Group 6. Body-Fitted Coordinates
 ************************************************************
  Group 7. Variables: STOREd,SOLVEd,NAMEd
 ONEPHS = T
 NAME(1)=P1 ;NAME(3)=U1
 NAME(5)=V1 ;NAME(14)=H1
 NAME(143)=TEM1 ;NAME(144)=COND
 NAME(145)=ENUL ;NAME(146)=RHO1
 NAME(147)=CP1 ;NAME(148)=ENT1
 NAME(149)=HCOR ;NAME(150)=HRES
    * Y in SOLUTN argument list denotes:
    * 1-stored 2-solved 3-whole-field
    * 4-point-by-point 5-explicit 6-harmonic averaging 
 SOLUTN(P1,Y,Y,N,N,N,Y)
 SOLUTN(U1,Y,Y,N,N,N,Y)
 SOLUTN(V1,Y,Y,N,N,N,Y)
 SOLUTN(H1,Y,Y,N,N,N,Y)
 SOLUTN(TEM1,Y,N,N,N,N,N)
 SOLUTN(COND,Y,N,N,N,N,Y)
 SOLUTN(ENUL,Y,N,N,N,N,Y)
 SOLUTN(RHO1,Y,N,N,N,N,Y)
 SOLUTN(CP1,Y,N,N,N,N,Y)
 SOLUTN(ENT1,Y,N,N,N,N,Y)
 SOLUTN(HCOR,Y,N,N,N,N,N)
 SOLUTN(HRES,Y,N,N,N,N,N)
 DEN1 = 146
 VISL = 145
 ************************************************************
  Group 8. Terms & Devices
    * Y in TERMS argument list denotes:
    * 1-built-in source 2-convection 3-diffusion 4-transient
    * 5-first phase variable 6-interphase transport         
 TERMS(P1,Y,Y,Y,N,Y,Y)
 TERMS(U1,Y,Y,Y,Y,Y,Y)
 TERMS(V1,Y,Y,Y,Y,Y,Y)
 TERMS(H1,N,Y,Y,Y,Y,Y)
 DIFCUT =0.5 ;ZDIFAC =1.
 GALA = F ;ADDDIF = F
 ISOLX = -1 ;ISOLY = -1 ;ISOLZ = -1
 ************************************************************
  Group 9. Properties used if PRPS is not
  stored, and where PRPS = -1.0 if it is!
 RHO1 =1. ;TMP1 =0.
 EL1 =0.
 TSURR =0. ;TEMP0 =0.
 PRESS0 =0.
 DVO1DT =0. ;DRH1DP =0.
 EMISS =0. ;SCATT =0.
 RADIA =0. ;RADIB =0.
 ENUL =1.0E-05 ;ENUT =0.
 PRNDTL(U1)=1. ;PRNDTL(V1)=1.
 PRNDTL(H1)=0.7
 PRT(U1)=1. ;PRT(V1)=1.
 PRT(H1)=1.
 CP1 =1. ;CP2 =1.
 ************************************************************
  Group 10.Inter-Phase Transfer Processes
 ************************************************************
  Group 11.Initial field variables (PHIs)
 FIINIT(P1)=1.0E-10 ;FIINIT(U1)=1.0E-10
 FIINIT(V1)=1.0E-10 ;FIINIT(H1)=300.
 FIINIT(TEM1)=1.0E-10 ;FIINIT(COND)=1.0E-10
 FIINIT(ENUL)=1.0E-10 ;FIINIT(RHO1)=1.0E-10
 FIINIT(CP1)=1.0E-10 ;FIINIT(ENT1)=1.0E-10
 FIINIT(HCOR)=1.0E-10 ;FIINIT(HRES)=1.0E-10
   No PATCHes yet used for this Group
 INIADD = F
 FSWEEP = 1
 NAMFI =CHAM
 ************************************************************
  Group 12. Patchwise adjustment of terms
  Patches for this group are printed with those
  for Group 13.
  Their names begin either with GP12 or &
 ************************************************************
  Group 13. Boundary & Special Sources
 
 PATCH(SOUTH ,SWALL , 1, 10, 1, 1, 1, 1, 1, 1)
 COVAL(SOUTH ,U1 ,1. ,0. )
 COVAL(SOUTH ,H1 ,1. ,273. )
 
 PATCH(MOVE ,NWALL , 1, 10, 10, 10, 1, 1, 1, 1)
 COVAL(MOVE ,U1 ,1. ,1. )
 COVAL(MOVE ,H1 ,1. ,350. )
 
 PATCH(WEST ,WWALL , 1, 1, 1, 10, 1, 1, 1, 1)
 COVAL(WEST ,V1 ,1. ,0. )
 COVAL(WEST ,H1 ,1. ,273. )
 
 PATCH(EAST ,EWALL , 10, 10, 1, 10, 1, 1, 1, 1)
 COVAL(EAST ,V1 ,1. ,0. )
 COVAL(EAST ,H1 ,1. ,273. )
 
 PATCH(FIXPRESS,CELL , 5, 5, 5, 5, 1, 1, 1, 1)
 COVAL(FIXPRESS,P1 ,1. ,0. )
 COVAL(FIXPRESS,U1 ,0. ,0. )
 COVAL(FIXPRESS,V1 ,0. ,0. )
 XCYCLE = F
 EGWF = T
 WALLCO = GRND2
 ************************************************************
  Group 14. Downstream Pressure For PARAB
 ************************************************************
  Group 15. Terminate Sweeps
 LSWEEP = 500 ;ISWC1 = 1
 LITHYD = 1 ;LITFLX = 1 ;LITC = 1 ;ITHC1 = 1
 SELREF = T
 RESFAC =1.0E-06
 ************************************************************
  Group 16. Terminate Iterations
 LITER(P1)=20 ;LITER(U1)=10
 LITER(V1)=10 ;LITER(H1)=20
 ENDIT(P1)=1.0E-03 ;ENDIT(U1)=1.0E-03
 ENDIT(V1)=1.0E-03 ;ENDIT(H1)=1.0E-03
 ************************************************************
  Group 17. Relaxation
 RELAX(P1,LINRLX,1.)
 RELAX(U1,FALSDT,0.1)
 RELAX(V1,FALSDT,0.1)
 RELAX(H1,FALSDT,1.0E+09)
 RELAX(TEM1,LINRLX,1.)
 RELAX(COND,LINRLX,1.)
 RELAX(ENUL,LINRLX,1.)
 RELAX(RHO1,LINRLX,1.)
 RELAX(CP1,LINRLX,1.)
 RELAX(ENT1,LINRLX,1.)
 RELAX(HCOR,LINRLX,1.)
 RELAX(HRES,LINRLX,1.)
 OVRRLX =0.
 EXPERT = F ;NNORSL = F
 ************************************************************
  Group 18. Limits
 VARMAX(P1)=1.0E+10 ;VARMIN(P1)=-1.0E+10
 VARMAX(U1)=1.0E+06 ;VARMIN(U1)=-1.0E+06
 VARMAX(V1)=1.0E+06 ;VARMIN(V1)=-1.0E+06
 VARMAX(H1)=1.0E+10 ;VARMIN(H1)=-1.0E+10
 VARMAX(TEM1)=1.0E+10 ;VARMIN(TEM1)=-1.0E+10
 VARMAX(COND)=1.0E+10 ;VARMIN(COND)=-1.0E+10
 VARMAX(ENUL)=1.0E+10 ;VARMIN(ENUL)=-1.0E+10
 VARMAX(RHO1)=1.0E+10 ;VARMIN(RHO1)=-1.0E+10
 VARMAX(CP1)=1.0E+10 ;VARMIN(CP1)=-1.0E+10
 VARMAX(ENT1)=1.0E+10 ;VARMIN(ENT1)=-1.0E+10
 VARMAX(HCOR)=1.0E+10 ;VARMIN(HCOR)=-1.0E+10
 VARMAX(HRES)=1.0E+10 ;VARMIN(HRES)=-1.0E+10
 ************************************************************
  Group 19. Data transmitted to GROUND
 PARSOL = F
 ISG62 = 1
 SPEDAT(SET,STORED,HRES,C,=RESI(H1)!RESIDU)
 SPEDAT(SET,STORED,HCOR,C,=CORR(H1)!CORREC)
 SPEDAT(SET,STORED,TEM1,C,=H1!ZSLFIN)
 SPEDAT(SET,STORED,ENT1,C,=H1*CP1!ZSLFIN)
 SPEDAT(SET,PROPERTY,RHO1,C,=POL5((TEM1+0.)&2446.&-20.6741&.11576&$)
 SPEDAT(SET,PROPERTY,RHO1,C,-3.12895E-4&4.0505E-7&-2.05460E-10))
 SPEDAT(SET,PROPERTY,ENUL,C,=1.E-7*EXP((1.12646-.039638*(TEM1+0.))$)
 SPEDAT(SET,PROPERTY,ENUL,C,/(1.-7.29769E-3*(TEM1+0.)))/RHO1)
 SPEDAT(SET,PROPERTY,ENUL,C,=1.E-7*EXP((1.12646-.039638*(TEM1+0.))$)
 SPEDAT(SET,PROPERTY,ENUL,C,/(1.-7.29769E-3*(TEM1+0.)))/RHO1)
 SPEDAT(SET,PROPERTY,CP1,C,=EXP((8.29041-.012557*(TEM1+0.))/(1.-1.$)
 SPEDAT(SET,PROPERTY,CP1,C,52373E-3*(TEM1+0.))))
 SPEDAT(SET,STORED,COND,C,=.001*POL5((TEM1+0.)&62.282&-1.768417&.0$)
 SPEDAT(SET,STORED,COND,C,3499&-1.15706E-4&1.53599E-7&-7.7477E-11)$)
 SPEDAT(SET,STORED,COND,C,!ZSLFIN)
 SPEDAT(SET,PROPERTY,CN143,C,=COND/CP1)
 ************************************************************
  Group 20. Preliminary Printout
 DISTIL = T ;NULLPR = F
 NDST = 0
 DSTTOL =1.0E-02
 EX(P1)=0.7005 ;EX(U1)=0.02769
 EX(V1)=0.0254 ;EX(H1)=291.899994
 EX(TEM1)=290.899994 ;EX(COND)=0.595
 EX(ENUL)=1.054E-06 ;EX(RHO1)=996.5
 EX(CP1)=4147. ;EX(ENT1)=1.207E+06
 EX(HCOR)=3.453E-05 ;EX(HRES)=1.924E-06
 ************************************************************
  Group 21. Print-out of Variables
 INIFLD = F ;SUBWGR = F
    * Y in OUTPUT argument list denotes:
    * 1-field 2-correction-eq. monitor 3-selective dumping      
    * 4-whole-field residual 5-spot-value table 6-residual table
 OUTPUT(P1,Y,N,Y,Y,Y,Y)
 OUTPUT(U1,Y,N,Y,Y,Y,Y)
 OUTPUT(V1,Y,N,Y,Y,Y,Y)
 OUTPUT(H1,Y,N,Y,Y,Y,Y)
 OUTPUT(TEM1,Y,N,Y,N,N,N)
 OUTPUT(COND,Y,N,Y,N,N,N)
 OUTPUT(ENUL,Y,N,Y,N,N,N)
 OUTPUT(RHO1,Y,N,Y,N,N,N)
 OUTPUT(CP1,Y,N,Y,N,N,N)
 OUTPUT(ENT1,Y,N,Y,N,N,N)
 OUTPUT(HCOR,Y,N,Y,N,N,N)
 OUTPUT(HRES,Y,N,Y,N,N,N)
 ************************************************************
  Group 22. Monitor Print-Out
 IXMON = 5 ;IYMON = 9 ;IZMON = 1
 NPRMON = 100000 ;NPRMNT = 1 ;TSTSWP = -1
 UWATCH = T ;USTEER = T
 HIGHLO = F
 ************************************************************
  Group 23.Field Print-Out & Plot Control
 NPRINT = 20 ;NUMCLS = 5
 NXPRIN = -1 ;IXPRF = 1 ;IXPRL = 10000
 NYPRIN = -1 ;IYPRF = 1 ;IYPRL = 10000
 IPLTF = 1 ;IPLTL = -1 ;NPLT = -1
 ISWPRF = 1 ;ISWPRL = 100000
 ITABL = 3 ;IPROF = 1
 ABSIZ =0.5 ;ORSIZ =0.4
 NTZPRF = 1 ;NCOLPF = 50
 ICHR = 2 ;NCOLCO = 45 ;NROWCO = 20
 
 PATCH(MIDX ,PROFIL, 5, 5, 1, 10, 1, 1, 1, 1)
 PLOT(MIDX ,U1 ,-1. ,1. )
 PLOT(MIDX ,H1 ,0. ,1. )
 
 PATCH(MAP ,CONTUR, 1, 10, 1, 10, 1, 1, 1, 1)
 PLOT(MAP ,U1 ,0. ,10. )
 PLOT(MAP ,V1 ,0. ,10. )
 PLOT(MAP ,H1 ,0. ,10. )
 ************************************************************
  Group 24. Dumps For Restarts
 SAVE = T ;NOWIPE = F
 NSAVE =CHAM
STOP