TALK=T;RUN( 1, 1)
************************************************************
Q1 created by VDI menu, Version 3.5, Date 23/07/02
CPVNAM=VDI;SPPNAM=HOTBOX
************************************************************
Echo DISPLAY / USE settings
DISPLAY
Library case H110:
FAN MATCHING
This case is similar to 104; it is a simple three-
dimensional forced flow through a box. This time the flow
is treated as laminar.
Another special feature of HotBox, fan-matching, is
employed. Fan characteristics is read from a file called
FANDATA where it is described as a number of paired values
(flow-rate vs pressure-drop). This case uses FAN1
characteristics provided in the FANDATA for demo purposes.
At the end of the simulation RESULT file contains
information about the operating point.
(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.)
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 y 6 fil;.001
msg Press return to plot velocity field
pause
vec x 5 sh
vec z 1 sh
msg Press E to end
ENDUSE
************************************************************
IRUNN = 1 ;LIBREF = 110
************************************************************
Group 1. Run Title
TEXT(Fan matching: H110 )
************************************************************
Group 2. Transience
STEADY = T
************************************************************
Groups 3, 4, 5 Grid Information
* Overall number of cells, RSET(M,NX,NY,NZ,tolerance)
RSET(M,10,10,10)
************************************************************
Group 6. Body-Fitted coordinates
************************************************************
Group 7. Variables: STOREd,SOLVEd,NAMEd
ONEPHS = T
* Non-default variable names
NAME( 46) =NPOR ; NAME( 47) =BLOK
NAME( 48) =PRPS ; NAME( 49) =DEN1
NAME( 50) =TEM1
* Solved variables list
SOLVE(P1 ,U1 ,V1 ,W1 ,TEM1)
* Stored variables list
STORE(DEN1,PRPS,BLOK,NPOR)
* Additional solver options
SOLUTN(P1 ,Y,Y,Y,N,N,N)
SOLUTN(TEM1,Y,Y,Y,N,N,Y)
IVARBK = -1 ;ISOLBK = 1
************************************************************
Group 8. Terms & Devices
ISOLX = 0 ;ISOLY = 0 ;ISOLZ = 0
************************************************************
Group 9. Properties
PRESS0 = 1.000000E+05 ;TEMP0 = 2.730000E+02
SETPRPS(1, 2)
ENUT = 0.000000E+00
DRH1DP = GRND5
DVO1DT = 3.330000E-03
PRNDTL(TEM1) = -2.630000E-02
EMISS = 0.000000E+00 ;SCATT = 0.000000E+00
************************************************************
Group 10.Inter-Phase Transfer Processes
************************************************************
Group 11.Initialise Var/Porosity Fields
FIINIT(NPOR) = 1.000000E+00 ;FIINIT(BLOK) = 1.000000E+00
FIINIT(PRPS) = -1.000000E+00 ;FIINIT(DEN1) = 1.001000E-10
FIINIT(TEM1) = 2.000000E+01
No PATCHes used for this Group
INIADD = F
************************************************************
Group 12. Convection and diffusion adjustments
No PATCHes used for this Group
************************************************************
Group 13. Boundary & Special Sources
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.000000E+00 ; BUOYB =-9.810000E+00
BUOYC = 0.000000E+00
BUOYD = 1.189000E+00
************************************************************
Group 14. Downstream Pressure For PARAB
************************************************************
Group 15. Terminate Sweeps
LSWEEP = 125
RESFAC = 1.000000E-02
************************************************************
Group 16. Terminate Iterations
LITER (TEM1) = 15
************************************************************
Group 17. Relaxation
RELAX(P1 ,LINRLX, 1.000000E+00)
RELAX(U1 ,FALSDT, 7.000000E-01)
RELAX(V1 ,FALSDT, 7.000000E-01)
RELAX(W1 ,FALSDT, 7.000000E-01)
RELAX(TEM1,FALSDT, 7.000000E+03)
************************************************************
Group 18. Limits
VARMAX(U1 ) = 1.000000E+06 ;VARMIN(U1 ) =-1.000000E+06
VARMAX(V1 ) = 1.000000E+06 ;VARMIN(V1 ) =-1.000000E+06
VARMAX(W1 ) = 1.000000E+06 ;VARMIN(W1 ) =-1.000000E+06
************************************************************
Group 19. EARTH Calls To GROUND Station
USEGRD = T ;USEGRX = T
NAMGRD =HTBX
ASAP = T
LG( 9) = T
************************************************************
Group 20. Preliminary Printout
ECHO = T
************************************************************
Group 21. Print-out of Variables
OUTPUT(BLOK,N,N,N,N,N,N)
OUTPUT(PRPS,N,N,N,N,N,N)
************************************************************
Group 22. Monitor Print-Out
IXMON = 5 ;IYMON = 7 ;IZMON = 4
NPRMON = 100000
NPRMNT = 1
TSTSWP = -1
************************************************************
Group 23.Field Print-Out & Plot Control
NPRINT = 100000
NPLT = 1
ISWPRF = 1 ;ISWPRL = 100000
ITABL = 3
No PATCHes used for this Group
************************************************************
Group 24. Dumps For Restarts
GVIEW(P,5.773503E-01,5.773503E-01,5.773503E-01)
GVIEW(UP,-4.082483E-01,8.164966E-01,-4.082483E-01)
> DOM, SIZE, 5.000000E-01, 7.000000E-01, 5.000000E-01
> DOM, MONIT, 2.250000E-01, 4.025000E-01, 1.675000E-01
> DOM, SCALE, 1.000000E+00, 1.000000E+00, 1.000000E+00
> DOM, SNAPSIZE, 1.000000E-02
> GRID, RSET_X_1, 2, 1.000000E+00
> GRID, RSET_X_2, 1, 1.000000E+00
> GRID, RSET_X_3, 1, 1.000000E+00
> GRID, RSET_X_4, 2, 1.000000E+00
> GRID, RSET_X_5, 1, 1.000000E+00
> GRID, RSET_X_6, 1, 1.000000E+00
> GRID, RSET_X_7, 2, 1.000000E+00
> GRID, RSET_Y_1, 3, 1.000000E+00
> GRID, RSET_Y_2, 2, 1.000000E+00
> GRID, RSET_Y_3, 1, 1.000000E+00
> GRID, RSET_Y_4, 2, 1.000000E+00
> GRID, RSET_Y_5, 2, 1.000000E+00
> GRID, RSET_Z_1, 2, 1.000000E+00
> GRID, RSET_Z_2, 1, 1.000000E+00
> GRID, RSET_Z_3, 2, 1.000000E+00
> GRID, RSET_Z_4, 2, 1.000000E+00
> GRID, RSET_Z_5, 1, 1.000000E+00
> GRID, RSET_Z_6, 2, 1.000000E+00
> DOM, FANMATCH, T
> DOM, FANUPDATE, 1
> OBJ, NAME, PCB
> OBJ, POSITION, 9.999999E-02, 3.500000E-01, 9.999999E-02
> OBJ, SIZE, 3.000000E-01, 0.000000E+00, 3.000000E-01
> OBJ, CLIPART, cube11
> OBJ, ROTATION24, 1
> OBJ, TYPE, PLATE
> OBJ, POROSITY, 0.000000E+00
> OBJ, SIDE, BOTH
> OBJ, NAME, CHIP1
> OBJ, POSITION, 1.500000E-01, 3.500000E-01, 1.500000E-01
> OBJ, SIZE, 4.999998E-02, 2.000001E-02, 6.999999E-02
> OBJ, CLIPART, cube4
> OBJ, ROTATION24, 1
> OBJ, TYPE, BLOCKAGE
> OBJ, MATERIAL, 100
> OBJ, HEAT_FLVX, 0.000000E+00, 7.143000E+03
> OBJ, INI_BLOK, 2.000000E+00
> OBJ, NAME, CHIP2
> OBJ, POSITION, 3.000000E-01, 3.500000E-01, 1.500000E-01
> OBJ, SIZE, 5.000001E-02, 2.000001E-02, 6.999999E-02
> OBJ, CLIPART, cube4
> OBJ, ROTATION24, 1
> OBJ, TYPE, BLOCKAGE
> OBJ, MATERIAL, 100
> OBJ, HEAT_FLVX, 0.000000E+00, 1.000000E+04
> OBJ, INI_BLOK, 3.000000E+00
> OBJ, NAME, VENT
> OBJ, POSITION, 9.999999E-02, 7.000000E-01, 1.500000E-01
> OBJ, SIZE, 3.000000E-01, 0.000000E+00, 2.000000E-01
> OBJ, CLIPART, cube12t
> OBJ, ROTATION24, 1
> OBJ, TYPE, APERTURE
> OBJ, PRESSURE, 0.000000E+00
> OBJ, TEMPERATURE, 2.000000E+01
> OBJ, COEFFICIENT, 1.000000E+00
> OBJ, NAME, FAN
> OBJ, POSITION, 1.500000E-01, 2.000000E-01, 0.000000E+00
> OBJ, SIZE, 2.000000E-01, 3.000000E-01, 0.000000E+00
> OBJ, CLIPART, cube2t
> OBJ, ROTATION24, 1
> OBJ, TYPE, FAN
> OBJ, VELOCITY, 0.000000E+00, 0.000000E+00, 1.000000E+00
> OBJ, TEMPERATURE, 2.000000E+01
> OBJ, PRESSURE, 0.000000E+00
> OBJ, FANMATCH, 1.000000E+00
> OBJ, FANNAME, FAN1
STOP