talk=f;run(1,1)
  DISPLAY

  Library case H106:

  COOLING OF 12 CHIPS

  This case represents  a  real-life  model of an electronic
  box.  It has 12 chips dissipating heat and mounted on  two
  PCBs.  Flow is forced through the box by a fan. Turbulence
  is modelled using LVEL turbulence model.

  (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 Press return to plot temperature contours
  pause
  cont tem1 x 6 fil;.001
  msg
  msg Press return to plot velocity field
  pause
  vec z 1 sh
  vec z m sh
  vec x 6 sh
  pause
  msg
  msg Press return for a side view
  vec off 1 2
  vi x
  msg
  msg Type E to end
  ENDUSE
 ************************************************************
  Group 1. Run Title
 TEXT(Cooling Of 12 Chips
 ************************************************************
  Groups 3, 4, 5  Grid Information
    * Overall number of cells, RSET(M,NX,NY,NZ,tolerance)
 RSET(M,20,25,15)
    * Set overall domain extent:
    *        xulast  yvlast  zwlast    name
 XSI= 6.000E-01;YSI= 1.200E+00;ZSI= 8.000E-01;RSET(D,BOX     )
    * Set objects: x0     y0     z0
    *              dx     dy     dz    name
 XPO= 1.500E-01;YPO= 3.500E-01;ZPO= 1.500E-01
 XSI= 5.000E-02;YSI= 1.000E-01;ZSI= 2.000E-01;RSET(B,CHP1    )
 XPO= 1.500E-01;YPO= 3.500E-01;ZPO= 4.500E-01
 XSI= 5.000E-02;YSI= 1.000E-01;ZSI= 2.000E-01;RSET(B,CHP2    )
 XPO= 1.500E-01;YPO= 5.500E-01;ZPO= 4.500E-01
 XSI= 5.000E-02;YSI= 1.000E-01;ZSI= 2.000E-01;RSET(B,CHP4    )
 XPO= 1.500E-01;YPO= 7.500E-01;ZPO= 4.500E-01
 XSI= 5.000E-02;YSI= 1.000E-01;ZSI= 2.000E-01;RSET(B,CHP6    )
 XPO= 1.500E-01;YPO= 5.500E-01;ZPO= 1.500E-01
 XSI= 5.000E-02;YSI= 1.000E-01;ZSI= 2.000E-01;RSET(B,CHP3    )
 XPO= 1.500E-01;YPO= 7.500E-01;ZPO= 1.500E-01
 XSI= 5.000E-02;YSI= 1.000E-01;ZSI= 2.000E-01;RSET(B,CHP5    )
 XPO= 2.000E-01;YPO= 3.000E-01;ZPO= 1.000E-01
 XSI= 2.000E-02;YSI= 6.000E-01;ZSI= 6.000E-01;RSET(B,BRD1    )
 XPO= 3.500E-01;YPO= 3.500E-01;ZPO= 1.500E-01
 XSI= 5.000E-02;YSI= 1.000E-01;ZSI= 2.000E-01;RSET(B,DCHP1   )
 XPO= 3.500E-01;YPO= 3.500E-01;ZPO= 4.500E-01
 XSI= 5.000E-02;YSI= 1.000E-01;ZSI= 2.000E-01;RSET(B,DCHP2   )
 XPO= 3.500E-01;YPO= 5.500E-01;ZPO= 1.500E-01
 XSI= 5.000E-02;YSI= 1.000E-01;ZSI= 2.000E-01;RSET(B,DCHP3   )
 XPO= 3.500E-01;YPO= 5.500E-01;ZPO= 4.500E-01
 XSI= 5.000E-02;YSI= 1.000E-01;ZSI= 2.000E-01;RSET(B,DCHP4   )
 XPO= 3.500E-01;YPO= 7.500E-01;ZPO= 1.500E-01
 XSI= 5.000E-02;YSI= 1.000E-01;ZSI= 2.000E-01;RSET(B,DCHP5   )
 XPO= 3.500E-01;YPO= 7.500E-01;ZPO= 4.500E-01
 XSI= 5.000E-02;YSI= 1.000E-01;ZSI= 2.000E-01;RSET(B,DCHP6   )
 XPO= 4.000E-01;YPO= 3.000E-01;ZPO= 1.000E-01
 XSI= 2.000E-02;YSI= 6.000E-01;ZSI= 6.000E-01;RSET(B,DBRD1   )
 XPO= 1.000E-01;YPO= 1.000E-01;ZPO= 0.000E+00
 XSI= 4.000E-01;YSI= 2.000E-01;ZSI= 0.000E+00;RSET(B,FAN     )
 XPO= 1.000E-01;YPO= 9.000E-01;ZPO= 8.000E-01
 XSI= 4.000E-01;YSI= 2.000E-01;ZSI= 0.000E+00;RSET(B,EXIT    )
 ************************************************************
  Group 7. Variables: STOREd,SOLVEd,NAMEd
 ONEPHS  =    T
    * Non-default variable names
 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)
    * 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(BLOK) =  1.000E+00 ;FIINIT(PRPS) =  2.000E+00
 FIINIT(WDIS) =  6.000E-02 ;FIINIT(TEM1) =  2.000E+01
 CONPOR(CHP1    , -1.00,CELL  ,-#3,-#3,-#4,-#4,-#3,-#3)
 INIT(CHP1    ,BLOK, 0.000E+00, 2.000E+00)
 INIT(CHP1    ,PRPS, 0.000E+00, 1.000E+02)
 CONPOR(CHP2    , -1.00,CELL  ,-#3,-#3,-#4,-#4,-#5,-#5)
 INIT(CHP2    ,BLOK, 0.000E+00, 3.000E+00)
 INIT(CHP2    ,PRPS, 0.000E+00, 1.000E+02)
 CONPOR(CHP3    , -1.00,CELL  ,-#3,-#3,-#6,-#6,-#3,-#3)
 INIT(CHP3    ,BLOK, 0.000E+00, 4.000E+00)
 INIT(CHP3    ,PRPS, 0.000E+00, 1.000E+02)
 CONPOR(CHP4    , -1.00,CELL  ,-#3,-#3,-#6,-#6,-#5,-#5)
 INIT(CHP4    ,BLOK, 0.000E+00, 5.000E+00)
 INIT(CHP4    ,PRPS, 0.000E+00, 1.000E+02)
 CONPOR(CHP5    , -1.00,CELL  ,-#3,-#3,-#8,-#8,-#3,-#3)
 INIT(CHP5    ,BLOK, 0.000E+00, 6.000E+00)
 INIT(CHP5    ,PRPS, 0.000E+00, 1.000E+02)
 CONPOR(CHP6    , -1.00,CELL  ,-#3,-#3,-#8,-#8,-#5,-#5)
 INIT(CHP6    ,BLOK, 0.000E+00, 7.000E+00)
 INIT(CHP6    ,PRPS, 0.000E+00, 1.000E+02)
 CONPOR(DCHP1   , -1.00,CELL  ,-#6,-#6,-#4,-#4,-#3,-#3)
 INIT(DCHP1   ,BLOK, 0.000E+00, 8.000E+00)
 INIT(DCHP1   ,PRPS, 0.000E+00, 1.000E+02)
 CONPOR(DCHP2   , -1.00,CELL  ,-#6,-#6,-#4,-#4,-#5,-#5)
 INIT(DCHP2   ,BLOK, 0.000E+00, 9.000E+00)
 INIT(DCHP2   ,PRPS, 0.000E+00, 1.000E+02)
 CONPOR(DCHP3   , -1.00,CELL  ,-#6,-#6,-#6,-#6,-#3,-#3)
 INIT(DCHP3   ,BLOK, 0.000E+00, 1.000E+01)
 INIT(DCHP3   ,PRPS, 0.000E+00, 1.000E+02)
 CONPOR(DCHP4   , -1.00,CELL  ,-#6,-#6,-#6,-#6,-#5,-#5)
 INIT(DCHP4   ,BLOK, 0.000E+00, 1.100E+01)
 INIT(DCHP4   ,PRPS, 0.000E+00, 1.000E+02)
 CONPOR(DCHP5   , -1.00,CELL  ,-#6,-#6,-#8,-#8,-#3,-#3)
 INIT(DCHP5   ,BLOK, 0.000E+00, 1.200E+01)
 INIT(DCHP5   ,PRPS, 0.000E+00, 1.000E+02)
 CONPOR(DCHP6   , -1.00,CELL  ,-#6,-#6,-#8,-#8,-#5,-#5)
 INIT(DCHP6   ,BLOK, 0.000E+00, 1.300E+01)
 INIT(DCHP6   ,PRPS, 0.000E+00, 1.000E+02)
 CONPOR(BRD1    , -1.00,CELL  ,-#4,-#4,-#3,-#9,-#2,-#6)
 INIT(BRD1    ,BLOK, 0.000E+00, 1.400E+01)
 INIT(BRD1    ,PRPS, 0.000E+00, 1.040E+02)
 CONPOR(DBRD1   , -1.00,CELL  ,-#7,-#7,-#3,-#9,-#2,-#6)
 INIT(DBRD1   ,BLOK, 0.000E+00, 1.500E+01)
 INIT(DBRD1   ,PRPS, 0.000E+00, 1.040E+02)
 INIADD  =    F
 ************************************************************
  Group 13. Boundary & Special Sources
 INLET (FAN     ,LOW   ,#2,#8,#2,#2,#1,#1,1,1)
 VALUE (FAN     ,P1  , 5.945E+00)
 VALUE (FAN     ,W1  , 5.000E+00)
 VALUE (FAN     ,TEM1, 2.500E+01)

 PATCH (EXIT    ,HIGH  ,#2,#8,#10,#10,#7,#7,1,1)
 COVAL (EXIT    ,P1  , 1.000E+00, 0.000E+00)
 COVAL (EXIT    ,TEM1, 0.000E+00, 2.500E+01)

 PATCH (HOTCHP1 ,VOLUME,#3,#3,#4,#4,#3,#3,#1,#1)
 COVAL (HOTCHP1 ,TEM1, FIXFLU   , 5.000E+03)

 PATCH (HOTCHP2 ,VOLUME,#3,#3,#4,#4,#5,#5,#1,#1)
 COVAL (HOTCHP2 ,TEM1, FIXFLU   , 5.000E+03)

 PATCH (HOTCHP3 ,VOLUME,#3,#3,#6,#6,#3,#3,#1,#1)
 COVAL (HOTCHP3 ,TEM1, FIXFLU   , 5.000E+03)

 PATCH (HOTCHP4 ,VOLUME,#3,#3,#6,#6,#5,#5,#1,#1)
 COVAL (HOTCHP4 ,TEM1, FIXFLU   , 5.000E+03)

 PATCH (HOTCHP5 ,VOLUME,#3,#3,#8,#8,#3,#3,#1,#1)
 COVAL (HOTCHP5 ,TEM1, FIXFLU   , 5.000E+03)

 PATCH (HOTCHP6 ,VOLUME,#3,#3,#8,#8,#5,#5,#1,#1)
 COVAL (HOTCHP6 ,TEM1, FIXFLU   , 5.000E+03)

 PATCH (HOTDCHP1,VOLUME,#6,#6,#4,#4,#3,#3,#1,#1)
 COVAL (HOTDCHP1,TEM1, FIXFLU   , 5.000E+03)

 PATCH (HOTDCHP2,VOLUME,#6,#6,#4,#4,#5,#5,#1,#1)
 COVAL (HOTDCHP2,TEM1, FIXFLU   , 5.000E+03)

 PATCH (HOTDCHP3,VOLUME,#6,#6,#6,#6,#3,#3,#1,#1)
 COVAL (HOTDCHP3,TEM1, FIXFLU   , 5.000E+03)

 PATCH (HOTDCHP4,VOLUME,#6,#6,#6,#6,#5,#5,#1,#1)
 COVAL (HOTDCHP4,TEM1, FIXFLU   , 5.000E+03)

 PATCH (HOTDCHP5,VOLUME,#6,#6,#8,#8,#3,#3,#1,#1)
 COVAL (HOTDCHP5,TEM1, FIXFLU   , 5.000E+03)

 PATCH (HOTDCHP6,VOLUME,#6,#6,#8,#8,#5,#5,#1,#1)
 COVAL (HOTDCHP6,TEM1, FIXFLU   , 5.000E+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, 1.000E+00); RELAX(U1  ,FALSDT, 2.400E-01)
 RELAX(V1  ,FALSDT, 2.400E-01); RELAX(W1  ,FALSDT, 2.400E-01)
 RELAX(LTLS,LINRLX, 1.000E+00); RELAX(TEM1,FALSDT, 2.400E+03)
 ************************************************************
  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  =       1
 TSTSWP  =      -1
 ************************************************************
  Group 23.Field Print-Out & Plot Control
 NXPRIN  =       4; NYPRIN  =       5; NZPRIN  =       3
 NPLT    =       1; ITABL   =       3
STOP