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

  It uses SOURCE In-Form statement.
  
  The Q1 contains PHOTON USE commands
  ENDDIS  

  INFORM13BEGIN
load(z139) 
text(In-Form equivalent of PLANT case Z139
libref=739

    ** The next line de-activates PLANT **
namsat=none
ARCH=SKIP
  
     ** In-Form formulae which are equivalent to the
        PLANT formulae of z139                      **

PATCH(iARCH,PHASEM,1,NX,1,NY,1,NZ,1,1)
(SOURCE of V1 at iARCH is -9.81*(300.-H1)/300.)
  INFORM13END
DISTIL=T
EX(P1)=1.043E+01; EX(U1)=7.497E+00; EX(V1)=8.934E-01
EX(W1)=7.634E+00; EX(H1)=2.853E+02; EX(VPOR)=9.440E-01
STORE(PRPS)
EX(PRPS)=1.202E+01;EX(SMOK)=3.745E-03
  PHOTON USE
  P
 
 
 
  GR OU X     9 Y     1     7 Z     3     3 COL     2
  GR OU X     3 Y     1     7 Z     3     3 COL     2
  GR OU Y     8 X     3     8 Z     3     3 COL     2
  GR OU Y     1 X     3     8 Z     3     3 COL     2
  GR OU X     6 Y     1     5 Z     5     6 COL     3
  GR OU X     3 Y     1     5 Z     5     6 COL     3
  GR OU Y     6 X     3     5 Z     5     6 COL     3
  GR OU Y     1 X     3     5 Z     5     6 COL     3
  GR OU X     5 Y     1     3 Z     7     7 COL     4
  GR OU X     3 Y     1     3 Z     7     7 COL     4
  GR OU Y     4 X     3     4 Z     7     7 COL     4
  GR OU Y     1 X     3     4 Z     7     7 COL     4
  GR OU X    11 Y     1     2 Z    11    12 COL     5
  red
  GR OU X     7 Y     1     2 Z    11    12 COL     5
  GR OU Y     3 X     7    10 Z    11    12 COL     5
  GR OU Y     1 X     7    10 Z    11    12 COL     5
  GR OU Y     1 X     1    12 Z     1    14 COL     9
  RED
  msg                FIRE INSIDE BUILDING ARRAY
  MSG                        Geometry
  msg Press Enter to continue
  pause
  red
  msg                FIRE INSIDE BUILDING ARRAY
  msg          Ground velocity field - perspective view
  set vec ref 20.
  vec y 1 sh
  msg Press Enter to continue
  pause
  vec off;red
  up x
  vi 0 1 0
  vec y 1 sh
  msg                FIRE INSIDE BUILDING ARRAY
  msg           Ground velocity field - view from above
  msg Press Enter to continue
  pause
  vec off;red
  con h1 y 1 fil;.001
  msg                FIRE INSIDE BUILDING ARRAY
  msg             Temperature field near the ground
  msg Press Enter to continue
  pause
  con off
  vi 1 1 1;up y;vi 1 0 0
  vec x 5 sh
  msg                FIRE INSIDE BUILDING ARRAY
  msg                Velocity field - side view
  pause;vec off;red
  vi 1 1 1;vec y 1 sh
  msg                FIRE INSIDE BUILDING ARRAY
  msg          Ground velocity field - perspective view
  msg                        and
  msg                   Smoke plume
  surf smok y 0.05
  msg Press Enter to end
  ENDUSE
STOP