PHOTON USE
  p;  parphi;;;
 
  msg        PLANE JET
  msg
  msg        ADAPTIVE Z-DIRECTION STEP SIZE
  msg        Planted non-uniform grid  and vectors
  msg            -
  msg Press  to continue
  gr  x 1;vec x 1 sh
  msg Press e to END
  enduse
  >>>>>>>>>>>>>>>>>>>>>> Comment begins >>>>>>>>>>>>>>>>>>>>
    The following  example is the one which demonstrates the
    ability to overwrite some PIL  fragments  by  the  PLANT
    sequences.
#cls
  DISPLAY 
    Case Z623 concerns the calculation of z-direction step size for 
    parabolic problems.  
    
    Case 150 is loaded from the core library; the PLANT  blocks are
    appended, which dictate that:
    
    * DZ is proportional to the Y-extent of the grid for the first 
      two steps and 
    * each next step size is reduced in accordance with the centre-
      line temperature 
    
    PLANT information :
     * Data input groups used:  5
     * Ground groups planted :  5
     * Headings used  : SCZS??
     * Functions used : None
     * Commands used  : IF
 
  ENDDIS
  <<<<<<<<<<<<<<<<<<<<<<< Comment ends <<<<<<<<<<<<<<<<<<<<<
 LOAD(150)
    GROUP 5. Z-direction grid specification
NAMSAT=MOSG
AZDZ=GRND

  PLANTBEGIN
   DZ=0.1*YVLAST
  IF(IZ.LE.2)
   DZ=DZL*(1.-0.02*TEMP[,1,-1]/:TJET:)
  IF(IZ.GT.2)
  PLANTEND

  >>>>>>>>>>>>>>>>>>>>>> Comment begins >>>>>>>>>>>>>>>>>>>>
   The above two PLANT blocks  overwrite  the  correspondong
   actions in library PIL.
 
   They make  the  step  size,  DZ,  a fixed fraction of the
   calculation domain width,  YVLAST,  for the steps less or
   equal 2.  If the step number is greater than 2,  the each
   next step size is made a fraction of  the  thickness  for
   previous z-slab, DZL.
 
   The fraction  factor  is  supposed  to be adaptive to the
   upstream temperature at the first  cell  in  Y-direction.
   The  consequence  is that the step size gradually reduces
   towards the domain end.
  <<<<<<<<<<<<<<<<<<<<<<< Comment ends <<<<<<<<<<<<<<<<<<<<<
dmpstk=t
DISTIL=T
EX(P1)=1.865E-01; EX(V1  )=3.883E-01; EX(W1  )=3.507E+00
EX(TEMP)=3.795E-01; EX(LEN1)=2.228E-02; EX(ENUT)=1.811E-02
 LIBREF=623
STOP