talk=f;run(1,1)
DISPLAY
Library case H109:
TELEPHONE EXCHANGE
This case represents a real-life telephone exchange unit.
The model is set up of 80 plates (electronic exchnage
units), 1 solid (power supplu unit), 2 apertures and one
internal fan. Turbulence model used LVEL. Electronic units
generate heat and HotBox is used to check maximum
temperature.
Default grid set-up is nx=41, ny=40, nz=20.
However, when you run this case you have the
opportunity to reduce cell number to nx=25, ny=25, nz=15.
(Use PHOTON to display results. Enter USE Q1 in PHOTON
command mode, or create a file called U, which contains
the one line: USE Q1 before typing RUNPHO.
Note that USE file contains commands corresponding to the
coarser grid.)
ENDDIS
****************************************************
PHOTON USE
p;;;;
use patgeo
msg Geometry of the problem
msg
use hotspot
msg
msg Press return to plot temperature field
msg
pause
cont tem1 z 10 fil;.001
cont tem1 x 4 fil;.001
msg Press return to plot velocity field
pause
vec y m sh
vec z m sh
msg Press E to end
ENDUSE
************************************************************
Group 1. Run Title
TEXT(Telephone Exchange
************************************************************
Groups 3, 4, 5 Grid Information
* Overall number of cells, RSET(M,NX,NY,NZ,tolerance)
mesg( Current cell set-up: nx=41, ny=40, nz=20
mesg( Do you want coarser-grid option (nx=25, ny=25, nz=15)?
mesg( (Note that this case requires even finer grid than
mesg( the default one for good accuracy. Coarser grid will
mesg( reduce accuracy further but may be appropriate for
mesg( demonstration purposes.) (y/n)
ans=y
readvdu(ans,char,n)
if(:ans:.eq.y) then
RSET(M,25,25,15)
else
RSET(M,41,40,20)
endif
* Set overall domain extent:
* xulast yvlast zwlast name
XSI= 7.279E-01;YSI= 2.137E+00;ZSI= 8.293E-01;RSET(D,CHAM )
* Set objects: x0 y0 z0
* dx dy dz name
XPO= 0.000E+00;YPO= 0.000E+00;ZPO= 1.000E-01
XSI= 7.279E-01;YSI= 3.359E-01;ZSI= 7.293E-01;RSET(B,PSUP )
XPO= 1.691E-01;YPO= 3.359E-01;ZPO= 1.046E-01
XSI= 0.000E+00;YSI= 3.530E-01;ZSI= 4.826E-01;RSET(B,CLSPL )
XPO= 1.691E-01;YPO= 4.629E-01;ZPO= 5.872E-01
XSI= 5.588E-01;YSI= 0.000E+00;ZSI= 2.000E-01;RSET(B,CSLTP )
XPO= 1.691E-01;YPO= 4.629E-01;ZPO= 5.872E-01
XSI= 5.588E-01;YSI= 1.670E+00;ZSI= 0.000E+00;RSET(B,CLSBK )
XPO= 1.691E-01;YPO= 6.880E-01;ZPO= 1.000E-01
XSI= 5.588E-01;YSI= 0.000E+00;ZSI= 4.826E-01;RSET(B,FANS )
XPO= 1.894E-01;YPO= 7.397E-01;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 2.362E-01;ZSI= 4.826E-01;RSET(B,LOPCB )
XPO= 2.097E-01;YPO= 7.397E-01;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 2.362E-01;ZSI= 4.826E-01;RSET(B,LOPC1 )
XPO= 0.000E+00;YPO= 4.629E-01;ZPO= 8.293E-01
XSI= 7.279E-01;YSI= 3.520E-01;ZSI= 0.000E+00;RSET(B,OUTBK )
XPO= 0.000E+00;YPO= 2.137E+00;ZPO= 0.000E+00
XSI= 7.279E-01;YSI= 0.000E+00;ZSI= 5.860E-01;RSET(B,OUTTP )
XPO= 1.894E-01;YPO= 1.004E+00;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 2.362E-01;ZSI= 4.826E-01;RSET(B,LMPCB )
XPO= 2.093E-01;YPO= 1.004E+00;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 2.362E-01;ZSI= 4.826E-01;RSET(B,LMPC1 )
XPO= 1.890E-01;YPO= 1.268E+00;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 3.683E-01;ZSI= 4.826E-01;RSET(B,TMPCB )
XPO= 1.890E-01;YPO= 1.664E+00;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 3.683E-01;ZSI= 4.826E-01;RSET(B,TOPCB )
XPO= 2.300E-01;YPO= 7.397E-01;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 2.362E-01;ZSI= 4.826E-01;RSET(B,LOPC2 )
XPO= 2.503E-01;YPO= 7.397E-01;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 2.362E-01;ZSI= 4.826E-01;RSET(B,LOPC3 )
XPO= 2.706E-01;YPO= 7.397E-01;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 2.362E-01;ZSI= 4.826E-01;RSET(B,LOPC4 )
XPO= 2.909E-01;YPO= 7.397E-01;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 2.362E-01;ZSI= 4.826E-01;RSET(B,LOPC5 )
XPO= 3.112E-01;YPO= 7.397E-01;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 2.362E-01;ZSI= 4.826E-01;RSET(B,LOPC6 )
XPO= 3.315E-01;YPO= 7.397E-01;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 2.362E-01;ZSI= 4.826E-01;RSET(B,LOPC7 )
XPO= 3.518E-01;YPO= 7.397E-01;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 2.362E-01;ZSI= 4.826E-01;RSET(B,LOPC8 )
XPO= 3.721E-01;YPO= 7.397E-01;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 2.362E-01;ZSI= 4.826E-01;RSET(B,LOPC9 )
XPO= 3.924E-01;YPO= 7.397E-01;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 2.362E-01;ZSI= 4.826E-01;RSET(B,LOP10 )
XPO= 3.924E-01;YPO= 7.397E-01;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 2.362E-01;ZSI= 4.826E-01;RSET(B,LOP11 )
XPO= 4.127E-01;YPO= 7.397E-01;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 2.362E-01;ZSI= 4.826E-01;RSET(B,LOP12 )
XPO= 4.330E-01;YPO= 7.397E-01;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 2.362E-01;ZSI= 4.826E-01;RSET(B,LOP13 )
XPO= 4.533E-01;YPO= 7.397E-01;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 2.362E-01;ZSI= 4.826E-01;RSET(B,LOP14 )
XPO= 4.736E-01;YPO= 7.397E-01;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 2.362E-01;ZSI= 4.826E-01;RSET(B,LOP15 )
XPO= 4.939E-01;YPO= 7.397E-01;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 2.362E-01;ZSI= 4.826E-01;RSET(B,LOP16 )
XPO= 5.142E-01;YPO= 7.397E-01;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 2.362E-01;ZSI= 4.826E-01;RSET(B,LOP17 )
XPO= 5.345E-01;YPO= 7.397E-01;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 2.362E-01;ZSI= 4.826E-01;RSET(B,LOP18 )
XPO= 5.548E-01;YPO= 7.397E-01;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 2.362E-01;ZSI= 4.826E-01;RSET(B,LOP19 )
XPO= 2.296E-01;YPO= 1.004E+00;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 2.362E-01;ZSI= 4.826E-01;RSET(B,LMPC2 )
XPO= 2.499E-01;YPO= 1.004E+00;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 2.362E-01;ZSI= 4.826E-01;RSET(B,LMPC3 )
XPO= 2.702E-01;YPO= 1.004E+00;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 2.362E-01;ZSI= 4.826E-01;RSET(B,LMPC4 )
XPO= 2.905E-01;YPO= 1.004E+00;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 2.362E-01;ZSI= 4.826E-01;RSET(B,LMPC5 )
XPO= 3.108E-01;YPO= 1.004E+00;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 2.362E-01;ZSI= 4.826E-01;RSET(B,LMPC6 )
XPO= 3.311E-01;YPO= 1.004E+00;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 2.362E-01;ZSI= 4.826E-01;RSET(B,LMPC7 )
XPO= 3.514E-01;YPO= 1.004E+00;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 2.362E-01;ZSI= 4.826E-01;RSET(B,LMPC8 )
XPO= 3.717E-01;YPO= 1.004E+00;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 2.362E-01;ZSI= 4.826E-01;RSET(B,LMPC9 )
XPO= 3.920E-01;YPO= 1.004E+00;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 2.362E-01;ZSI= 4.826E-01;RSET(B,LMP10 )
XPO= 4.123E-01;YPO= 1.004E+00;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 2.362E-01;ZSI= 4.826E-01;RSET(B,LMP11 )
XPO= 4.326E-01;YPO= 1.004E+00;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 2.362E-01;ZSI= 4.826E-01;RSET(B,LMP12 )
XPO= 4.529E-01;YPO= 1.004E+00;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 2.362E-01;ZSI= 4.826E-01;RSET(B,LMP13 )
XPO= 4.732E-01;YPO= 1.004E+00;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 2.362E-01;ZSI= 4.826E-01;RSET(B,LMP14 )
XPO= 4.935E-01;YPO= 1.004E+00;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 2.362E-01;ZSI= 4.826E-01;RSET(B,LMP15 )
XPO= 5.138E-01;YPO= 1.004E+00;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 2.362E-01;ZSI= 4.826E-01;RSET(B,LMP16 )
XPO= 5.341E-01;YPO= 1.004E+00;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 2.362E-01;ZSI= 4.826E-01;RSET(B,LMP17 )
XPO= 5.544E-01;YPO= 1.004E+00;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 2.362E-01;ZSI= 4.826E-01;RSET(B,LMP18 )
XPO= 5.747E-01;YPO= 1.004E+00;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 2.362E-01;ZSI= 4.826E-01;RSET(B,LMP19 )
XPO= 2.093E-01;YPO= 1.268E+00;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 3.683E-01;ZSI= 4.826E-01;RSET(B,TMPC1 )
XPO= 2.296E-01;YPO= 1.268E+00;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 3.683E-01;ZSI= 4.826E-01;RSET(B,TMPC2 )
XPO= 2.499E-01;YPO= 1.268E+00;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 3.683E-01;ZSI= 4.826E-01;RSET(B,TMPC3 )
XPO= 2.702E-01;YPO= 1.268E+00;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 3.683E-01;ZSI= 4.826E-01;RSET(B,TMPC4 )
XPO= 2.905E-01;YPO= 1.268E+00;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 3.683E-01;ZSI= 4.826E-01;RSET(B,TMPC5 )
XPO= 3.108E-01;YPO= 1.268E+00;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 3.683E-01;ZSI= 4.826E-01;RSET(B,TMPC6 )
XPO= 3.311E-01;YPO= 1.268E+00;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 3.683E-01;ZSI= 4.826E-01;RSET(B,TMPC7 )
XPO= 3.514E-01;YPO= 1.268E+00;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 3.683E-01;ZSI= 4.826E-01;RSET(B,TMPC8 )
XPO= 3.717E-01;YPO= 1.268E+00;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 3.683E-01;ZSI= 4.826E-01;RSET(B,TMPC9 )
XPO= 3.920E-01;YPO= 1.268E+00;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 3.683E-01;ZSI= 4.826E-01;RSET(B,TMP10 )
XPO= 4.123E-01;YPO= 1.268E+00;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 3.683E-01;ZSI= 4.826E-01;RSET(B,TMP11 )
XPO= 4.326E-01;YPO= 1.268E+00;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 3.683E-01;ZSI= 4.826E-01;RSET(B,TMP12 )
XPO= 4.529E-01;YPO= 1.268E+00;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 3.683E-01;ZSI= 4.826E-01;RSET(B,TMP13 )
XPO= 4.732E-01;YPO= 1.268E+00;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 3.683E-01;ZSI= 4.826E-01;RSET(B,TMP14 )
XPO= 4.935E-01;YPO= 1.268E+00;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 3.683E-01;ZSI= 4.826E-01;RSET(B,TMP15 )
XPO= 5.138E-01;YPO= 1.268E+00;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 3.683E-01;ZSI= 4.826E-01;RSET(B,TMP16 )
XPO= 5.341E-01;YPO= 1.268E+00;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 3.683E-01;ZSI= 4.826E-01;RSET(B,TMP17 )
XPO= 5.544E-01;YPO= 1.268E+00;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 3.683E-01;ZSI= 4.826E-01;RSET(B,TMP18 )
XPO= 5.747E-01;YPO= 1.268E+00;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 3.683E-01;ZSI= 4.826E-01;RSET(B,TMP19 )
XPO= 2.093E-01;YPO= 1.664E+00;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 3.683E-01;ZSI= 4.826E-01;RSET(B,TOPC1 )
XPO= 2.296E-01;YPO= 1.664E+00;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 3.683E-01;ZSI= 4.826E-01;RSET(B,TOPC2 )
XPO= 2.499E-01;YPO= 1.664E+00;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 3.683E-01;ZSI= 4.826E-01;RSET(B,TOPC3 )
XPO= 2.702E-01;YPO= 1.664E+00;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 3.683E-01;ZSI= 4.826E-01;RSET(B,TOPC4 )
XPO= 2.905E-01;YPO= 1.664E+00;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 3.683E-01;ZSI= 4.826E-01;RSET(B,TOPC5 )
XPO= 3.108E-01;YPO= 1.664E+00;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 3.683E-01;ZSI= 4.826E-01;RSET(B,TOPC6 )
XPO= 3.311E-01;YPO= 1.664E+00;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 3.683E-01;ZSI= 4.826E-01;RSET(B,TOPC7 )
XPO= 3.514E-01;YPO= 1.664E+00;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 3.683E-01;ZSI= 4.826E-01;RSET(B,TOPC8 )
XPO= 3.717E-01;YPO= 1.664E+00;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 3.683E-01;ZSI= 4.826E-01;RSET(B,TOPC9 )
XPO= 3.920E-01;YPO= 1.664E+00;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 3.683E-01;ZSI= 4.826E-01;RSET(B,TOP10 )
XPO= 4.123E-01;YPO= 1.664E+00;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 3.683E-01;ZSI= 4.826E-01;RSET(B,TOP11 )
XPO= 4.326E-01;YPO= 1.664E+00;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 3.683E-01;ZSI= 4.826E-01;RSET(B,TOP12 )
XPO= 4.529E-01;YPO= 1.664E+00;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 3.683E-01;ZSI= 4.826E-01;RSET(B,TOP13 )
XPO= 4.732E-01;YPO= 1.664E+00;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 3.683E-01;ZSI= 4.826E-01;RSET(B,TOP14 )
XPO= 4.935E-01;YPO= 1.664E+00;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 3.683E-01;ZSI= 4.826E-01;RSET(B,TOP15 )
XPO= 5.138E-01;YPO= 1.664E+00;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 3.683E-01;ZSI= 4.826E-01;RSET(B,TOP16 )
XPO= 5.341E-01;YPO= 1.664E+00;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 3.683E-01;ZSI= 4.826E-01;RSET(B,TOP17 )
XPO= 5.544E-01;YPO= 1.664E+00;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 3.683E-01;ZSI= 4.826E-01;RSET(B,TOP18 )
XPO= 5.747E-01;YPO= 1.664E+00;ZPO= 1.040E-01
XSI= 0.000E+00;YSI= 3.683E-01;ZSI= 4.826E-01;RSET(B,TOP19 )
************************************************************
Group 7. Variables: STOREd,SOLVEd,NAMEd
ONEPHS = T
* Non-default variable names
NAME( 43) =EPOR ; NAME( 46) =BLOK
NAME( 47) =PRPS ; NAME( 49) =DEN1
NAME( 50) =TEM1
* Solved variables list
SOLVE(P1 ,U1 ,V1 ,W1 ,TEM1)
* Stored variables list
STORE(DEN1,WDIS,PRPS,BLOK,EPOR)
* Additional solver options
SOLUTN(P1 ,Y,Y,Y,N,N,N)
SOLUTN(TEM1,Y,Y,Y,N,N,Y)
IVARBK = -1 ;ISOLBK = 1
TURMOD(LVEL)
************************************************************
Group 8. Terms & Devices
NEWRH1 = T; NEWENL = T; NEWENT = T
ISOLX = 0 ;ISOLY = 0 ;ISOLZ = 0
************************************************************
Group 9. Properties
RHO1 = FILE
PRESS0 = 1.000E+05; TEMP0 = 2.730E+02
CP1 = FILE; ENUL = FILE
PRNDTL(LTLS) = -GRND2 ;PRNDTL(TEM1) = CONDFILE
************************************************************
Group 11.Initialise Var/Porosity Fields
FIINIT(EPOR) = 1.000E+00 ;FIINIT(BLOK) = 1.000E+00
FIINIT(PRPS) = 2.000E+00 ;FIINIT(WDIS) = 7.279E-02
FIINIT(TEM1) = 2.000E+01
CONPOR(LOPCB , 0.00,EAST ,-#2,-#2,-#5,-#6,-#2,-#5)
CONPOR(LOPC1 , 0.00,EAST ,-#3,-#3,-#5,-#6,-#2,-#5)
CONPOR(LOPC2 , 0.00,EAST ,-#4,-#4,-#5,-#6,-#2,-#5)
CONPOR(LOPC3 , 0.00,EAST ,-#5,-#5,-#5,-#6,-#2,-#5)
CONPOR(LOPC4 , 0.00,EAST ,-#6,-#6,-#5,-#6,-#2,-#5)
CONPOR(LOPC5 , 0.00,EAST ,-#7,-#7,-#5,-#6,-#2,-#5)
CONPOR(LOPC6 , 0.00,EAST ,-#8,-#8,-#5,-#6,-#2,-#5)
CONPOR(LOPC7 , 0.00,EAST ,-#9,-#9,-#5,-#6,-#2,-#5)
CONPOR(LOPC8 , 0.00,EAST ,-#10,-#10,-#5,-#6,-#2,-#5)
CONPOR(LOPC9 , 0.00,EAST ,-#11,-#11,-#5,-#6,-#2,-#5)
CONPOR(LOP10 , 0.00,EAST ,-#12,-#12,-#5,-#6,-#2,-#5)
CONPOR(LOP11 , 0.00,EAST ,-#12,-#12,-#5,-#6,-#2,-#5)
CONPOR(LOP12 , 0.00,EAST ,-#13,-#13,-#5,-#6,-#2,-#5)
CONPOR(LOP13 , 0.00,EAST ,-#14,-#14,-#5,-#6,-#2,-#5)
CONPOR(LOP14 , 0.00,EAST ,-#15,-#15,-#5,-#6,-#2,-#5)
CONPOR(LOP15 , 0.00,EAST ,-#16,-#16,-#5,-#6,-#2,-#5)
CONPOR(LOP16 , 0.00,EAST ,-#17,-#17,-#5,-#6,-#2,-#5)
CONPOR(LOP17 , 0.00,EAST ,-#18,-#18,-#5,-#6,-#2,-#5)
CONPOR(LOP18 , 0.00,EAST ,-#19,-#19,-#5,-#6,-#2,-#5)
CONPOR(LOP19 , 0.00,EAST ,-#20,-#20,-#5,-#6,-#2,-#5)
CONPOR(LMPCB , 0.00,EAST ,-#2,-#2,-#8,-#8,-#2,-#5)
CONPOR(LMPC1 , 0.00,EAST ,-#3,-#3,-#8,-#8,-#2,-#5)
CONPOR(LMPC2 , 0.00,EAST ,-#4,-#4,-#8,-#8,-#2,-#5)
CONPOR(LMPC3 , 0.00,EAST ,-#5,-#5,-#8,-#8,-#2,-#5)
CONPOR(LMPC4 , 0.00,EAST ,-#6,-#6,-#8,-#8,-#2,-#5)
CONPOR(LMPC5 , 0.00,EAST ,-#7,-#7,-#8,-#8,-#2,-#5)
CONPOR(LMPC6 , 0.00,EAST ,-#8,-#8,-#8,-#8,-#2,-#5)
CONPOR(LMPC7 , 0.00,EAST ,-#9,-#9,-#8,-#8,-#2,-#5)
CONPOR(LMPC8 , 0.00,EAST ,-#10,-#10,-#8,-#8,-#2,-#5)
CONPOR(LMPC9 , 0.00,EAST ,-#11,-#11,-#8,-#8,-#2,-#5)
CONPOR(LMP10 , 0.00,EAST ,-#12,-#12,-#8,-#8,-#2,-#5)
CONPOR(LMP11 , 0.00,EAST ,-#13,-#13,-#8,-#8,-#2,-#5)
CONPOR(LMP12 , 0.00,EAST ,-#14,-#14,-#8,-#8,-#2,-#5)
CONPOR(LMP13 , 0.00,EAST ,-#15,-#15,-#8,-#8,-#2,-#5)
CONPOR(LMP14 , 0.00,EAST ,-#16,-#16,-#8,-#8,-#2,-#5)
CONPOR(LMP15 , 0.00,EAST ,-#17,-#17,-#8,-#8,-#2,-#5)
CONPOR(LMP16 , 0.00,EAST ,-#18,-#18,-#8,-#8,-#2,-#5)
CONPOR(LMP17 , 0.00,EAST ,-#19,-#19,-#8,-#8,-#2,-#5)
CONPOR(LMP18 , 0.00,EAST ,-#20,-#20,-#8,-#8,-#2,-#5)
CONPOR(LMP19 , 0.00,EAST ,-#21,-#21,-#8,-#8,-#2,-#5)
CONPOR(TMPCB , 0.00,EAST ,-#2,-#2,-#10,-#10,-#2,-#5)
CONPOR(TMPC1 , 0.00,EAST ,-#3,-#3,-#10,-#10,-#2,-#5)
CONPOR(TMPC2 , 0.00,EAST ,-#4,-#4,-#10,-#10,-#2,-#5)
CONPOR(TMPC3 , 0.00,EAST ,-#5,-#5,-#10,-#10,-#2,-#5)
CONPOR(TMPC4 , 0.00,EAST ,-#6,-#6,-#10,-#10,-#2,-#5)
CONPOR(TMPC5 , 0.00,EAST ,-#7,-#7,-#10,-#10,-#2,-#5)
CONPOR(TMPC6 , 0.00,EAST ,-#8,-#8,-#10,-#10,-#2,-#5)
CONPOR(TMPC7 , 0.00,EAST ,-#9,-#9,-#10,-#10,-#2,-#5)
CONPOR(TMPC8 , 0.00,EAST ,-#10,-#10,-#10,-#10,-#2,-#5)
CONPOR(TMPC9 , 0.00,EAST ,-#11,-#11,-#10,-#10,-#2,-#5)
CONPOR(TMP10 , 0.00,EAST ,-#12,-#12,-#10,-#10,-#2,-#5)
CONPOR(TMP11 , 0.00,EAST ,-#13,-#13,-#10,-#10,-#2,-#5)
CONPOR(TMP12 , 0.00,EAST ,-#14,-#14,-#10,-#10,-#2,-#5)
CONPOR(TMP13 , 0.00,EAST ,-#15,-#15,-#10,-#10,-#2,-#5)
CONPOR(TMP14 , 0.00,EAST ,-#16,-#16,-#10,-#10,-#2,-#5)
CONPOR(TMP15 , 0.00,EAST ,-#17,-#17,-#10,-#10,-#2,-#5)
CONPOR(TMP16 , 0.00,EAST ,-#18,-#18,-#10,-#10,-#2,-#5)
CONPOR(TMP17 , 0.00,EAST ,-#19,-#19,-#10,-#10,-#2,-#5)
CONPOR(TMP18 , 0.00,EAST ,-#20,-#20,-#10,-#10,-#2,-#5)
CONPOR(TMP19 , 0.00,EAST ,-#21,-#21,-#10,-#10,-#2,-#5)
CONPOR(TOPCB , 0.00,EAST ,-#2,-#2,-#12,-#12,-#2,-#5)
CONPOR(TOPC1 , 0.00,EAST ,-#3,-#3,-#12,-#12,-#2,-#5)
CONPOR(TOPC2 , 0.00,EAST ,-#4,-#4,-#12,-#12,-#2,-#5)
CONPOR(TOPC3 , 0.00,EAST ,-#5,-#5,-#12,-#12,-#2,-#5)
CONPOR(TOPC4 , 0.00,EAST ,-#6,-#6,-#12,-#12,-#2,-#5)
CONPOR(TOPC5 , 0.00,EAST ,-#7,-#7,-#12,-#12,-#2,-#5)
CONPOR(TOPC6 , 0.00,EAST ,-#8,-#8,-#12,-#12,-#2,-#5)
CONPOR(TOPC7 , 0.00,EAST ,-#9,-#9,-#12,-#12,-#2,-#5)
CONPOR(TOPC8 , 0.00,EAST ,-#10,-#10,-#12,-#12,-#2,-#5)
CONPOR(TOPC9 , 0.00,EAST ,-#11,-#11,-#12,-#12,-#2,-#5)
CONPOR(TOP10 , 0.00,EAST ,-#12,-#12,-#12,-#12,-#2,-#5)
CONPOR(TOP11 , 0.00,EAST ,-#13,-#13,-#12,-#12,-#2,-#5)
CONPOR(TOP12 , 0.00,EAST ,-#14,-#14,-#12,-#12,-#2,-#5)
CONPOR(TOP13 , 0.00,EAST ,-#15,-#15,-#12,-#12,-#2,-#5)
CONPOR(TOP14 , 0.00,EAST ,-#16,-#16,-#12,-#12,-#2,-#5)
CONPOR(TOP15 , 0.00,EAST ,-#17,-#17,-#12,-#12,-#2,-#5)
CONPOR(TOP16 , 0.00,EAST ,-#18,-#18,-#12,-#12,-#2,-#5)
CONPOR(TOP17 , 0.00,EAST ,-#19,-#19,-#12,-#12,-#2,-#5)
CONPOR(TOP18 , 0.00,EAST ,-#20,-#20,-#12,-#12,-#2,-#5)
CONPOR(TOP19 , 0.00,EAST ,-#21,-#21,-#12,-#12,-#2,-#5)
CONPOR(PSUP , -1.00,CELL ,-#1,-#22,-#1,-#1,-#2,-#7)
INIT(PSUP ,BLOK, 0.000E+00, 2.000E+00)
INIT(PSUP ,PRPS, 0.000E+00, 1.110E+02)
INIADD = F
************************************************************
Group 13. Boundary & Special Sources
PATCH (FANS ,NORTH ,#2,#22,#3,#3,#2,#3,1,1)
COVAL (FANS ,V1 , FIXVAL , 1.000E+00)
PATCH (OUTBK ,HIGH ,#1,#22,#3,#5,#7,#7,1,1)
COVAL (OUTBK ,P1 , 1.000E+00, 0.000E+00)
COVAL (OUTBK ,TEM1, 0.000E+00, 2.000E+01)
PATCH (OUTTP ,NORTH ,#1,#22,#14,#14,#1,#4,1,1)
COVAL (OUTTP ,P1 , 1.000E+00, 0.000E+00)
COVAL (OUTTP ,TEM1, 0.000E+00, 2.000E+01)
PATCH (HOTLOPCB,EAST ,#2,#2,#5,#6,#2,#5,1,1)
COVAL (HOTLOPCB,TEM1, FIXFLU , 3.509E+02)
PATCH (HOTLOPC1,EAST ,#3,#3,#5,#6,#2,#5,1,1)
COVAL (HOTLOPC1,TEM1, FIXFLU , 3.509E+02)
PATCH (HOTLOPC2,EAST ,#4,#4,#5,#6,#2,#5,1,1)
COVAL (HOTLOPC2,TEM1, FIXFLU , 3.509E+02)
PATCH (HOTLOPC3,EAST ,#5,#5,#5,#6,#2,#5,1,1)
COVAL (HOTLOPC3,TEM1, FIXFLU , 3.509E+02)
PATCH (HOTLOPC4,EAST ,#6,#6,#5,#6,#2,#5,1,1)
COVAL (HOTLOPC4,TEM1, FIXFLU , 3.509E+02)
PATCH (HOTLOPC5,EAST ,#7,#7,#5,#6,#2,#5,1,1)
COVAL (HOTLOPC5,TEM1, FIXFLU , 3.509E+02)
PATCH (HOTLOPC6,EAST ,#8,#8,#5,#6,#2,#5,1,1)
COVAL (HOTLOPC6,TEM1, FIXFLU , 3.509E+02)
PATCH (HOTLOPC7,EAST ,#9,#9,#5,#6,#2,#5,1,1)
COVAL (HOTLOPC7,TEM1, FIXFLU , 3.509E+02)
PATCH (HOTLOPC8,EAST ,#10,#10,#5,#6,#2,#5,1,1)
COVAL (HOTLOPC8,TEM1, FIXFLU , 3.509E+02)
PATCH (HOTLOPC9,EAST ,#11,#11,#5,#6,#2,#5,1,1)
COVAL (HOTLOPC9,TEM1, FIXFLU , 3.509E+02)
PATCH (HOTLOP10,EAST ,#12,#12,#5,#6,#2,#5,1,1)
COVAL (HOTLOP10,TEM1, FIXFLU , 3.509E+02)
PATCH (HOTLOP11,EAST ,#12,#12,#5,#6,#2,#5,1,1)
COVAL (HOTLOP11,TEM1, FIXFLU , 3.509E+02)
PATCH (HOTLOP12,EAST ,#13,#13,#5,#6,#2,#5,1,1)
COVAL (HOTLOP12,TEM1, FIXFLU , 3.509E+02)
PATCH (HOTLOP13,EAST ,#14,#14,#5,#6,#2,#5,1,1)
COVAL (HOTLOP13,TEM1, FIXFLU , 3.509E+02)
PATCH (HOTLOP14,EAST ,#15,#15,#5,#6,#2,#5,1,1)
COVAL (HOTLOP14,TEM1, FIXFLU , 3.509E+02)
PATCH (HOTLOP15,EAST ,#16,#16,#5,#6,#2,#5,1,1)
COVAL (HOTLOP15,TEM1, FIXFLU , 3.509E+02)
PATCH (HOTLOP16,EAST ,#17,#17,#5,#6,#2,#5,1,1)
COVAL (HOTLOP16,TEM1, FIXFLU , 3.509E+02)
PATCH (HOTLOP17,EAST ,#18,#18,#5,#6,#2,#5,1,1)
COVAL (HOTLOP17,TEM1, FIXFLU , 3.509E+02)
PATCH (HOTLOP18,EAST ,#19,#19,#5,#6,#2,#5,1,1)
COVAL (HOTLOP18,TEM1, FIXFLU , 3.509E+02)
PATCH (HOTLOP19,EAST ,#20,#20,#5,#6,#2,#5,1,1)
COVAL (HOTLOP19,TEM1, FIXFLU , 3.509E+02)
PATCH (HOTLMPCB,EAST ,#2,#2,#8,#8,#2,#5,1,1)
COVAL (HOTLMPCB,TEM1, FIXFLU , 3.509E+02)
PATCH (HOTLMPC1,EAST ,#3,#3,#8,#8,#2,#5,1,1)
COVAL (HOTLMPC1,TEM1, FIXFLU , 3.509E+02)
PATCH (HOTLMPC2,EAST ,#4,#4,#8,#8,#2,#5,1,1)
COVAL (HOTLMPC2,TEM1, FIXFLU , 3.509E+02)
PATCH (HOTLMPC3,EAST ,#5,#5,#8,#8,#2,#5,1,1)
COVAL (HOTLMPC3,TEM1, FIXFLU , 3.509E+02)
PATCH (HOTLMPC4,EAST ,#6,#6,#8,#8,#2,#5,1,1)
COVAL (HOTLMPC4,TEM1, FIXFLU , 3.509E+02)
PATCH (HOTLMPC5,EAST ,#7,#7,#8,#8,#2,#5,1,1)
COVAL (HOTLMPC5,TEM1, FIXFLU , 3.509E+02)
PATCH (HOTLMPC6,EAST ,#8,#8,#8,#8,#2,#5,1,1)
COVAL (HOTLMPC6,TEM1, FIXFLU , 3.509E+02)
PATCH (HOTLMPC7,EAST ,#9,#9,#8,#8,#2,#5,1,1)
COVAL (HOTLMPC7,TEM1, FIXFLU , 3.509E+02)
PATCH (HOTLMPC8,EAST ,#10,#10,#8,#8,#2,#5,1,1)
COVAL (HOTLMPC8,TEM1, FIXFLU , 3.509E+02)
PATCH (HOTLMPC9,EAST ,#11,#11,#8,#8,#2,#5,1,1)
COVAL (HOTLMPC9,TEM1, FIXFLU , 3.509E+02)
PATCH (HOTLMP10,EAST ,#12,#12,#8,#8,#2,#5,1,1)
COVAL (HOTLMP10,TEM1, FIXFLU , 3.509E+02)
PATCH (HOTLMP11,EAST ,#13,#13,#8,#8,#2,#5,1,1)
COVAL (HOTLMP11,TEM1, FIXFLU , 3.509E+02)
PATCH (HOTLMP12,EAST ,#14,#14,#8,#8,#2,#5,1,1)
COVAL (HOTLMP12,TEM1, FIXFLU , 3.509E+02)
PATCH (HOTLMP13,EAST ,#15,#15,#8,#8,#2,#5,1,1)
COVAL (HOTLMP13,TEM1, FIXFLU , 3.509E+02)
PATCH (HOTLMP14,EAST ,#16,#16,#8,#8,#2,#5,1,1)
COVAL (HOTLMP14,TEM1, FIXFLU , 3.509E+02)
PATCH (HOTLMP15,EAST ,#17,#17,#8,#8,#2,#5,1,1)
COVAL (HOTLMP15,TEM1, FIXFLU , 3.509E+02)
PATCH (HOTLMP16,EAST ,#18,#18,#8,#8,#2,#5,1,1)
COVAL (HOTLMP16,TEM1, FIXFLU , 3.509E+02)
PATCH (HOTLMP17,EAST ,#19,#19,#8,#8,#2,#5,1,1)
COVAL (HOTLMP17,TEM1, FIXFLU , 2.250E+02)
PATCH (HOTLMP18,EAST ,#20,#20,#8,#8,#2,#5,1,1)
COVAL (HOTLMP18,TEM1, FIXFLU , 3.509E+02)
PATCH (HOTLMP19,EAST ,#21,#21,#8,#8,#2,#5,1,1)
COVAL (HOTLMP19,TEM1, FIXFLU , 3.509E+02)
PATCH (HOTTMPCB,EAST ,#2,#2,#10,#10,#2,#5,1,1)
COVAL (HOTTMPCB,TEM1, FIXFLU , 2.251E+02)
PATCH (HOTTMPC1,EAST ,#3,#3,#10,#10,#2,#5,1,1)
COVAL (HOTTMPC1,TEM1, FIXFLU , 2.251E+02)
PATCH (HOTTMPC2,EAST ,#4,#4,#10,#10,#2,#5,1,1)
COVAL (HOTTMPC2,TEM1, FIXFLU , 2.251E+02)
PATCH (HOTTMPC3,EAST ,#5,#5,#10,#10,#2,#5,1,1)
COVAL (HOTTMPC3,TEM1, FIXFLU , 2.251E+02)
PATCH (HOTTMPC4,EAST ,#6,#6,#10,#10,#2,#5,1,1)
COVAL (HOTTMPC4,TEM1, FIXFLU , 2.251E+02)
PATCH (HOTTMPC5,EAST ,#7,#7,#10,#10,#2,#5,1,1)
COVAL (HOTTMPC5,TEM1, FIXFLU , 2.251E+02)
PATCH (HOTTMPC6,EAST ,#8,#8,#10,#10,#2,#5,1,1)
COVAL (HOTTMPC6,TEM1, FIXFLU , 2.251E+02)
PATCH (HOTTMPC7,EAST ,#9,#9,#10,#10,#2,#5,1,1)
COVAL (HOTTMPC7,TEM1, FIXFLU , 2.251E+02)
PATCH (HOTTMPC8,EAST ,#10,#10,#10,#10,#2,#5,1,1)
COVAL (HOTTMPC8,TEM1, FIXFLU , 2.251E+02)
PATCH (HOTTMPC9,EAST ,#11,#11,#10,#10,#2,#5,1,1)
COVAL (HOTTMPC9,TEM1, FIXFLU , 2.251E+02)
PATCH (HOTTMP10,EAST ,#12,#12,#10,#10,#2,#5,1,1)
COVAL (HOTTMP10,TEM1, FIXFLU , 2.251E+02)
PATCH (HOTTMP11,EAST ,#13,#13,#10,#10,#2,#5,1,1)
COVAL (HOTTMP11,TEM1, FIXFLU , 2.251E+02)
PATCH (HOTTMP12,EAST ,#14,#14,#10,#10,#2,#5,1,1)
COVAL (HOTTMP12,TEM1, FIXFLU , 2.251E+02)
PATCH (HOTTMP13,EAST ,#15,#15,#10,#10,#2,#5,1,1)
COVAL (HOTTMP13,TEM1, FIXFLU , 2.251E+02)
PATCH (HOTTMP14,EAST ,#16,#16,#10,#10,#2,#5,1,1)
COVAL (HOTTMP14,TEM1, FIXFLU , 2.251E+02)
PATCH (HOTTMP15,EAST ,#17,#17,#10,#10,#2,#5,1,1)
COVAL (HOTTMP15,TEM1, FIXFLU , 2.251E+02)
PATCH (HOTTMP16,EAST ,#18,#18,#10,#10,#2,#5,1,1)
COVAL (HOTTMP16,TEM1, FIXFLU , 2.251E+02)
PATCH (HOTTMP17,WEST ,#20,#20,#10,#10,#2,#5,1,1)
COVAL (HOTTMP17,TEM1, FIXFLU , 2.251E+02)
PATCH (HOTTMP18,EAST ,#20,#20,#10,#10,#2,#5,1,1)
COVAL (HOTTMP18,TEM1, FIXFLU , 3.509E+02)
PATCH (HOTTMP19,EAST ,#21,#21,#10,#10,#2,#5,1,1)
COVAL (HOTTMP19,TEM1, FIXFLU , 3.509E+02)
PATCH (HOTTOPCB,EAST ,#2,#2,#12,#12,#2,#5,1,1)
COVAL (HOTTOPCB,TEM1, FIXFLU , 2.251E+02)
PATCH (HOTTOPC1,EAST ,#3,#3,#12,#12,#2,#5,1,1)
COVAL (HOTTOPC1,TEM1, FIXFLU , 2.251E+02)
PATCH (HOTTOPC2,EAST ,#4,#4,#12,#12,#2,#5,1,1)
COVAL (HOTTOPC2,TEM1, FIXFLU , 2.251E+02)
PATCH (HOTTOPC3,EAST ,#5,#5,#12,#12,#2,#5,1,1)
COVAL (HOTTOPC3,TEM1, FIXFLU , 2.251E+02)
PATCH (HOTTOPC4,EAST ,#6,#6,#12,#12,#2,#5,1,1)
COVAL (HOTTOPC4,TEM1, FIXFLU , 2.251E+02)
PATCH (HOTTOPC5,EAST ,#7,#7,#12,#12,#2,#5,1,1)
COVAL (HOTTOPC5,TEM1, FIXFLU , 2.251E+02)
PATCH (HOTTOPC6,EAST ,#8,#8,#12,#12,#2,#5,1,1)
COVAL (HOTTOPC6,TEM1, FIXFLU , 2.251E+02)
PATCH (HOTTOPC7,EAST ,#9,#9,#12,#12,#2,#5,1,1)
COVAL (HOTTOPC7,TEM1, FIXFLU , 2.251E+02)
PATCH (HOTTOPC8,EAST ,#10,#10,#12,#12,#2,#5,1,1)
COVAL (HOTTOPC8,TEM1, FIXFLU , 2.251E+02)
PATCH (HOTTOPC9,EAST ,#11,#11,#12,#12,#2,#5,1,1)
COVAL (HOTTOPC9,TEM1, FIXFLU , 2.251E+02)
PATCH (HOTTOP10,EAST ,#12,#12,#12,#12,#2,#5,1,1)
COVAL (HOTTOP10,TEM1, FIXFLU , 2.251E+02)
PATCH (HOTTOP11,EAST ,#13,#13,#12,#12,#2,#5,1,1)
COVAL (HOTTOP11,TEM1, FIXFLU , 2.251E+02)
PATCH (HOTTOP12,EAST ,#14,#14,#12,#12,#2,#5,1,1)
COVAL (HOTTOP12,TEM1, FIXFLU , 2.251E+02)
PATCH (HOTTOP13,EAST ,#15,#15,#12,#12,#2,#5,1,1)
COVAL (HOTTOP13,TEM1, FIXFLU , 2.251E+02)
PATCH (HOTTOP14,EAST ,#16,#16,#12,#12,#2,#5,1,1)
COVAL (HOTTOP14,TEM1, FIXFLU , 2.251E+02)
PATCH (HOTTOP15,EAST ,#17,#17,#12,#12,#2,#5,1,1)
COVAL (HOTTOP15,TEM1, FIXFLU , 2.251E+02)
PATCH (HOTTOP16,EAST ,#18,#18,#12,#12,#2,#5,1,1)
COVAL (HOTTOP16,TEM1, FIXFLU , 2.251E+02)
PATCH (HOTTOP17,WEST ,#20,#20,#12,#12,#2,#5,1,1)
COVAL (HOTTOP17,TEM1, FIXFLU , 2.251E+02)
PATCH (HOTTOP18,EAST ,#20,#20,#12,#12,#2,#5,1,1)
COVAL (HOTTOP18,TEM1, FIXFLU , 2.250E+02)
PATCH (HOTTOP19,EAST ,#21,#21,#12,#12,#2,#5,1,1)
COVAL (HOTTOP19,TEM1, FIXFLU , 3.509E+02)
PATCH (HOTPSUP ,VOLUME,#1,#22,#1,#1,#2,#7,#1,#1)
COVAL (HOTPSUP ,TEM1, FIXFLU , 1.795E+03)
PATCH (BUOYANCY,PHASEM,#1,#NREGX,#1,#NREGY,#1,#NREGZ,#1,#NREGT)
COVAL (BUOYANCY,V1 , FIXFLU , DENSDIFF )
BUOYA = 0.000E+00 ; BUOYB =-9.810E+00 ; BUOYC = 0.000E+00
BUOYD = 1.189E+00
EGWF = T
************************************************************
Group 15. Terminate Sweeps
LSWEEP = 50; SELREF = T; RESFAC = 1.000E-02
************************************************************
Group 16. Terminate Iterations
LITER (TEM1) = 15
************************************************************
Group 17. Relaxation
RELAX(P1 ,LINRLX, 7.000E-01); RELAX(U1 ,FALSDT, 2.137E-02)
RELAX(V1 ,FALSDT, 2.137E-02); RELAX(W1 ,FALSDT, 2.137E-02)
RELAX(LTLS,LINRLX, 1.000E+00); RELAX(TEM1,FALSDT, 2.137E+02)
************************************************************
Group 19. EARTH Calls To GROUND Station
NAMGRD =HTBX
************************************************************
Group 21. Print-out of Variables
OUTPUT(BLOK,N,N,N,N,N,N); OUTPUT(PRPS,N,N,N,N,N,N)
OUTPUT(WDIS,Y,N,N,N,N,N)
************************************************************
Group 22. Monitor Print-Out
IXMON = 10 ;IYMON = 20 ;IZMON = 5
TSTSWP = -1
************************************************************
Group 23.Field Print-Out & Plot Control
NXPRIN = 5; NYPRIN = 5; NZPRIN = 3
NPLT = 1; ITABL = 3
STOP