text(3D Square Cavity; Various Fluids 
#cls
title
  DISPLAY
  
  This In-Form case illustrates the setting of properties by 
  selecting a fluid from those for which property formulae are
  assembled in case 089. Their names are listed in this Q1,
  
  First, case 277 is loaded. This is an old library case concerning
  steady laminar flow and heat transfer in a cubic cavity with a 
  moving wall. The material properties were arbitrary round-number 
  constants.
   
  Then H1, the variable representing enthalpy in 277, is renamed to 
  TEM1; and PIL settings are made for the wall temperatures.
  
  STORE(ENT1,CP1,RHO1,CP1,ENUL,COND) creates storage for the 
  properties which In-Form will compute and use.

  The relevant In-Form settings are:
  
  1. fluid_name = air
     which is one of the fluids in the list.
     
     Note that all that is necessary in order to choose another 
     fluid  is to move the relevant sluid_name setting one space to 
     the left.

  2. (STORED var ENT1 is TEM1*CP1)
     which tells PHOENICS how to the new enthalpy cariable.
    
  3, L($089)
     which loads case 089
  
  The Q1 contains PHOTON USE commands    
  ENDDIS  

 Load($277)
 expert=f
    GROUP 1. Run title and other preliminaries
TEXT(3D SQUARE CAVITY; various fluids : 761
    GROUP 7. Variables stored, solved & named
NAME(H1)=TEM1
STORE(ENT1,CP1,RHO1,ENUL,COND)
    GROUP 11. Initialization of variable or porosity fields
REAL(THOT,TCOLD); TCOLD=273; THOT=323
FIINIT(TEM1)=0.5*(TCOLD+THOT)
    GROUP 13. Boundary conditions and special sources
  ** South wall, at rest
COVAL(SOUTH,TEM1,1.0,TCOLD)
  ** North wall, moving
COVAL(MOVING,TEM1,1.0,THOT)
  ** West wall, at rest
COVAL(WEST,TEM1,1.0,TCOLD)
  ** East wall, at rest
COVAL(EAST,TEM1,1.0,TCOLD)

  Group 15. Terminate Sweeps
ISWC1=1
  Group 17. Relaxation
RELAX(U1,FALSDT,0.1)
RELAX(V1,FALSDT,0.1)
RELAX(W1,FALSDT,0.03)

  In-Form statements
  In-Form statement calculates the enthalpy 
  INFORM7BEGIN
(STORED var ENT1 is TEM1*CP1)
  INFORM7END
char(fluid_name)
  Choose a fluid, by moving the chosen fluid_name so that it is the
  lowest which starts in the second or third column.
  
  The properties are those which are stored in macro 089.htm 

            *** GASES AT ATMOSPHERIC PRESSURE ***

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
  fluid_name=Air_at_20_deg_C_1_atm
  fluid_name=Ammonia_at_27_deg_C
  fluid_name=Carbon_Dioxide_at_27_deg_C_1_atm
  fluid_name=Carbon_Monoxide_at_27_deg_C_1_atm
  fluid_name=Helium_at_27_deg_C_1_atm
  fluid_name=Hydrogen_at_27_deg_C_1_atm
  fluid_name=Nitrogen_at_27_deg_C_1_atm
  fluid_name=Oxygen_at_27_deg_C_1_atm
  fluid_name=STEAM_at_100_deg_C_1_atm

            *** LIQUIDS ***

  fluid_name=saturated_water
  fluid_name=SAE_5W-30_engine_oil
  fluid_name=SAE_10W-30_engine_oil
  fluid_name=SAE_20W-20_engine_oil
  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=Water_at_0_deg_C_1_atm
  fluid_name=GLASS_Liq_at_1127_deg_C
  fluid_name=Coolanol_25_at_25_deg_C_1 atm
  fluid_name=Coolanol_45_at_25_deg_C_1_atm
  fluid_name=ETHYLENE_GLYCOL_at_27_deg_C
  fluid_name=FC75_at_25_deg_C_1_atm
  fluid_name=Freon_(refrigerant-12)_at_27_deg_C
  fluid_name=Glycerin_at_27_deg_C
  fluid_name=Mercury_at_27_deg_C
  fluid_name=WATER_at_20_deg_C

  ------------------------
  load fluid-property file
  ------------------------
text(3D moving-wall; fluid is :fluid_name:..:libref:            
l($089)
LIBREF = 762  
DISTIL=T
EX(P1)=5.608E-03; EX(U1)=6.330E-02; EX(V1)=4.840E-02
EX(W1)=3.938E-03; EX(TEM1)=2.863E+02; EX(ENT1)=2.894E+05
EX(COND)=2.542E-02; EX(RHO1)=1.215E+00
EX(ENUL)=1.479E-05; EX(CP1)=1.004E+03
  PHOTON USE
  p;;;;;
  
  vi 1 2 3
  gr ou x 1
  con tem1 z 5 fi;0.001;gr ou x m;gr ou y 1;gr ou y m
  pause
  con cp1 z 5 fi;0.001 ;gr ou x m;gr ou y 1;gr ou y m
  pause
  con enul z 5 fi;0.001;gr ou x m;gr ou y 1;gr ou y m
  pause
  con rho1 z 5 fi;0.001;gr ou x m;gr ou y 1;gr ou y m
  pause
  con cond z 5 fi;0.001;gr ou x m;gr ou y 1;gr ou y m
  pause
  con ent1 z 5 fi;0.001;vec z 5 ;vec y m
  gr ou x m;gr ou y 1;gr ou y m
  ENDUSE
STOP