```
TALK=T;RUN(1,1)
DISPLAY
PLANT is used for specifying two time-step  sizes.

The first is set equal to 5 sec.
The second time step is computed by dividing the smallest cell
size by the largest velocity.

The solved-for variable is H1; but, since the actual solution is
of not of interest, no initial or boundary conditions are
introduced.

The non-uniform grid and velocity field are  initialised
for expected size of the second time step to be 0.1 sec.

PLANT information :
* Data input groups used:  2, 19
* Ground groups planted :  1, 2, 19-3
* Functions used : SUM
* Commands used  : IF, REGION, TEXT.
ENDDIS
PLANTBEGIN
<<<<<<<<<<<<<<<<<<<<<<< Comment ends <<<<<<<<<<<<<<<<<<<<<
** Ask PLANT to introduce first time step, 5 seconds.
DT=5.
REGION(1,1,1,1,1,1,1,1)
REGION command  is  used to control this simple setting.
Its first six arguments limit DO loop to perform  single
action over first time step defined by the last argument
pair.
<<<<<<<<<<<<<<<<<<<<<<< Comment ends <<<<<<<<<<<<<<<<<<<<<
** Choose the smallest cell size at the start of each iz-slab
for the last sweep of the first time step.
RG(1)=GREAT
DXG2D - cell size in X-direction,
DYG2D - cell size in Y-direction,
DZWNZ - cell size in Z-direction,
RG(1)=AMIN1(RG(1),DXG2D,DYG2D,DZWNZ)
IF(ISTEP.EQ.1.AND.ISWEEP.EQ.LSWEEP)
Command IF restricts the whole-domain-default extents of
PLANT statement.  The arguments of IF  command  instruct
PLANT   to  introduce  the  logical  conditions  of  the
bracketed expression.  The execution  of  the  statement
returns   the   auxilliary  variable,  RG(1),  with  the
smallest cell size over the whole domain.
<<<<<<<<<<<<<<<<<<<<<<< Comment ends <<<<<<<<<<<<<<<<<<<<<

** Output of smallest cell size using summation in one
cell at 1st time step, last sweep  for checking.
SIZMIN=SUM(RG(1))
TEXT(Smallest cell size)
REGION(1,1,1,1,1,1,1,1) /ISWEEP.EQ.LSWEEP
The function SUM is used in above three  lines  just  to
dump into globcalc file the value of RG(1) headed by the
character arguments of TEXT command.
<<<<<<<<<<<<<<<<<<<<<<< Comment ends <<<<<<<<<<<<<<<<<<<<<
** Choose the largest velocity value just before the
second time step calculation
RG(2)=AMAX1(RG(2),U1,V1,W1)
IF(ISTEP.EQ.2)
** Output the largest velocity using summation in one
cell at 2nd time step for checking.
VELMAX=SUM(RG(2))
TEXT(Largest velocity)
REGION(1,1,1,1,1,1,2,2)
Auxiliary variable,  RG(2), will be the largest velocity
value  as  result  of the above statements at the second
time moment.  It will be dumped  in  globcalc  file  and
<<<<<<<<<<<<<<<<<<<<<<< Comment ends <<<<<<<<<<<<<<<<<<<<<
DT=SIZMIN/VELMAX
REGION(1,1,1,1,1,1,2,2)
The final stage of time step settings:  second time step
size, DT, is set as division of smallest size by largest
velocity.
<<<<<<<<<<<<<<<<<<<<<<< Comment ends <<<<<<<<<<<<<<<<<<<<<
PLANTEND
infrbegin
debug f
tgrid f
formula f
infrend
************************************************************
Group 1. Run Title and Number
************************************************************
************************************************************

TEXT(In-Form equivalent of PLANT case Z619   )

************************************************************
************************************************************

IRUNN = 1 ;LIBREF = 778
************************************************************
Group 2. Time dependence
* Set overall time and no. of steps
TFIRST =0. ;TLAST = GRND
FSTEP = 1 ;LSTEP = 2
TFRAC(1)=1.
************************************************************
Group 3. X-Direction Grid Spacing
CARTES = T
NX = 2
XULAST =2.
XFRAC(1)=0.5 ;XFRAC(2)=1.
************************************************************
Group 4. Y-Direction Grid Spacing
NY = 2
YVLAST =4.
YFRAC(1)=0.5 ;YFRAC(2)=1.
************************************************************
Group 5. Z-Direction Grid Spacing
PARAB = F
NZ = 2
ZWLAST =6.
ZFRAC(1)=0.5 ;ZFRAC(2)=1.
************************************************************
Group 6. Body-Fitted Coordinates
************************************************************
Group 7. Variables: STOREd,SOLVEd,NAMEd
ONEPHS = T
NAME(3)=U1 ;NAME(5)=V1
NAME(7)=W1 ;NAME(14)=H1
* Y in SOLUTN argument list denotes:
* 1-stored 2-solved 3-whole-field
* 4-point-by-point 5-explicit 6-harmonic averaging
SOLUTN(U1,Y,N,N,N,N,Y)
SOLUTN(V1,Y,N,N,N,N,Y)
SOLUTN(W1,Y,N,N,N,N,Y)
SOLUTN(H1,Y,Y,N,N,N,Y)
************************************************************
Group 8. Terms & Devices
* Y in TERMS argument list denotes:
* 1-built-in source 2-convection 3-diffusion 4-transient
* 5-first phase variable 6-interphase transport
TERMS(H1,Y,Y,Y,Y,Y,Y)
DIFCUT =0.5 ;ZDIFAC =1.
GALA = F ;ADDDIF = F
HUNIT =1.
ISOLX = -1 ;ISOLY = -1 ;ISOLZ = -1
************************************************************
Group 9. Properties used if PRPS is not
stored, and where PRPS = -1.0 if it is!
RHO1 =1. ;TMP1 =0.
EL1 =0.
TSURR =0. ;TEMP0 =0.
PRESS0 =0.
DVO1DT =0. ;DRH1DP =0.
EMISS =0. ;SCATT =0.
ENUL =1.0E-05 ;ENUT =0.
PRNDTL(H1)=1.
PRT(H1)=1.
CP1 =1. ;CP2 =1.
************************************************************
Group 10.Inter-Phase Transfer Processes
************************************************************
Group 11.Initial field variables (PHIs)
FIINIT(U1)=1. ;FIINIT(V1)=0.5
FIINIT(W1)=0.1 ;FIINIT(H1)=1.0E-10

PATCH(MAXVEL ,INIVAL, 1, 1, 2, 2, 2, 2, 1, 1)
INIT(MAXVEL ,U1 ,0. ,10. )
FSWEEP = 1
NAMFI =CHAM
************************************************************
Group 12. Patchwise adjustment of terms
Patches for this group are printed with those
for Group 13.
Their names begin either with GP12 or &
************************************************************
Group 13. Boundary & Special Sources

PATCH(PATCH1 ,CELL , 1, 1, 1, 1, 1, 1, 1, 1)

PATCH(PATCH2 ,CELL , 1, 2, 1, 2, 1, 2, 1, 1)

PATCH(PATCH3 ,CELL , 1, 1, 1, 1, 1, 1, 2, 2)
XCYCLE = F
EGWF = T
WALLCO = GRND2
************************************************************
Group 14. Downstream Pressure For PARAB
************************************************************
Group 15. Terminate Sweeps
LSWEEP = 2 ;ISWC1 = 1
LITHYD = 1 ;LITFLX = 1 ;LITC = 1 ;ITHC1 = 1
SELREF = T
RESFAC =1.0E-04
************************************************************
Group 16. Terminate Iterations
LITER(H1)=20
ENDIT(H1)=1.0E-03
************************************************************
Group 17. Relaxation
RELAX(U1,LINRLX,1.)
RELAX(V1,LINRLX,1.)
RELAX(W1,LINRLX,1.)
RELAX(H1,FALSDT,1.0E+09)
OVRRLX =0.
EXPERT = F ;NNORSL = F
************************************************************
Group 18. Limits
VARMAX(U1)=1.0E+06 ;VARMIN(U1)=-1.0E+06
VARMAX(V1)=1.0E+06 ;VARMIN(V1)=-1.0E+06
VARMAX(W1)=1.0E+06 ;VARMIN(W1)=-1.0E+06
VARMAX(H1)=1.0E+10 ;VARMIN(H1)=-1.0E+10
************************************************************
Group 19. Data transmitted to GROUND
PARSOL = F
ISG62 = 1
SPEDAT(SET,GXMONI,TRANSIENT,L,F)
SPEDAT(SET,TGRID,DT!PATCH1,C,=5.)
SPEDAT(SET,MAKE,SIZMIN,C,=1.0E+20)
SPEDAT(SET,STORED,SIZMIN!PATCH2,C,=MIN(DZW&MIN(DYG&MIN(DXG&SIZMIN\$)
SPEDAT(SET,STORED,SIZMIN!PATCH2,C,)))!IF(ISWEEP.EQ.2)!ZSLFIN)
SPEDAT(SET,MAKE,VELMAX,C,=1.0E-20)
SPEDAT(SET,STORED,VELMAX!PATCH2,C,=MAX(W1&MAX(V1&MAX(U1&VELMAX)))\$)
SPEDAT(SET,STORED,VELMAX!PATCH2,C,!IF(ISWEEP.EQ.2)!ZSLFIN)
SPEDAT(SET,TGRID,DT!PATCH3,C,=SIZMIN/VELMAX)
RG( 1) =1.0E+20
************************************************************
Group 20. Preliminary Printout
DISTIL = T ;NULLPR = F
NDST = 0
DSTTOL =1.0E-02
EX(U1)=3.25 ;EX(V1)=0.5
EX(W1)=0.1 ;EX(H1)=5.445E-04
************************************************************
Group 21. Print-out of Variables
INIFLD = F ;SUBWGR = F
* Y in OUTPUT argument list denotes:
* 1-field 2-correction-eq. monitor 3-selective dumping
* 4-whole-field residual 5-spot-value table 6-residual table
OUTPUT(U1,Y,N,Y,N,N,N)
OUTPUT(V1,Y,N,Y,N,N,N)
OUTPUT(W1,Y,N,Y,N,N,N)
OUTPUT(H1,Y,N,Y,Y,Y,Y)
************************************************************
Group 22. Monitor Print-Out
IXMON = 1 ;IYMON = 1 ;IZMON = 1
NPRMON = 100000 ;NPRMNT = 1 ;TSTSWP = 1
UWATCH = T ;USTEER = T
HIGHLO = F
************************************************************
Group 23.Field Print-Out & Plot Control
NPRINT = 100000 ;NUMCLS = 5
NTPRIN = 100000 ;ISTPRF = 1 ;ISTPRL = 100000
NXPRIN = -1 ;IXPRF = 1 ;IXPRL = 10000
NYPRIN = -1 ;IYPRF = 1 ;IYPRL = 10000
NZPRIN = -1 ;IZPRF = 1 ;IZPRL = 10000
XZPR = F ;YZPR = F
IPLTF = 1 ;IPLTL = -1 ;NPLT = -1
ISWPRF = 1 ;ISWPRL = 100000
ITABL = 3 ;IPROF = 1
ABSIZ =0.5 ;ORSIZ =0.4
NTZPRF = 1 ;NCOLPF = 50
ICHR = 2 ;NCOLCO = 45 ;NROWCO = 20
No PATCHes yet used for this Group
************************************************************
Group 24. Dumps For Restarts
SAVE = T ;NOWIPE = F
NSAVE =CHAM
STOP
```