talk=f;run(1,1)
    *********************************************
  DISPLAY

  Library case H103:

  PCB WITH 6 CHIPS

  This case models  flow  over a PCB  with six chips mounted
  on it.  There is  a  fan and aperture on oposing sides and
  all chips  generate  heat.  Results  show  bounadry  layer
  developing on the solid  surfaces  and  hot  plume  moving
  upwards.  With finer grid  this  can  be  resolved in even
  greater detail. Turbulence is modelled using the k-e model.
  (Note that the LVEL turbulence model  is  recommended  for
  HOTBOX simulations, this case shows that the k-e model is
  an option)

  (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



  msg  Flow around 6 chips on a PCB
  msg
  msg  Geometry of the problem
  use patgeo
  msg
  use HOTSPOT
  msg
  msg Press return to plot velocity vectors
  pause
  red
  vec x 4 sh
  msg Press return to magnify velocity profile near the
  msg solid surfaces; note boundary layer formation
  pause
  mag gr 3
   0.17687E+04 0.19476E+04 CR
  msg Press return to change view
  pause
  view x
  msg Press return to plot Temperature contours
  pause
  vec cl
  mag gr 0
  view 1 1 1
  msg Note upwards plume formation and development
  cont tem1 z 4 fil;.001
  msg
  msg Press return to plot surfaces of 45 deg.
  pause
  cl
  gr ou x 1; gr ou x m
  gr ou z 1; gr ou z m
  surf tem1 x col 12;45.
  surf tem1 y col 12;45.
  surf tem1 z col 12;45.
  vie 1 1 1.5
  msg Type E to end
  ENDUSE
 ************************************************************
  Group 1. Run Title
 TEXT(PCB With 6 Chips
 ************************************************************
  Groups 3, 4, 5  Grid Information
    * Overall number of cells, RSET(M,NX,NY,NZ,tolerance)
 RSET(M,14,10,22,1.000E-05)
    * Set overall domain extent:
    *        xulast  yvlast  zwlast    name
 XSI= 1.100E-01;YSI= 1.300E-01;ZSI= 6.400E-02;RSET(D,BOX     )
    * Set objects: x0     y0     z0
    *              dx     dy     dz    name
 XPO= 0.000E+00;YPO= 0.000E+00;ZPO= 0.000E+00
 XSI= 1.100E-01;YSI= 1.300E-01;ZSI= 1.000E-02;RSET(B,PCB     )
 XPO= 2.000E-02;YPO= 3.000E-02;ZPO= 1.000E-02
 XSI= 1.000E-02;YSI= 2.000E-02;ZSI= 4.000E-03;RSET(B,CHP1    )
 XPO= 2.000E-02;YPO= 3.000E-02;ZPO= 1.200E-02
 XSI= 1.000E-02;YSI= 2.000E-02;ZSI= 2.000E-03;RSET(B,CP1L    )
 XPO= 5.000E-02;YPO= 3.000E-02;ZPO= 1.000E-02
 XSI= 1.000E-02;YSI= 2.000E-02;ZSI= 4.000E-03;RSET(B,CHP2    )
 XPO= 5.000E-02;YPO= 3.000E-02;ZPO= 1.200E-02
 XSI= 1.000E-02;YSI= 2.000E-02;ZSI= 2.000E-03;RSET(B,CP2L    )
 XPO= 8.000E-02;YPO= 3.000E-02;ZPO= 1.000E-02
 XSI= 1.000E-02;YSI= 2.000E-02;ZSI= 4.000E-03;RSET(B,CHP3    )
 XPO= 8.000E-02;YPO= 3.000E-02;ZPO= 1.200E-02
 XSI= 1.000E-02;YSI= 2.000E-02;ZSI= 2.000E-03;RSET(B,CP3L    )
 XPO= 2.000E-02;YPO= 8.000E-02;ZPO= 1.000E-02
 XSI= 1.000E-02;YSI= 2.000E-02;ZSI= 4.000E-03;RSET(B,CHP4    )
 XPO= 2.000E-02;YPO= 8.000E-02;ZPO= 1.200E-02
 XSI= 1.000E-02;YSI= 2.000E-02;ZSI= 2.000E-03;RSET(B,CP4L    )
 XPO= 5.000E-02;YPO= 8.000E-02;ZPO= 1.000E-02
 XSI= 1.000E-02;YSI= 2.000E-02;ZSI= 4.000E-03;RSET(B,CHP5    )
 XPO= 5.000E-02;YPO= 8.000E-02;ZPO= 1.200E-02
 XSI= 1.000E-02;YSI= 2.000E-02;ZSI= 2.000E-03;RSET(B,CP5L    )
 XPO= 8.000E-02;YPO= 8.000E-02;ZPO= 1.000E-02
 XSI= 1.000E-02;YSI= 2.000E-02;ZSI= 4.000E-03;RSET(B,CHP6    )
 XPO= 8.000E-02;YPO= 8.000E-02;ZPO= 1.200E-02
 XSI= 1.000E-02;YSI= 2.000E-02;ZSI= 2.000E-03;RSET(B,CP6L    )
 XPO= 0.000E+00;YPO= 1.300E-01;ZPO= 1.000E-02
 XSI= 1.100E-01;YSI= 0.000E+00;ZSI= 5.400E-02;RSET(B,EXIT    )
 XPO= 0.000E+00;YPO= 0.000E+00;ZPO= 1.000E-02
 XSI= 1.100E-01;YSI= 0.000E+00;ZSI= 5.400E-02;RSET(B,FAN     )
    * Modify default grid
 RSET(Z,2,2,1.000E+00)
 RSET(Z,3,2,1.000E+00)
 RSET(Z,4,15,1.500E+00)
 ************************************************************
  Group 7. Variables: STOREd,SOLVEd,NAMEd
 ONEPHS  =    T
    * Non-default variable names
 NAME( 46) =BLOK ; NAME( 47) =PRPS
 NAME( 48) =EPKE ; NAME( 49) =DEN1
 NAME( 50) =TEM1
    * Solved variables list
 SOLVE(P1  ,U1  ,V1  ,W1  ,TEM1)
    * Stored variables list
 STORE(DEN1,EPKE,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(KEMODL)
 ************************************************************
  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(TEM1) = CONDFILE
 ************************************************************
  Group 11.Initialise Var/Porosity Fields
 FIINIT(KE  ) =  2.500E-05 ;FIINIT(EP  ) =  3.796E-06
 FIINIT(BLOK) =  1.000E+00 ;FIINIT(PRPS) =  2.000E+00
 FIINIT(EPKE) =  1.000E+00 ;FIINIT(TEM1) =  2.000E+01
 CONPOR(PCB     , -1.00,CELL  ,-#1,-#7,-#1,-#5,-#1,-#1)
 INIT(PCB     ,BLOK, 0.000E+00, 2.000E+00)
 INIT(PCB     ,PRPS, 0.000E+00, 1.050E+02)
 CONPOR(CHP1    , -1.00,CELL  ,-#2,-#2,-#2,-#2,-#2,-#3)
 INIT(CHP1    ,BLOK, 0.000E+00, 3.000E+00)
 INIT(CHP1    ,PRPS, 0.000E+00, 1.080E+02)
 CONPOR(CP1L    , -1.00,CELL  ,-#2,-#2,-#2,-#2,-#3,-#3)
 INIT(CP1L    ,BLOK, 0.000E+00, 4.000E+00)
 INIT(CP1L    ,PRPS, 0.000E+00, 1.070E+02)
 CONPOR(CHP2    , -1.00,CELL  ,-#4,-#4,-#2,-#2,-#2,-#3)
 INIT(CHP2    ,BLOK, 0.000E+00, 5.000E+00)
 INIT(CHP2    ,PRPS, 0.000E+00, 1.080E+02)
 CONPOR(CHP3    , -1.00,CELL  ,-#6,-#6,-#2,-#2,-#2,-#3)
 INIT(CHP3    ,BLOK, 0.000E+00, 6.000E+00)
 INIT(CHP3    ,PRPS, 0.000E+00, 1.080E+02)
 CONPOR(CHP4    , -1.00,CELL  ,-#2,-#2,-#4,-#4,-#2,-#3)
 INIT(CHP4    ,BLOK, 0.000E+00, 7.000E+00)
 INIT(CHP4    ,PRPS, 0.000E+00, 1.080E+02)
 CONPOR(CHP5    , -1.00,CELL  ,-#4,-#4,-#4,-#4,-#2,-#3)
 INIT(CHP5    ,BLOK, 0.000E+00, 8.000E+00)
 INIT(CHP5    ,PRPS, 0.000E+00, 1.080E+02)
 CONPOR(CHP6    , -1.00,CELL  ,-#6,-#6,-#4,-#4,-#2,-#3)
 INIT(CHP6    ,BLOK, 0.000E+00, 9.000E+00)
 INIT(CHP6    ,PRPS, 0.000E+00, 1.080E+02)
 CONPOR(CP2L    , -1.00,CELL  ,-#4,-#4,-#2,-#2,-#3,-#3)
 INIT(CP2L    ,BLOK, 0.000E+00, 1.000E+01)
 INIT(CP2L    ,PRPS, 0.000E+00, 1.070E+02)
 CONPOR(CP3L    , -1.00,CELL  ,-#6,-#6,-#2,-#2,-#3,-#3)
 INIT(CP3L    ,BLOK, 0.000E+00, 1.100E+01)
 INIT(CP3L    ,PRPS, 0.000E+00, 1.070E+02)
 CONPOR(CP4L    , -1.00,CELL  ,-#2,-#2,-#4,-#4,-#3,-#3)
 INIT(CP4L    ,BLOK, 0.000E+00, 1.200E+01)
 INIT(CP4L    ,PRPS, 0.000E+00, 1.070E+02)
 CONPOR(CP5L    , -1.00,CELL  ,-#4,-#4,-#4,-#4,-#3,-#3)
 INIT(CP5L    ,BLOK, 0.000E+00, 1.300E+01)
 INIT(CP5L    ,PRPS, 0.000E+00, 1.070E+02)
 CONPOR(CP6L    , -1.00,CELL  ,-#6,-#6,-#4,-#4,-#3,-#3)
 INIT(CP6L    ,BLOK, 0.000E+00, 1.400E+01)
 INIT(CP6L    ,PRPS, 0.000E+00, 1.070E+02)
 INIADD  =    F
 ************************************************************
  Group 13. Boundary & Special Sources
 INLET (FAN     ,SOUTH ,#1,#7,#1,#1,#2,#4,1,1)
 VALUE (FAN     ,P1  , 1.189E-01)
 VALUE (FAN     ,V1  , 1.000E-01)
 VALUE (FAN     ,KE  , 2.500E-05)
 VALUE (FAN     ,EP  , 3.796E-06)
 VALUE (FAN     ,TEM1, 1.900E+01)

 PATCH (EXIT    ,NORTH ,#1,#7,#5,#5,#2,#4,1,1)
 COVAL (EXIT    ,P1  , 1.000E+00, 0.000E+00)
 COVAL (EXIT    ,KE  , 0.000E+00, SAME     )
 COVAL (EXIT    ,EP  , 0.000E+00, SAME     )
 COVAL (EXIT    ,TEM1, 0.000E+00, 2.000E+01)

 PATCH (HOTCHP1 ,VOLUME,#2,#2,#2,#2,#2,#3,#1,#1)
 COVAL (HOTCHP1 ,TEM1, FIXFLU   , 6.250E+05)

 PATCH (HOTCHP2 ,VOLUME,#4,#4,#2,#2,#2,#3,#1,#1)
 COVAL (HOTCHP2 ,TEM1, FIXFLU   , 6.250E+05)

 PATCH (HOTCHP3 ,VOLUME,#6,#6,#2,#2,#2,#3,#1,#1)
 COVAL (HOTCHP3 ,TEM1, FIXFLU   , 6.250E+05)

 PATCH (HOTCHP4 ,VOLUME,#2,#2,#4,#4,#2,#3,#1,#1)
 COVAL (HOTCHP4 ,TEM1, FIXFLU   , 6.250E+05)

 PATCH (HOTCHP5 ,VOLUME,#4,#4,#4,#4,#2,#3,#1,#1)
 COVAL (HOTCHP5 ,TEM1, FIXFLU   , 6.250E+05)

 PATCH (HOTCHP6 ,VOLUME,#6,#6,#4,#4,#2,#3,#1,#1)
 COVAL (HOTCHP6 ,TEM1, FIXFLU   , 6.250E+05)

 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  =      30; 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, 1.300E-01)
 RELAX(V1  ,FALSDT, 1.300E-01); RELAX(W1  ,FALSDT, 1.300E-01)
 RELAX(KE  ,LINRLX, 4.000E-01); RELAX(EP  ,LINRLX, 4.000E-01)
 RELAX(TEM1,FALSDT, 1.300E+03)
 KELIN   =       1
 ************************************************************
  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)
 ************************************************************
  Group 22. Monitor Print-Out
 IXMON   =       5 ;IYMON  =       5 ;IZMON  =       5
 TSTSWP=-1
 ************************************************************
  Group 23.Field Print-Out & Plot Control
 NXPRIN  =       2; NYPRIN  =       1; NZPRIN  =       4
 NPLT    =       1; ITABL   =       3
STOP