TALK=T;RUN( 1, 1)
 
 ************************************************************
   Q1 created by VDI menu, Version 2019, Date 02/08/19
 CPVNAM=VDI; SPPNAM=FLAIR
 ************************************************************
  Echo DISPLAY / USE settings
  DISPLAY
  Library Case I407: Aerosol dispersion and deposition in a small
  room.
  The case considered is steady, isothermal airflow with aerosol
  transport and deposition of three particle sizes in a small room.
  The Eulerian drift flux model is used to simulate aerosol
  dispersion with surface deposition via the 3-layer deposition
  model of Chen & Lai (2004), which accounts for the deposition
  mechanisms of gravity, Brownian & turbulent diffusion.
  ENDDIS
 ************************************************************
 IRUNN = 1 ;LIBREF = 0
 ************************************************************
  Group 1. Run Title
 TEXT(I407: Aerosol deposition in a small room)
 ************************************************************
  Echo save-block settings for Group  1
  save1begin
   Aerosol particles of 2, 6 and 10 microns and each with a
   density of 1000 kg/m^3 enter a 2m cube room vertically
   with a central supply of air at floor level. The air supply
   has a Reynolds number of 1000, an extraction fan is located
   on the ceiling with a rating of 0.006 m^3/s, and the room
   is naturally ventilated by an opening located near the
   floor of the north wall. The flow is isothermal with a
   temperature of 20degC. In the simulations, each particle
   concentration is normalised by its inlet value.
 
   References
   ----------
    Chen, F.Z. & Lai, A.C.K, "An Eulerian model for particle
    deposition under electrostatic and turbulent conditions",
    J.Aerosol Science, Vol.35, p47-62, (2004).
  save1end
 ************************************************************
  Group 2. Transience
 STEADY = T
 ************************************************************
  Groups 3, 4, 5  Grid Information
    * Overall number of cells, RSET(M,NX,NY,NZ,tolerance)
 RSET(M,25,39,58)
 ************************************************************
  Group 6. Body-Fitted coordinates
 ************************************************************
  Group 7. Variables: STOREd,SOLVEd,NAMEd
    * Non-default variable names
 NAME(126)=EPKE ;NAME(127)=V3DH
 NAME(128)=VD3 ;NAME(129)=VD2
 NAME(130)=VS3 ;NAME(131)=VS1
 NAME(132)=VDPH ;NAME(133)=DI1
 NAME(134)=VP1 ;NAME(135)=VSTR
 NAME(136)=TP1 ;NAME(137)=V2DH
 NAME(138)=PRPS ;NAME(139)=VABS
 NAME(140)=YPLS ;NAME(141)=VD1
 NAME(142)=STRS ;NAME(143)=V1DH
 NAME(144)=ENUL ;NAME(145)=SPH1
 NAME(146)=VS2 ;NAME(147)=TEM1
 NAME(148)=DEN1 ;NAME(149)=EL1
 NAME(150) =ENUT
    * Solved variables list
 SOLVE(P1,U1,V1,W1,C6,C7,C8,TEM1)
    * Stored variables list
 STORE(ENUT,EL1,DEN1,VS2,SPH1,ENUL,V1DH,STRS)
 STORE(VD1,YPLS,VABS,PRPS,V2DH,TP1,VSTR,VP1)
 STORE(DI1,VDPH,VS1,VS3,VD2,VD3,V3DH,EPKE)
    * Additional solver options
 SOLUTN(P1,Y,Y,Y,N,N,Y)
 SOLUTN(C6,Y,Y,Y,N,N,Y)
 SOLUTN(C7,Y,Y,Y,N,N,Y)
 SOLUTN(C8,Y,Y,Y,N,N,Y)
 TURMOD(KERNG)
 
 ************************************************************
  Group 8. Terms & Devices
 NEWRH1 = T
 ************************************************************
  Group 9. Properties
 PRESS0 =1.01325E+05 ;TEMP0 =273.
    * Domain material index is   2 signifying:
    * Air using Ideal Gas Law, STP
 SETPRPS(1, 2)
 ENUL =1.0E-05
 ENULA =-4.94679E-06 ;ENULB =4.58394E-08 ;ENULC =8.0974E-11
 DRH1DP = GRND5
 DVO1DT =3.33E-03
 PRNDTL(C6)=0.7 ;PRNDTL(TEM1)=-0.0263
 PRT(KE)=0.7194 ;PRT(EP)=0.7194
 ************************************************************
  Group 10.Inter-Phase Transfer Processes
 ************************************************************
  Group 11.Initialise Var/Porosity Fields
 FIINIT(P1)=0. ;FIINIT(W1)=0.225
 FIINIT(C6)=0. ;FIINIT(C7)=0.
 FIINIT(C8)=0. ;FIINIT(PRPS)=-1.
 FIINIT(TEM1)=20.
   No PATCHes used for this Group
 
 
 INIADD = F
 NAMFI   ='phida'
 ************************************************************
  Group 12. Convection and diffusion adjustments
   No PATCHes used for this Group
 ************************************************************
  Group 13. Boundary & Special Sources
 
 PATCH(DFLUX, CELL, 0, 0, 0, 0, 0, 0, 1, 1)
 COVAL(DFLUX, C6, GRND4, GRND4)
 COVAL(DFLUX, C7, GRND4, GRND4)
 COVAL(DFLUX, C8, GRND4, GRND4)
 
 PATCH(BUOYANCY, PHASEM, 0, 0, 0, 0, 0, 0, 1, 1)
 COVAL(BUOYANCY, U1, FIXFLU, GRND2)
 COVAL(BUOYANCY, V1, FIXFLU, GRND2)
 COVAL(BUOYANCY, W1, FIXFLU, GRND2)
 
 BUOYA =0. ; BUOYB =0. ; BUOYC =-9.81
 BUOYD =1.204938
 EGWF = T
 ************************************************************
  Echo save-block settings for Group 13
  save13begin
 
    ** compute average floor deposition velocity in m/hr & floor-averaged C
 
(make1 SUMAF is 0.0)
(store1 SUMAF at PW4 is SUM(AHIGH))
(print Floor_area  is SUMAF)
 
INTEGER(KK,NPART);KK=6;NPART=3
DO JJ=1,NPART
   ** deposition velocity in m/hr
(STORED of V:JJ:DH is VD:JJ:*3600.0)
    ** compute particle deposition fraction
(MAKE1 P:JJ:DFR is 0.0)
(make1 SUMVD:JJ: is 0.0)
(make1 SUMC:KK: is 0.0)
(STORE1 P:JJ:DFR is ABS(NETS(C:KK:,PW4))/NETS(C:KK:,INL))
(store1 SUMVD:JJ: at PW4 is SUM(V:JJ:DH*AHIGH))
(store1 SUMC:KK: at PW4 is SUM(C:KK:*AHIGH))
(PRINT Par:JJ:_dfrac is P:JJ:DFR)
(print Floor_avg_Vdep:JJ: is SUMVD:JJ:/SUMAF)
(print Floor_avg_C:KK:   is SUMC:KK:/SUMAF)
KK=KK+1
ENDDO
 
  save13end
 ************************************************************
  Group 14. Downstream Pressure For PARAB
 ************************************************************
  Group 15. Terminate Sweeps
 LSWEEP = 2000
 RESFAC =1.0E-04
 ************************************************************
  Group 16. Terminate Iterations
 LITER(KE)=10 ;LITER(EP)=10
 LITER(C6)=50 ;LITER(C7)=50
 LITER(C8)=50 ;LITER(TEM1)=50
 ************************************************************
  Group 17. Relaxation
 RELAX(P1 ,LINRLX,1. )
 RELAX(U1 ,FALSDT,10. )
 RELAX(V1 ,FALSDT,10. )
 RELAX(W1 ,FALSDT,10. )
 RELAX(KE ,LINRLX,0.5 )
 RELAX(EP ,LINRLX,0.5 )
 RELAX(C6 ,FALSDT,10. )
 RELAX(C7 ,FALSDT,10. )
 RELAX(C8 ,FALSDT,10. )
 RELAX(TEM1,LINRLX,0.5 )
 KELIN = 3
 ************************************************************
  Group 18. Limits
 VARMAX(C6)=1.1 ;VARMIN(C6)=0.
 VARMAX(C7)=1.1 ;VARMIN(C7)=0.
 VARMAX(C8)=1.1 ;VARMIN(C8)=0.
 VARMAX(TEM1)=3000. ;VARMIN(TEM1)=-30.
 ************************************************************
  Group 19. EARTH Calls To GROUND Station
 NAMGRD =FLAR
 GENK = T
 PARSOL = F
 IENUTA = 1
 ISG62 = 1
 SPEDAT(SET,DFLUX,CONSLP,L,F)
 SPEDAT(SET,DFLUX,JWDEP,I,2)
 SPEDAT(SET,OUTPUT,NOFIELD,L,T)
 SPEDAT(SET,DFLUX,DFMODL,L,T)
 SPEDAT(SET,DFLUX,DEPOMOD,I,4)
 SPEDAT(SET,DFLUX,DENP1,R,1000.)
 SPEDAT(SET,DFLUX,DIAP1,R,1.0E-05)
 SPEDAT(SET,DFLUX,DENP2,R,1000.)
 SPEDAT(SET,DFLUX,DIAP2,R,6.0E-06)
 SPEDAT(SET,DFLUX,DENP3,R,1000.)
 SPEDAT(SET,DFLUX,DIAP3,R,2.0E-06)
 SPEDAT(SET,GXMONI,PLOTALL,L,T)
 ************************************************************
  Group 20. Preliminary Printout
 DISTIL = T ;NULLPR = F
 NDST = 0
 DSTTOL =1.0E-02
 EX(P1)=0.0208 ;EX(U1)=1.545E-03
 EX(V1)=2.758E-03 ;EX(W1)=4.951E-03
 EX(KE)=1.535E-05 ;EX(EP)=3.061E-06
 EX(C6)=0.09899 ;EX(C7)=0.1749
 EX(C8)=0.3205 ;EX(EPKE)=0.
 EX(V3DH)=0.01089 ;EX(VD3)=3.025E-06
 EX(VD2)=2.583E-05 ;EX(VS3)=1.957E-04
 EX(VS1)=4.593E-03 ;EX(VDPH)=1.0E-10
 EX(DI1)=2.433E+05 ;EX(VP1)=0.08505
 EX(VSTR)=1.885E-04 ;EX(TP1)=1.639E-05
 EX(V2DH)=0.09299 ;EX(PRPS)=1.
 EX(VABS)=7.045E-03 ;EX(YPLS)=0.4537
 EX(VD1)=7.098E-05 ;EX(STRS)=3.501E-07
 EX(V1DH)=0.2555 ;EX(ENUL)=1.0E-05
 EX(SPH1)=0. ;EX(VS2)=1.671E-03
 EX(TEM1)=20. ;EX(DEN1)=1.205
 EX(EL1)=0.02831 ;EX(ENUT)=4.428E-05
 ************************************************************
  Group 21. Print-out of Variables
 ************************************************************
  Group 22. Monitor Print-Out
 IXMON = 16 ;IYMON = 15 ;IZMON = 47
 NPRMON = 100000
 NPRMNT = 1
 TSTSWP = -1
 ************************************************************
  Group 23.Field Print-Out & Plot Control
 NPRINT = 100000
 ISWPRF = 1 ;ISWPRL = 100000
   No PATCHes used for this Group
 ************************************************************
  Group 24. Dumps For Restarts
 IDISPA = 2000 ;IDISPB = 0 ;IDISPC = 0
 CSG1    ='SW'
 
 GVIEW(P,0.815082,0.368271,0.447234)
 GVIEW(UP,-0.407564,-0.184146,0.894417)
 GVIEW(WINDOW,976,1056)
 GVIEW(DEPTH,3.0E+04)
 GVIEW(VDIS,2.026717)
 GVIEW(CENTRE,0.848345,0.988749,1.383435)
 
> DOM,    SIZE,        2.000000E+00, 2.000000E+00, 2.800000E+00
> DOM,    MONIT,       1.067742E+00, 8.026798E-01, 2.410216E+00
> DOM,    SCALE,       1.000000E+00, 1.000000E+00, 1.000000E+00
> GRID,   AUTO,         T T T
> GRID,   MINCELL,     0.034674 ,0.018621 ,4.570882E-03
  > GRID,   RSET_X_1,     -9, 1.100000E+00,G
  > GRID,   RSET_X_2,     -3, 1.100000E+00,G
  > GRID,   RSET_X_3,      1, 1.000000E+00
  > GRID,   RSET_X_4,     -3, 1.100000E+00,G
  > GRID,   RSET_X_5,      1, 1.000000E+00
  > GRID,   RSET_X_6,     -2, 1.100000E+00,G
  > GRID,   RSET_X_7,     -6, 1.100000E+00,G
  > GRID,   RSET_Y_1,    -17, 1.100000E+00,G
  > GRID,   RSET_Y_2,     -1, 1.100000E+00,G
  > GRID,   RSET_Y_3,     -3, 1.100000E+00,G
  > GRID,   RSET_Y_4,     -1, 1.100000E+00,G
  > GRID,   RSET_Y_5,    -17, 1.100000E+00,G
  > GRID,   RSET_Z_1,    -16, 1.100000E+00,G
  > GRID,   RSET_Z_2,    -42, 1.100000E+00,G
> DOM,    INI_AMB,    YES
> DOM,    INI_BUOY,   YES
 
> OBJ,    NAME,        INL
> OBJ,    POSITION,    8.500000E-01, 9.500000E-01, 0.000000E+00
> OBJ,    SIZE,        3.000000E-01, 1.000000E-01, 0.000000E+00
> OBJ,    GEOMETRY,    cube3t
> OBJ,    TYPE,        INLET
> OBJ,    DENSITY,     1.176822
> OBJ,    VELOCITY,    0. ,0. ,0.1
> OBJ,    TEMPERATURE,  T_AMBIENT
> OBJ,    INLET_C6,    1.
> OBJ,    INLET_C7,    1.
> OBJ,    INLET_C8,    1.
> OBJ,    KE_IN,       1.000000E-03
> OBJ,    EP_IN,       9.000000E-03
 
> OBJ,    NAME,        EXHAUST
> OBJ,    POSITION,    9.000000E-01, 9.000000E-01, AT_END
> OBJ,    SIZE,        2.000000E-01, 2.000000E-01, 0.000000E+00
> OBJ,    DOMCLIP,     NO
> OBJ,    GEOMETRY,    cube3t
> OBJ,    TYPE,        INLET
> OBJ,    PRESSURE,     P_AMBIENT
> OBJ,    VOLUFLOW,    -6.0E-03
> OBJ,    TEMPERATURE,  T_AMBIENT
> OBJ,    TURB-INTENS, 5.
 
> OBJ,    NAME,        NW
> OBJ,    POSITION,    0.000000E+00, AT_END,       0.000000E+00
> OBJ,    SIZE,        TO_END,       0.000000E+00, TO_END
> OBJ,    DOMCLIP,     NO
> OBJ,    GEOMETRY,    cube11
> OBJ,    VISIBLE,     NO
> OBJ,    TYPE,        PLATE
 
> OBJ,    NAME,        LW1
> OBJ,    POSITION,    0.000000E+00, 0.000000E+00, 0.000000E+00
> OBJ,    SIZE,        TO_END,       TO_END,       0.000000E+00
> OBJ,    DOMCLIP,     NO
> OBJ,    GEOMETRY,    cube11
> OBJ,    VISIBLE,     NO
> OBJ,    TYPE,        PLATE
 
> OBJ,    NAME,        HW1
> OBJ,    POSITION,    0.000000E+00, 0.000000E+00, AT_END
> OBJ,    SIZE,        TO_END,       TO_END,       0.000000E+00
> OBJ,    DOMCLIP,     NO
> OBJ,    GEOMETRY,    cube11
> OBJ,    VISIBLE,     NO
> OBJ,    TYPE,        PLATE
 
> OBJ,    NAME,        EW
> OBJ,    POSITION,    AT_END,       0.000000E+00, 0.000000E+00
> OBJ,    SIZE,        0.000000E+00, TO_END,       TO_END
> OBJ,    DOMCLIP,     NO
> OBJ,    GEOMETRY,    cube11
> OBJ,    VISIBLE,     NO
> OBJ,    TYPE,        PLATE
 
> OBJ,    NAME,        WW
> OBJ,    POSITION,    0.000000E+00, 0.000000E+00, 0.000000E+00
> OBJ,    SIZE,        0.000000E+00, TO_END,       TO_END
> OBJ,    DOMCLIP,     NO
> OBJ,    GEOMETRY,    cube11
> OBJ,    VISIBLE,     NO
> OBJ,    TYPE,        PLATE
> OBJ,    ROUGH,       0.
> OBJ,    WALL_CO,      LOG-LAW
 
> OBJ,    NAME,        NOPEN
> OBJ,    POSITION,    7.000000E-01, 2.000000E+00, 0.000000E+00
> OBJ,    SIZE,        6.000000E-01, 0.000000E+00, 3.000000E-01
> OBJ,    GEOMETRY,    cube12t
> OBJ,    TYPE,        OPENING
> OBJ,    PRESSURE,     P_AMBIENT
> OBJ,    TEMPERATURE,  T_AMBIENT
> OBJ,    COEFFICIENT, 1.
> OBJ,    TURBULENCE,  SAME , SAME
 
> OBJ,    NAME,        SW
> OBJ,    POSITION,    0.000000E+00, 0.000000E+00, 0.000000E+00
> OBJ,    SIZE,        TO_END,       0.000000E+00, TO_END
> OBJ,    DOMCLIP,     NO
> OBJ,    GEOMETRY,    cube11
> OBJ,    VISIBLE,     NO
> OBJ,    TYPE,        PLATE
STOP