GROUP 1. Run title and other preliminaries
TEXT(ABSORPTIVE DISPERSAL WITH STEP-TIME DEPENDENT SOURCE:105

  DISPLAY 
    Zero-dimensional diffusion problem which can be tested  against
    exact solution. 
  =================================================
     dPHI/dt=-PHI^m*t^n, PHI=1 for t=0.
     where
     m=1, 0.<=t<=2.5
     n=0, 0.<=t<=2.5
     m=4,     t> 2.5
     n=3,     t> 2.5
   ================================================
  One computational cell is used in this study of the
  time variation of pollutant concentration.
  ENDDIS

REAL(SIGMA);SIGMA=1.
    GROUP 2. Transience; time-step specification
STEADY=F;GRDPWR(T,10,5.0,1.0)
    GROUP 7. Variables stored, solved & named
SOLVE(C1)
    GROUP 8. Terms (in differential equations) & devices
TERMS(C1,N,N,N,Y,Y,N)
    GROUP 11. Initialization of variable or porosity fields
FIINIT(C1)=1.0
    GROUP 13. Boundary conditions and special sources
PATCH(DIS1,CELL,1,NX,1,NY,1,NZ,1,LSTEP/2)
COVAL(DIS1,C1,SIGMA,0.0)

  PLANTBEGIN
PATCH(DIS2,CELL,1,NX,1,NY,1,1,lstep/2+1,lstep)
    CO=C1**3*TIM**3
COVAL(DIS2,C1,GRND,0.0)
  PLANTEND

    GROUP 14. Downstream pressure for PARAB=T
    GROUP 15. Termination of sweeps
LSWEEP=5
    GROUP 20. Preliminary print-out
NAMSAT=MOSG
SPEDAT(SET,GXMONI,TRANSIENT,L,F)
    GROUP 23. Field print-out and plot control
IPROF=2
PATCH(TIMEPLOT,PROFIL,NX,NX,1,1,NZ,NZ,1,LSTEP)
PLOT(TIMEPLOT,C1,0.0,1.0)
tstswp=-1
dmpstk=t
DISTIL=T
EX(C1)=1.032E-01
 LIBREF=105
STOP