text(Square Cavity; Various Fluids/Properties   
title
libref=761  
  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.
  
  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  

 Load($249)
    GROUP 1. Run title and other preliminaries
TEXT(Square Cavity; Various Fluids     
 
    GROUP 7. Variables stored, solved , named
STORE(ENT1,CP1,RHO1,CP1,ENUL,COND)
FIINIT(H1)=300.0 
    GROUP 13. Boundary conditions and special sources
  ** South wall, at rest
COVAL(SOUTH,H1,1.0,273.0)
  ** North wall, moving
COVAL(MOVE,H1,1.0,350.0)
  ** West wall, at rest
COVAL(WEST,H1,1.0,273.0)
  ** East wall, at rest
COVAL(EAST,H1,1.0,273.0)

  In-Form statemnts
  INFORM7BEGIN
(STORED var TEM1 is H1)     ! h1 is temperature in case 249
                            ! but case 089 needs the name tem1
(STORED var ENT1 is H1*CP1) ! enthalpy is temperature times sp.ht.
  INFORM7END
  
  INFORM9BEGIN
char(fluid_name)
  Choose a name
fluid_name=saturated_water          ! the chosen fluid
  fluid_name=SAE_5W-30_engine_oil   ! chose one of the following by
  fluid_name=SAE_10W-30_engine_oil  ! moving its line two spaces to 
  fluid_name=SAE_20W-20_engine_oil  ! the left
  fluid_name=Ethylene_Glycol
  fluid_name=Ethylene_Glycol_50%_by_volume_aqueous_solution
  fluid_name=Gasoline
  fluid_name=Glycerin
  fluid_name=Refrigerant-12
  fluid_name=Refrigerant-134a
  fluid_name=Therminol_59
  -------------
  fluid_name=Therminol_66
  ------------
  fluid_name=Dowtherm_A
  fluid_name=Syltherm_800
  fluid_name=FC-72
  fluid_name=HFE-7100
  -------------
  fluid_name=Mercury
  ------------------
  fluid_name=Air
  fluid_name=Ammonia
  fluid_name=Argon
  fluid_name=Carbon_Dioxide
  fluid_name=Carbon_Monoxide
  fluid_name=Helium
  fluid_name=Hydrogen
  fluid_name=Methane
  fluid_name=Nitrogen
  fluid_name=Oxygen
  fluid_name=superheated_water_vapor_at_atmospheric_pressure
  fluid_name=saturated_water_vapor
  fluid_name=saturated_vapor_Refrigerant-12
  fluid_name=saturated_vapor_Refrigerant-134a
  
  load fluid-property file, case 089
l($089)
text(:fluid_name:
  INFORM9END
LSWEEP=500;resfac=1.e-6;ISWC1=1
tstswp=-1;LIBREF  =     761
distil=t
EX(P1)=7.005E-01; EX(U1)=2.769E-02; EX(V1)=2.540E-02
EX(TEM1)=2.909E+02;EX(H1)=2.919E+02; EX(COND)=5.950E-01
EX(RHO1)=9.965E+02; EX(ENUL)=1.054E-06; EX(CP1)=4.147E+03
EX(ENT1)=1.207E+06; EX(HCOR)=3.453E-05; EX(HRES)=1.924E-06
  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
STOP