TALK=T;RUN(1,1)
PHOTON USE
p
gr ou z 1
gr ou z 1 x 5 9 y 1 6
gr ou z 1 x 15 19 y 1 9
gr ou z 1 x 6 6 y 5 5
gr ou z 1 x 8 8 y 5 5
gr ou z 1 x 6 6 y 2 3
gr ou z 1 x 8 8 y 2 3
gr ou z 1 x 16 16 y 2 3
gr ou z 1 x 16 16 y 5 5
gr ou z 1 x 16 16 y 7 7
gr ou z 1 x 18 18 y 2 3
gr ou z 1 x 18 18 y 5 5
gr ou z 1 x 18 18 y 7 7
VEC z 1 sh
red
msg VEHICULAR EXHAUST DISPERSION
msg Velocity vectors
msg Press Enter to continue
pause
vec off;red
con h1 z 1 fil;.5
msg VEHICULAR EXHAUST DISPERSION
msg NOx concentration
VEC z 1 sh
msg Press E to end
ENDUSE
DISPLAY
This case shows how to apply PLANT to introduce the traffic
induced turbulent diffusion for the problem of vehicular
exhaust dispersion in the street canyon.
It is assumed that by the order of magnitude the traffic
caused turbulent kinematic viscosity is the length scale
squared times relative velocity divided by car size. The
length scale is choosed as smallest of Prandtl mixing length
and constant times the car size as set in Group 9 ( see the
line marked PRPT1 ).
The layer under influence is located in a few slabs over the
ground of street canyon.
ENDDIS
PLANTBEGIN
* Set Turbulent Kinematic Viscosity Value
VIST=6.7*EDDY
* EDDY viscosity function, Named EDVIS
PATCH(EDVIS,CELL,10,14,1,3,1,1,1,1)
VAL=(AMIN1(0.4*YG2D,0.6*2.))**2 *(400.+V1**2)**0.5/(1.$
8*2.*6.7)
COVAL(EDVIS,EDDY,FIXVAL,GRND )
PLANTEND
************************************************************
Group 1. Run Title and Number
************************************************************
************************************************************
TEXT(In-Form equivalent of PLANT case Z141 )
************************************************************
************************************************************
IRUNN = 1 ;LIBREF = 741
************************************************************
Group 2. Time dependence
STEADY = T
************************************************************
Group 3. X-Direction Grid Spacing
CARTES = T
NX = 23
XULAST =80.
XFRAC(1)=0.0625 ;XFRAC(2)=0.125
XFRAC(3)=0.1875 ;XFRAC(4)=0.25
XFRAC(5)=0.275 ;XFRAC(6)=0.3
XFRAC(7)=0.325 ;XFRAC(8)=0.35
XFRAC(9)=0.375 ;XFRAC(10)=0.425
XFRAC(11)=0.475 ;XFRAC(12)=0.525
XFRAC(13)=0.575 ;XFRAC(14)=0.625
XFRAC(15)=0.65 ;XFRAC(16)=0.675
XFRAC(17)=0.7 ;XFRAC(18)=0.725
XFRAC(19)=0.75 ;XFRAC(20)=0.8125
XFRAC(21)=0.875 ;XFRAC(22)=0.9375
XFRAC(23)=1.
************************************************************
Group 4. Y-Direction Grid Spacing
NY = 14
YVLAST =50.
YFRAC(1)=0.033333 ;YFRAC(2)=0.066667
YFRAC(3)=0.1 ;YFRAC(4)=0.166667
YFRAC(5)=0.233333 ;YFRAC(6)=0.3
YFRAC(7)=0.366667 ;YFRAC(8)=0.433333
YFRAC(9)=0.5 ;YFRAC(10)=0.6
YFRAC(11)=0.7 ;YFRAC(12)=0.8
YFRAC(13)=0.9 ;YFRAC(14)=1.
************************************************************
Group 5. Z-Direction Grid Spacing
PARAB = F
NZ = 1
ZWLAST =1.
ZFRAC(1)=1.
************************************************************
Group 6. Body-Fitted Coordinates
************************************************************
Group 7. Variables: STOREd,SOLVEd,NAMEd
ONEPHS = T
NAME(1)=P1 ;NAME(3)=U1
NAME(5)=V1 ;NAME(14)=H1
NAME(149)=PRPS ;NAME(150)=EDDY
* Y in SOLUTN argument list denotes:
* 1-stored 2-solved 3-whole-field
* 4-point-by-point 5-explicit 6-harmonic averaging
SOLUTN(P1,Y,Y,N,N,N,Y)
SOLUTN(U1,Y,Y,N,N,N,Y)
SOLUTN(V1,Y,Y,N,N,N,Y)
SOLUTN(H1,Y,Y,N,N,N,Y)
SOLUTN(PRPS,Y,N,N,N,N,Y)
SOLUTN(EDDY,Y,Y,N,N,N,Y)
PRPS = 149
************************************************************
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(P1,Y,Y,Y,N,Y,Y)
TERMS(U1,Y,Y,Y,Y,Y,Y)
TERMS(V1,Y,Y,Y,Y,Y,Y)
TERMS(H1,N,Y,Y,N,Y,N)
TERMS(EDDY,N,N,N,N,Y,N)
DIFCUT =0.5 ;ZDIFAC =1.
GALA = F ;ADDDIF = F
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.
RADIA =0. ;RADIB =0.
ENUL =1.5E-05 ;ENUT =1.
PRNDTL(U1)=1. ;PRNDTL(V1)=1.
PRNDTL(H1)=1.5
PRT(U1)=1. ;PRT(V1)=1.
PRT(H1)=1.
CP1 =1000. ;CP2 =1.
************************************************************
Group 10.Inter-Phase Transfer Processes
************************************************************
Group 11.Initial field variables (PHIs)
FIINIT(P1)=1.0E-10 ;FIINIT(U1)=2.
FIINIT(V1)=1.0E-10 ;FIINIT(H1)=0.
FIINIT(PRPS)=-1. ;FIINIT(EDDY)=1.
PATCH(CMP0 ,INIVAL, 5, 9, 1, 6, 1, 1, 1, 1)
INIT(CMP0 ,PRPS,0. ,198. )
PATCH(CMP1 ,INIVAL, 15, 19, 1, 9, 1, 1, 1, 1)
INIT(CMP1 ,PRPS,0. ,198. )
INIADD = F
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(INLET ,WEST , 1, 1, 1, 14, 1, 1, 1, 1)
COVAL(INLET ,P1 , FIXFLU ,2. )
COVAL(INLET ,U1 ,0. ,2. )
COVAL(INLET ,V1 ,0. ,0. )
COVAL(INLET ,H1 ,0. ,0. )
PATCH(OUTLET ,EAST , 23, 23, 1, 14, 1, 1, 1, 1)
COVAL(OUTLET ,P1 ,1. ,0. )
COVAL(OUTLET ,H1 ,0. , SAME )
PATCH(OUTUP ,NORTH , 1, 23, 14, 14, 1, 1, 1, 1)
COVAL(OUTUP ,P1 ,1. ,0. )
COVAL(OUTUP ,H1 ,0. , SAME )
PATCH(ROAD ,CELL , 10, 14, 1, 3, 1, 1, 1, 1)
COVAL(ROAD ,H1 , FIXFLU ,1.0E-02 )
PATCH(IEDVIS ,CELL , 10, 14, 1, 3, 1, 1, 1, 1)
COVAL(IEDVIS ,EDDY,In-Form:source - see Grp 19)
XCYCLE = F
EGWF = T
WALLCO = GRND2
************************************************************
Group 14. Downstream Pressure For PARAB
************************************************************
Group 15. Terminate Sweeps
LSWEEP = 50 ;ISWC1 = 1
LITHYD = 1 ;LITFLX = 1 ;LITC = 1 ;ITHC1 = 1
SELREF = T
RESFAC =1.0E-05
************************************************************
Group 16. Terminate Iterations
LITER(P1)=20 ;LITER(U1)=10
LITER(V1)=10 ;LITER(H1)=20
LITER(EDDY)=20
ENDIT(P1)=1.0E-03 ;ENDIT(U1)=1.0E-03
ENDIT(V1)=1.0E-03 ;ENDIT(H1)=1.0E-03
ENDIT(EDDY)=1.0E-03
************************************************************
Group 17. Relaxation
RELAX(P1,LINRLX,0.5)
RELAX(U1,FALSDT,10.)
RELAX(V1,FALSDT,10.)
RELAX(H1,FALSDT,1000.)
RELAX(PRPS,LINRLX,1.)
RELAX(EDDY,FALSDT,1.0E+09)
OVRRLX =0.
EXPERT = F ;NNORSL = F
************************************************************
Group 18. Limits
VARMAX(P1)=1.0E+10 ;VARMIN(P1)=-1.0E+10
VARMAX(U1)=1.0E+06 ;VARMIN(U1)=-1.0E+06
VARMAX(V1)=1.0E+06 ;VARMIN(V1)=-1.0E+06
VARMAX(H1)=1.0E+10 ;VARMIN(H1)=-1.0E+10
VARMAX(PRPS)=1.0E+10 ;VARMIN(PRPS)=-1.0E+10
VARMAX(EDDY)=1.0E+10 ;VARMIN(EDDY)=-1.0E+10
************************************************************
Group 19. Data transmitted to GROUND
PARSOL = F
ISG62 = 1
SPEDAT(SET,PROPERTY,ENUT,C,=6.7*EDDY)
SPEDAT(SET,SOURCE,EDDY!IEDVIS,C,=(MIN(0.4*YG&0.6*2.))^2*(400.+V1^$)
SPEDAT(SET,SOURCE,EDDY!IEDVIS,C,2)^0.5/(1.8*2.*6.7)!FIXV)
SPEDAT(SET,GXMONI,PLOTALL,L,T)
SPEDAT(SET,MATERIAL,198,L,T)
************************************************************
Group 20. Preliminary Printout
DISTIL = T ;NULLPR = F
NDST = 0
DSTTOL =1.0E-02
EX(P1)=1.308 ;EX(U1)=1.057
EX(V1)=0.4446 ;EX(H1)=3.413E-03
EX(PRPS)=46.889999 ;EX(EDDY)=0.7533
************************************************************
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(P1,Y,N,N,Y,Y,Y)
OUTPUT(U1,Y,N,N,Y,Y,Y)
OUTPUT(V1,Y,N,N,Y,Y,Y)
OUTPUT(H1,Y,N,N,Y,Y,Y)
OUTPUT(PRPS,Y,N,Y,N,N,N)
OUTPUT(EDDY,Y,N,N,N,N,N)
************************************************************
Group 22. Monitor Print-Out
IXMON = 12 ;IYMON = 3 ;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
NXPRIN = -1 ;IXPRF = 1 ;IXPRL = 10000
NYPRIN = -1 ;IYPRF = 1 ;IYPRL = 10000
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
PATCH(PROFVEL ,PROFIL, 1, 26, 6, 6, 1, 1, 1, 1)
PLOT(PROFVEL ,U1 ,0. ,0. )
PATCH(CONTEMP ,CONTUR, 1, 26, 1, 13, 1, 1, 1, 1)
PLOT(CONTEMP ,H1 ,0. ,10. )
************************************************************
Group 24. Dumps For Restarts
SAVE = T ;NOWIPE = F
NSAVE =CHAM
STOP