#cls
text(In-Form Equivalent Of PLANT Case Z134
title
libref=734
  
  DISPLAY
  
  This In-Form case does what Z134 does, but without fortran coding
  or re-compilation.
  
  First, case z134 is loaded. Then NAMSAT = NONE is set, to 
  deactivate.

  It uses SOURCE In-Form statements.

  The Q1 contains PHOTON USE commands
  ENDDIS  

load(z134) 
text(In-Form equivalent of PLANT case Z134
libref=734

CP1=1/TMP1B

  INFORM13BEGIN
    ** The next line de-activates PLANT **
namsat=none
ERQUA=SKIP; METEMP=SKIP
  INFORM13END

     ** The following settings have been chosen as being
        preferable to those of z134, in respect of convergence
        and printout.                                         **
RELAX(METL,FALSDT,0.01)
  
     ** In-Form property formulae which are equivalent to the
        PLANT formulae of z134                               **
  INFORM13BEGIN
PATCH(iERQUA,PHASEM,4,15,11,14,1,1,1,1)
(SOURCE of U1 at iERQUA is :RG(2):*ABS(U1)*(0-U1))
(SOURCE of V1 at iERQUA is :RG(2):*ABS(V1)*(0-V1))

PATCH(iMETEMP,VOLUME,4,15,11,14,1,1,1,1)
(SOURCE of METL at iMETEMP is 100.*(TMP1-METL))
  INFORM13END
DISTIL=T
EX(P1)=1.832E-02; EX(U1)=3.315E-02; EX(V1)=7.389E-02
EX(H1)=2.258E+05; EX(NPOR)=9.964E-01; EX(EPOR)=9.964E-01
EX(VPOR)=6.804E-01; EX(TMP1)=2.267E+02; EX(METL)=4.463E+01
EX(PRPS)=6.325E+01
EX(KE  )=3.031E-03;EX(EP)=2.006E-03;EX(ENUT)=4.887E-04
     PHOTON USE
  p
 
 
 
  GR OU X    21 Y     1     3 Z     1     1
  GR OU X     1 Y     1     3 Z     1     1
  GR OU Y     4 X     1    20 Z     1     1
  GR OU Y     1 X     1    20 Z     1     1
  GR OU X     6 Y     4    10 Z     1     1
  GR OU X     1 Y     4    10 Z     1     1
  GR OU Y    11 X     1     5 Z     1     1
  GR OU Y     4 X     1     5 Z     1     1
  GR OU X     4 Y    11    14 Z     1     1
  GR OU X     1 Y    11    14 Z     1     1
  GR OU Y    15 X     1     3 Z     1     1
  GR OU Y    11 X     1     3 Z     1     1
  GR OU X     6 Y    15    22 Z     1     1
  GR OU X     1 Y    15    22 Z     1     1
  GR OU Y    23 X     1     5 Z     1     1
  GR OU Y    15 X     1     5 Z     1     1
  GR OU X    21 Y    15    22 Z     1     1
  GR OU X    14 Y    15    22 Z     1     1
  GR OU Y    23 X    14    20 Z     1     1
  GR OU Y    15 X    14    20 Z     1     1
  GR OU X    21 Y    11    14 Z     1     1
  GR OU X    16 Y    11    14 Z     1     1
  GR OU Y    15 X    16    20 Z     1     1
  GR OU Y    11 X    16    20 Z     1     1
  GR OU X    21 Y     9    10 Z     1     1
  GR OU X    14 Y     9    10 Z     1     1
  GR OU Y    11 X    14    20 Z     1     1
  GR OU Y     9 X    14    20 Z     1     1
  GR OU X    16 Y    11    14 Z     1     1 COL    14
  GR OU X     4 Y    11    14 Z     1     1 COL    14
  GR OU Y    15 X     4    15 Z     1     1 COL    14
  GR OU Y    11 X     4    15 Z     1     1 COL    14
  MSG                     COOLER GEOMETRY
  msg Press Enter to continue
  PAUSE;red
  VEC Z 1 Y 1 28 SH
  MSG                     Velocity vectors
  msg Press Enter to continue
  pause;vec off;red
  con tmp1 z 1 Y 1 28 fil;0.01
  msg                    Temperature contours
  msg Press Enter to continue
  pause;con off;red
  con metl z 1 Y 1 28 fil;0.01
  msg                  Metal temperature
  msg Press Enter to continue
  pause;con off;red
  con p1 z 1 Y 1 28 fil;0.01
  msg                    Pressure contours
  msg Press Enter to continue
  pause;con off;red
  con ke z 1 Y 1 28 fil;0.01
  msg                Turbulent energy contours
  msg Press Enter to continue
  pause;con off;red
  con enut z 1 Y 1 28 fil;0.01
  msg                Turbulent viscosity contours
  msg Press Enter to end
  ENDUSE
STOP