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

  It uses the In-Form statements:
      PROPERTY and SOURCE.

  The Q1 contains PHOTON USE commands
  ENDDIS  
  PHOTON USE
  p



  gr ou z 1
  gr ou z 1 x 5 9 y 1 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 2 3
  gr ou z 1 x 8 8 y 2 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
  VEC z 1 sh
  red
  msg               VEHICULAR EXHAUST DISPERSION
  msg                     Velocity vectors
  msg Press Enter to continue
  pause
  vec off;red
  con h1 z 1 fil;.5
  msg               VEHICULAR EXHAUST DISPERSION
  msg                     NOx concentration
  VEC z 1 sh
  msg   Press E to end
  ENDUSE

load(z141)
text(In-Form equivalent of PLANT case Z141
libref=741

  INFORM13BEGIN
    ** The next line de-activates PLANT **
namsat=none
EDVIS=SKIP
  INFORM13END
  
     ** In-Form property formulae which are equivalent to the
        PLANT formulae of z141                               **
  INFORM9BEGIN
enut=1 ! cancel call to GROUND
(PROPERTY var VIST is 6.7*EDDY)
  INFORM9END
  INFORM13BEGIN
PATCH(iEDVIS,CELL,10,14,1,3,1,1,1,1)
(SOURCE of EDDY at iEDVIS is (MIN(0.4*YG & 0.6*2.))^2$
*(400.+V1^2)^0.5/(1.8*2.*6.7) with FIXV)
  INFORM13END
DISTIL=T
EX(P1)=1.308E+00; EX(U1)=1.057E+00; EX(V1)=4.446E-01
EX(VPOR)=7.671E-01; EX(EDDY)=7.533E-01; EX(H1)=3.413E-03
STORE(PRPS)
EX(PRPS)=4.689E+01
STOP