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

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

load(z138) 
text(In-Form equivalent of PLANT case Z138
libref=738

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

PATCH(iROAD,NORTH,10,14,1,3,1,1,1,1)
(SOURCE of H1 at iROAD is 0.01*GAS+10.*LIQ)
  INFORM13END
DISTIL=T
EX(P1)=1.705E+02; EX(AU1)=1.643E+00; EX(BU2)=1.636E+00
EX(DV2)=5.064E-01; EX(H1)=1.815E-02; EX(VPOR)=8.137E-01
STORE(PRPS)
EX(PRPS)=3.771E+01
  PHOTON USE
  p
 
 
 
  gr ou z 1
  gr ou z 1 x 5 9 y 4 6
  gr ou z 1 x 15 19 y 1 9
  gr ou z 1 x 6 6 y 5 5
  gr ou z 1 x 8 8 y 5 5
 
  gr ou z 1 x 6 6 y 1 3
  gr ou z 1 x 7 7 y 1 3
  gr ou z 1 x 8 8 y 1 3
 
  gr ou z 1 x 16 16 y 2 3
  gr ou z 1 x 16 16 y 5 5
  gr ou z 1 x 16 16 y 7 7
  gr ou z 1 x 18 18 y 2 3
  gr ou z 1 x 18 18 y 5 5
  gr ou z 1 x 18 18 y 7 7
  red
  set vec comp au1 cv1 -
  msg               VEHICULAR EXHAUST DISPERSION
  msg                   Air velocity vectors
  vec z 1 sh
  msg Press  to continue
  pause
  vec off;red
  con h1 z 1 fil;.5
  msg               VEHICULAR EXHAUST DISPERSION
  msg                     NOx concentration
  msg  Press Enter to continue
  pause
  con off;red
  set vec comp bu2 dv2 -
  msg                   SNOWFALL IN A CROSS-WIND with ROOF
  msg                      VELOCITY VECTORS OF SNOW
  vec z 1 sh
  msg  Press Enter to continue
  pause
  vec off;red
  msg                        SNOW VOLUME FRACTION
  con liq z 1 fil;0.1
  ENDUSE
STOP