TALK=T;RUN(1,1)
PHOTON USE
p;;;;;;;;
msg There is no need to press RETURN
upause 3
msg The grid outline.
gr ou z 1 co 8
upause 3
msg The complete grid
gr z 1 co 10
upause 3
gr off
red
msg The left-hand part of the active grid
gr co 8
z 1
1 5 1 10
upause 3
msg The right-hand part of the active grid
gr co 4
z 1
9 13 1 10
upause 3
red
msg Velocity vectors on the left
vec z 1 x 1 5 y 1 10 sh
upause 3
msg Velocity vectors on the right
vec z 1 x 8 13 y 1 10 sh
upause 3
red
msg The pressure field
con p1 fi
z 1
1 5 1 10
0.01
con p1 fi
z 1
8 13 1 10
0.01
upause 3
con off
red
msg The temperature field
con temp fi
z 1
1 5 1 10
0.01
con temp fi
z 1
8 13 1 10
0.01
vec z 1 x 1 5 y 1 10
vec z 1 x 8 13 y 1 10
msg Press e to END
enduse
DISPLAY
Grid-restructuring (also called domain-decomposition or multi-
blocking) allows parts of grids to be moved from their usual
positions and linked with unusual neighbours. The advantage is
that irregular shapes can then be fitted without significant
waste of computer storage or execution time.
The method is here illustrated for a simple rectangular shape
which has one part shifted relative to the other, as indicated.
+-------+
| | ^ shift right-hand
| | | of the grid up
+-------+ | +-------+-------+
| | | | |
| | | | |
| +-------+ | | | grid
| | desired | | | used
| | shape | | |
+-------+ +-------+-------+
LSG58=T, so as to ensure that BFC=T for display purposes only,
ie in SATELLITE and PHOTON, but BFC=F in the EARTH run, because
the grid is cartesian. This saves much storage.
press return to continue.
ENDDIS
************************************************************
Group 1. Run Title and Number
************************************************************
************************************************************
TEXT(Multi-Blocking By Shear, XY Plane )
************************************************************
************************************************************
IRUNN = 1 ;LIBREF = 14
************************************************************
Group 2. Time dependence
STEADY = T
************************************************************
Group 3. X-Direction Grid Spacing
CARTES = T
NX = 13
XULAST =1.3
************************************************************
Group 4. Y-Direction Grid Spacing
NY = 10
YVLAST =1.
************************************************************
Group 5. Z-Direction Grid Spacing
PARAB = F
NZ = 1
ZWLAST =1.
************************************************************
Group 6. Body-Fitted Coordinates
BFC = T ;NONORT = F
NCRT = -1
RSTGEO = F ;SAVGEO = F
UUP = F ;VUP = F ;WUP = F
NGEOM =CHAM
NAMXYZ =CHAM
ANGMIN =20.
DOMAIN( 1, 14, 1, 11, 1, 2)
* Set fixed sub-domain
FIXDOM( 1, 0, 0, 0, 0, 0, 0)
FIXDOM( 2, 0, 0, 0, 0, 0, 0)
FIXDOM( 3, 0, 0, 0, 0, 0, 0)
FIXDOM( 4, 0, 0, 0, 0, 0, 0)
FIXDOM( 5, 0, 0, 0, 0, 0, 0)
FIXDOM( 6, 0, 0, 0, 0, 0, 0)
FIXDOM( 7, 0, 0, 0, 0, 0, 0)
FIXDOM( 8, 0, 0, 0, 0, 0, 0)
FIXDOM( 9, 0, 0, 0, 0, 0, 0)
FIXDOM( 10, 0, 0, 0, 0, 0, 0)
LIJ = F ;LJK = T ;LIK = F
************************************************************
Group 7. Variables: STOREd,SOLVEd,NAMEd
ONEPHS = T
NAME(1)=P1 ;NAME(3)=U1
NAME(5)=V1 ;NAME(14)=TEMP
NAME(16)=PRPS ;NAME(17)=WCRT
NAME(18)=VCRT ;NAME(19)=UCRT
* 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,Y,N,N,N)
SOLUTN(U1,Y,Y,N,N,N,Y)
SOLUTN(V1,Y,Y,N,N,N,Y)
SOLUTN(TEMP,Y,Y,Y,N,N,N)
SOLUTN(PRPS,Y,N,N,N,N,N)
SOLUTN(WCRT,Y,N,N,N,N,N)
SOLUTN(VCRT,Y,N,N,N,N,N)
SOLUTN(UCRT,Y,N,N,N,N,N)
PRPS = 16
************************************************************
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(TEMP,N,N,Y,N,Y,Y)
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. ;ENUT =0.
PRNDTL(U1)=1. ;PRNDTL(V1)=1.
PRNDTL(TEMP)=1.
PRT(U1)=1. ;PRT(V1)=1.
PRT(TEMP)=1.
CP1 =1. ;CP2 =1.
************************************************************
Group 10.Inter-Phase Transfer Processes
************************************************************
Group 11.Initial field variables (PHIs)
FIINIT(P1)=0.45 ;FIINIT(U1)=1.0E-10
FIINIT(V1)=1.0E-10 ;FIINIT(TEMP)=1.0E-10
FIINIT(PRPS)=-1. ;FIINIT(WCRT)=1.0E-10
FIINIT(VCRT)=1.0E-10 ;FIINIT(UCRT)=1.0E-10
PATCH(EXTRACEL,INIVAL, 7, 7, 1, 10, 1, 1, 1, 1)
INIT(EXTRACEL,PRPS,0. ,199. )
PATCH(BLOK2 ,INIVAL, 7, 13, 1, 10, 1, 1, 1, 1)
INIT(BLOK2 ,P1 ,0. ,-0.45 )
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(COLD ,CELL , 1, 1, 1, 10, 1, 1, 1, 1)
COVAL(COLD ,P1 , FIXVAL ,0.9 )
COVAL(COLD ,TEMP,1.0E+05 ,-0.9 )
PATCH(HOT ,CELL , 13, 13, 1, 10, 1, 1, 1, 1)
COVAL(HOT ,P1 , FIXVAL ,-0.9 )
COVAL(HOT ,TEMP,1.0E+05 ,0.9 )
PATCH(+1 ,CELL , 6, 6, 1, 10, 1, 1, 1, 1)
COVAL(+1 ,P1 , FIXVAL ,30. )
COVAL(+1 ,U1 , FIXVAL ,30. )
COVAL(+1 ,V1 , FIXVAL ,30. )
COVAL(+1 ,TEMP, FIXVAL ,30. )
PATCH(+2 ,CELL , 8, 8, 1, 10, 1, 1, 1, 1)
COVAL(+2 ,P1 , FIXVAL ,-30. )
COVAL(+2 ,U1 , FIXVAL ,-30. )
COVAL(+2 ,V1 , FIXVAL ,-30. )
COVAL(+2 ,TEMP, FIXVAL ,-30. )
XCYCLE = F
EGWF = T
WALLCO = GRND2
************************************************************
Group 14. Downstream Pressure For PARAB
************************************************************
Group 15. Terminate Sweeps
LSWEEP = 20 ;ISWC1 = 1
LITHYD = 1 ;LITFLX = 1 ;LITC = 1 ;ITHC1 = 1
SELREF = T
RESFAC =1.0E-02
************************************************************
Group 16. Terminate Iterations
LITER(P1)=-1 ;LITER(U1)=10
LITER(V1)=10 ;LITER(TEMP)=-10
ENDIT(P1)=1.0E-03 ;ENDIT(U1)=1.0E-03
ENDIT(V1)=1.0E-03 ;ENDIT(TEMP)=1.0E-03
************************************************************
Group 17. Relaxation
RELAX(P1,LINRLX,1.)
RELAX(U1,FALSDT,0.1)
RELAX(V1,FALSDT,0.1)
RELAX(TEMP,FALSDT,1.0E+09)
RELAX(PRPS,LINRLX,1.)
RELAX(WCRT,LINRLX,1.)
RELAX(VCRT,LINRLX,1.)
RELAX(UCRT,LINRLX,1.)
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(TEMP)=1.0E+10 ;VARMIN(TEMP)=-1.0E+10
VARMAX(PRPS)=1.0E+10 ;VARMIN(PRPS)=-1.0E+10
VARMAX(WCRT)=1.0E+10 ;VARMIN(WCRT)=-1.0E+10
VARMAX(VCRT)=1.0E+10 ;VARMIN(VCRT)=-1.0E+10
VARMAX(UCRT)=1.0E+10 ;VARMIN(UCRT)=-1.0E+10
************************************************************
Group 19. Data transmitted to GROUND
PARSOL = F
STLONL = T
ISG62 = 1
SPEDAT(SET,GXMONI,PLOTALL,L,T)
SPEDAT(SET,MATERIAL,199,L,T)
************************************************************
Group 20. Preliminary Printout
************************************************************
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,Y,Y,Y,Y)
OUTPUT(U1,Y,N,Y,Y,Y,Y)
OUTPUT(V1,Y,N,Y,Y,Y,Y)
OUTPUT(TEMP,Y,Y,Y,Y,Y,Y)
OUTPUT(PRPS,Y,N,Y,N,N,N)
OUTPUT(WCRT,Y,N,Y,N,N,N)
OUTPUT(VCRT,Y,N,Y,N,N,N)
OUTPUT(UCRT,Y,N,Y,N,N,N)
************************************************************
Group 22. Monitor Print-Out
IXMON = 5 ;IYMON = 6 ;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 = 4 ;IXPRL = 7
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(YLINE ,PROFIL, 1, 13, 5, 5, 1, 1, 1, 1)
PLOT(YLINE ,P1 ,0. ,0. )
PLOT(YLINE ,U1 ,0. ,0. )
PLOT(YLINE ,TEMP,0. ,0. )
PATCH(FIRST ,CONTUR, 1, 5, 1, 10, 1, 1, 1, 1)
PLOT(FIRST ,P1 ,0. ,20. )
PLOT(FIRST ,TEMP,0. ,20. )
PATCH(SECOND ,CONTUR, 8, 13, 1, 10, 1, 1, 1, 1)
PLOT(SECOND ,P1 ,0. ,20. )
PLOT(SECOND ,TEMP,0. ,20. )
************************************************************
Group 24. Dumps For Restarts
SAVE = T ;NOWIPE = F
NSAVE =CHAM
STOP