#cls
text(In-Form Equivalent Of PLANT Case Z619
title
libref=778
  DISPLAY  
      
  In-Form is used for setting time steps.
     
  The situation is the same is that of PLANT library case Z619,
  which is loaded first. Then its PLANT sections are 
  deactivated by setting namsat=none; and In-Form lines are 
  included to have the same effect.
        
  First time step is set equal to 5.0.          
  Second time step is set equal to the miniumum cell size
  divided by the maximum velocity in the field, both of which
  have first to be calculated.

  It uses the In-Form functions:
      MAKE, STORE1, TGRID, MIN and MAX.
  
  Variables introduced are:
    * single variables: SIZMIN to store the minimum size;
                        VELMAX to store the maximum velocity;
                        DT to set time step as SIZMIN/VELMAX.

  Now load z619 and proceed to read the rest of the q1.
  Entering "lb" will list the bottom statements of the Q1
  ENDDIS                                

load(z619)
text(In-Form equivalent of PLANT case Z619
libref=778
     ** The next line de-activates PLANT **
namsat=none
  
  INFORM7BEGIN
PATCH(PATCH1,CELL,1,1,1,1,1,1,1,1)
(TGRID of DT at PATCH1 is 5.)
  
  !!!!! note the use of the IF condition !!!!!
(MAKE of SIZMIN is GREAT)
PATCH(PATCH2,CELL,1,NX,1,NY,1,NZ,1,1)
(STORE1 of SIZMIN at PATCH2 is MIN(DZW,MIN(DYG,MIN(DXG,SIZMIN))) $
with IF(ISWEEP.EQ.LSWEEP))
  
(MAKE of VELMAX is TINY)
(STORE1 of VELMAX at PATCH2 is MAX(W1,MAX(V1,MAX(U1,VELMAX))) $
with IF(ISWEEP.EQ.LSWEEP))

PATCH(PATCH3,CELL,1,1,1,1,1,1,2,2)
(TGRID of DT at PATCH3 is SIZMIN/VELMAX)
  INFORM7END
DISTIL=T
EX(U1)=3.250E+00; EX(V1)=5.000E-01; EX(W1)=1.000E-01
EX(H1)=5.445E-04
libref=778
  infrbegin
    debug f
    tgrid f
    formula f
  infrend
STOP