TALK=T;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 and Number
 ************************************************************
 ************************************************************
 
 TEXT(PCB With 6 Chips                        )
 
 ************************************************************
 ************************************************************
 
 IRUNN = 1 ;LIBREF = 14
 ************************************************************
  Group 2. Time dependence
 STEADY = T
 ************************************************************
  Group 3. X-Direction Grid Spacing
 CARTES = T
 NX = 14
 XULAST =0.11
 XFRAC(1)=0.090909 ;XFRAC(3)=0.227273
 XFRAC(5)=0.363636 ;XFRAC(7)=0.5
 XFRAC(9)=0.636364 ;XFRAC(11)=0.818182
 XFRAC(13)=0.939394
 ************************************************************
  Group 4. Y-Direction Grid Spacing
 NY = 10
 YVLAST =0.13
 YFRAC(1)=0.115385 ;YFRAC(2)=0.230769
 YFRAC(3)=0.307692 ;YFRAC(4)=0.384615
 YFRAC(5)=0.5 ;YFRAC(6)=0.615385
 YFRAC(7)=0.692308 ;YFRAC(8)=0.769231
 YFRAC(9)=0.884615 ;YFRAC(10)=1.
 ************************************************************
  Group 5. Z-Direction Grid Spacing
 PARAB = F
 NZ = 22
 ZWLAST =0.064
 ZFRAC(1)=0.052083 ;ZFRAC(5)=0.1875
 ZFRAC(9)=0.256786 ;ZFRAC(13)=0.416392
 ZFRAC(17)=0.644009 ;ZFRAC(21)=0.923192
 ************************************************************
  Group 6. Body-Fitted Coordinates
 ************************************************************
  Group 7. Variables: STOREd,SOLVEd,NAMEd
 ONEPHS = T
 NAME(1)=P1 ;NAME(3)=U1
 NAME(5)=V1 ;NAME(7)=W1
 NAME(12)=KE ;NAME(13)=EP
 NAME(46)=BLOK ;NAME(47)=PRPS
 NAME(48)=EPKE ;NAME(49)=DEN1
 NAME(50)=TEM1
    * 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(W1,Y,Y,N,N,N,Y)
 SOLUTN(KE,Y,Y,N,N,N,N)
 SOLUTN(EP,Y,Y,N,N,N,N)
 SOLUTN(BLOK,Y,N,N,N,N,Y)
 SOLUTN(PRPS,Y,N,N,N,N,Y)
 SOLUTN(EPKE,Y,N,N,N,N,Y)
 SOLUTN(DEN1,Y,N,N,N,N,Y)
 SOLUTN(TEM1,Y,Y,Y,N,N,Y)
 DEN1 = 49
 IVARBK = -1 ;ISOLBK = 1
 PRNITS= F ;OPTRLX= F ;NOSIP= F ;ALLVBC= F
 DBSOLV= F ;IMPINI= F ;EARL1D= F
 PRPS = 47
 ************************************************************
  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(W1,Y,Y,Y,Y,Y,Y)
 TERMS(KE,N,Y,Y,Y,Y,N)
 TERMS(EP,N,Y,Y,Y,Y,N)
 TERMS(TEM1,N,Y,Y,Y,Y,Y)
 DIFCUT =0.5 ;ZDIFAC =1.
 GALA = F ;ADDDIF = F
 NEWENT = T
 ISOLX = 0 ;ISOLY = 0 ;ISOLZ = 0
 ************************************************************
  Group 9. Properties used if PRPS is not
  stored, and where PRPS = -1.0 if it is!
 RHO1 = FILE ;TMP1 =0.
 EL1 = GRND4
 TSURR =0. ;TEMP0 =273.
 PRESS0 =1.0E+05
 DVO1DT =1.189 ;DRH1DP =0.
 EMISS =0. ;SCATT =0.
 RADIA =0. ;RADIB =0.
 EL1A =0. ;EL1B =0.
 EL1C =0.
 ENUL = FILE ;ENUT = GRND3
 ENUTA =0. ;ENUTB =0.
 ENUTC =0.
 IENUTA = 0
 PRNDTL(U1)=1. ;PRNDTL(V1)=1.
 PRNDTL(W1)=1. ;PRNDTL(KE)=1.
 PRNDTL(EP)=1. ;PRNDTL(TEM1)=CONDFILE
 PRT(U1)=1. ;PRT(V1)=1.
 PRT(W1)=1. ;PRT(KE)=1.
 PRT(EP)=1.314 ;PRT(TEM1)=1.
 CP1 = FILE ;CP2 =1.
 ************************************************************
  Group 10.Inter-Phase Transfer Processes
 ************************************************************
  Group 11.Initial field variables (PHIs)
 FIINIT(P1)=1.0E-10 ;FIINIT(U1)=1.0E-10
 FIINIT(V1)=1.0E-10 ;FIINIT(W1)=1.0E-10
 FIINIT(KE)=2.5E-05 ;FIINIT(EP)=3.796E-06
 FIINIT(BLOK)=1. ;FIINIT(PRPS)=2.
 FIINIT(EPKE)=1. ;FIINIT(DEN1)=1.0E-10
 FIINIT(TEM1)=20.
 
 PATCH(PCB ,INIVAL, 1, 14, 1, 10, 1, 3, 1, 1)
 INIT(PCB ,BLOK,0. ,2. )
 INIT(PCB ,PRPS,0. ,105. )
 
 PATCH(CHP1 ,INIVAL, 3, 4, 3, 4, 4, 7, 1, 1)
 INIT(CHP1 ,BLOK,0. ,3. )
 INIT(CHP1 ,PRPS,0. ,108. )
 
 PATCH(CP1L ,INIVAL, 3, 4, 3, 4, 6, 7, 1, 1)
 INIT(CP1L ,BLOK,0. ,4. )
 INIT(CP1L ,PRPS,0. ,107. )
 
 PATCH(CHP2 ,INIVAL, 7, 8, 3, 4, 4, 7, 1, 1)
 INIT(CHP2 ,BLOK,0. ,5. )
 INIT(CHP2 ,PRPS,0. ,108. )
 
 PATCH(CHP3 ,INIVAL, 11, 11, 3, 4, 4, 7, 1, 1)
 INIT(CHP3 ,BLOK,0. ,6. )
 INIT(CHP3 ,PRPS,0. ,108. )
 
 PATCH(CHP4 ,INIVAL, 3, 4, 7, 8, 4, 7, 1, 1)
 INIT(CHP4 ,BLOK,0. ,7. )
 INIT(CHP4 ,PRPS,0. ,108. )
 
 PATCH(CHP5 ,INIVAL, 7, 8, 7, 8, 4, 7, 1, 1)
 INIT(CHP5 ,BLOK,0. ,8. )
 INIT(CHP5 ,PRPS,0. ,108. )
 
 PATCH(CHP6 ,INIVAL, 11, 11, 7, 8, 4, 7, 1, 1)
 INIT(CHP6 ,BLOK,0. ,9. )
 INIT(CHP6 ,PRPS,0. ,108. )
 
 PATCH(CP2L ,INIVAL, 7, 8, 3, 4, 6, 7, 1, 1)
 INIT(CP2L ,BLOK,0. ,10. )
 INIT(CP2L ,PRPS,0. ,107. )
 
 PATCH(CP3L ,INIVAL, 11, 11, 3, 4, 6, 7, 1, 1)
 INIT(CP3L ,BLOK,0. ,11. )
 INIT(CP3L ,PRPS,0. ,107. )
 
 PATCH(CP4L ,INIVAL, 3, 4, 7, 8, 6, 7, 1, 1)
 INIT(CP4L ,BLOK,0. ,12. )
 INIT(CP4L ,PRPS,0. ,107. )
 
 PATCH(CP5L ,INIVAL, 7, 8, 7, 8, 6, 7, 1, 1)
 INIT(CP5L ,BLOK,0. ,13. )
 INIT(CP5L ,PRPS,0. ,107. )
 
 PATCH(CP6L ,INIVAL, 11, 11, 7, 8, 6, 7, 1, 1)
 INIT(CP6L ,BLOK,0. ,14. )
 INIT(CP6L ,PRPS,0. ,107. )
 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(KESOURCE,PHASEM, 0, 0, 0, 0, 0, 0, 1, 1)
 COVAL(KESOURCE,KE , GRND4 , GRND4 )
 COVAL(KESOURCE,EP , GRND4 , GRND4 )
 
 PATCH(FAN ,SOUTH , 1, 14, 1, 1, 4, 22, 1, 1)
 COVAL(FAN ,P1 , FIXFLU ,0.1189 )
 COVAL(FAN ,U1 ,0. ,0. )
 COVAL(FAN ,V1 ,0. ,0.1 )
 COVAL(FAN ,W1 ,0. ,0. )
 COVAL(FAN ,KE ,0. ,2.5E-05 )
 COVAL(FAN ,EP ,0. ,3.796E-06 )
 COVAL(FAN ,TEM1,0. ,19. )
 
 PATCH(EXIT ,NORTH , 1, 14, 10, 10, 4, 22, 1, 1)
 COVAL(EXIT ,P1 ,1. ,0. )
 COVAL(EXIT ,KE ,0. , SAME )
 COVAL(EXIT ,EP ,0. , SAME )
 COVAL(EXIT ,TEM1,0. ,20. )
 
 PATCH(HOTCHP1 ,VOLUME, 3, 4, 3, 4, 4, 7, 1, 1)
 COVAL(HOTCHP1 ,TEM1, FIXFLU ,6.25E+05 )
 
 PATCH(HOTCHP2 ,VOLUME, 7, 8, 3, 4, 4, 7, 1, 1)
 COVAL(HOTCHP2 ,TEM1, FIXFLU ,6.25E+05 )
 
 PATCH(HOTCHP3 ,VOLUME, 11, 11, 3, 4, 4, 7, 1, 1)
 COVAL(HOTCHP3 ,TEM1, FIXFLU ,6.25E+05 )
 
 PATCH(HOTCHP4 ,VOLUME, 3, 4, 7, 8, 4, 7, 1, 1)
 COVAL(HOTCHP4 ,TEM1, FIXFLU ,6.25E+05 )
 
 PATCH(HOTCHP5 ,VOLUME, 7, 8, 7, 8, 4, 7, 1, 1)
 COVAL(HOTCHP5 ,TEM1, FIXFLU ,6.25E+05 )
 
 PATCH(HOTCHP6 ,VOLUME, 11, 11, 7, 8, 4, 7, 1, 1)
 COVAL(HOTCHP6 ,TEM1, FIXFLU ,6.25E+05 )
 
 PATCH(BUOYANCY,PHASEM, 1, 14, 1, 10, 1, 22, 1, 1)
 COVAL(BUOYANCY,V1 , FIXFLU , GRND2 )
 XCYCLE = F
 EGWF = T
 WALLCO = GRND2
 BUOYA =0. ; BUOYB =-9.81
 BUOYC =0.
 BUOYD =1.189
 ************************************************************
  Group 14. Downstream Pressure For PARAB
 ************************************************************
  Group 15. Terminate Sweeps
 LSWEEP = 30 ;ISWC1 = 1
 LITHYD = 1 ;LITFLX = 1 ;LITC = 1 ;ITHC1 = 1
 SELREF = T
 RESFAC =1.0E-02
 ************************************************************
  Group 16. Terminate Iterations
 LITER(P1)=20 ;LITER(U1)=10
 LITER(V1)=10 ;LITER(W1)=10
 LITER(KE)=20 ;LITER(EP)=20
 LITER(TEM1)=15
 ENDIT(P1)=1.0E-03 ;ENDIT(U1)=1.0E-03
 ENDIT(V1)=1.0E-03 ;ENDIT(W1)=1.0E-03
 ENDIT(KE)=1.0E-03 ;ENDIT(EP)=1.0E-03
 ENDIT(TEM1)=1.0E-03
 ************************************************************
  Group 17. Relaxation
 RELAX(P1,LINRLX,1.)
 RELAX(U1,FALSDT,0.13)
 RELAX(V1,FALSDT,0.13)
 RELAX(W1,FALSDT,0.13)
 RELAX(KE,LINRLX,0.4)
 RELAX(EP,LINRLX,0.4)
 RELAX(BLOK,LINRLX,1.)
 RELAX(PRPS,LINRLX,1.)
 RELAX(EPKE,LINRLX,1.)
 RELAX(DEN1,LINRLX,1.)
 RELAX(TEM1,FALSDT,1300.)
 KELIN = 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(W1)=1.0E+06 ;VARMIN(W1)=-1.0E+06
 VARMAX(KE)=1.0E+10 ;VARMIN(KE)=1.0E-10
 VARMAX(EP)=1.0E+10 ;VARMIN(EP)=1.0E-10
 VARMAX(BLOK)=1.0E+10 ;VARMIN(BLOK)=-1.0E+10
 VARMAX(PRPS)=1.0E+10 ;VARMIN(PRPS)=-1.0E+10
 VARMAX(EPKE)=1.0E+10 ;VARMIN(EPKE)=-1.0E+10
 VARMAX(DEN1)=1.0E+10 ;VARMIN(DEN1)=-1.0E+10
 VARMAX(TEM1)=1.0E+10 ;VARMIN(TEM1)=-1.0E+10
 ************************************************************
  Group 19. Data transmitted to GROUND
 NAMGRD =HTBX
 GENK = T
 PARSOL = F
 ISG62 = 1
 SPEDAT(SET,MATERIAL,2,L,T)
 SPEDAT(SET,MATERIAL,105,L,T)
 SPEDAT(SET,MATERIAL,108,L,T)
 SPEDAT(SET,MATERIAL,107,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(W1,Y,N,Y,Y,Y,Y)
 OUTPUT(KE,Y,N,Y,Y,Y,Y)
 OUTPUT(EP,Y,N,Y,Y,Y,Y)
 OUTPUT(BLOK,N,N,N,N,N,N)
 OUTPUT(PRPS,N,N,N,N,N,N)
 OUTPUT(EPKE,Y,N,Y,N,N,N)
 OUTPUT(DEN1,Y,N,Y,N,N,N)
 OUTPUT(TEM1,Y,N,Y,Y,Y,Y)
 ************************************************************
  Group 22. Monitor Print-Out
 IXMON = 5 ;IYMON = 5 ;IZMON = 5
 NPRMON = 100000 ;NPRMNT = 1 ;TSTSWP = -1
 UWATCH = T ;USTEER = T
 HIGHLO = F
 ************************************************************
  Group 23.Field Print-Out & Plot Control
 NPRINT = 100000 ;NUMCLS = 5
 NXPRIN = 2 ;IXPRF = 1 ;IXPRL = 10000
 NYPRIN = 1 ;IYPRF = 1 ;IYPRL = 10000
 NZPRIN = 4 ;IZPRF = 1 ;IZPRL = 10000
 XZPR = F ;YZPR = F
 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
   No PATCHes yet used for this Group
 ************************************************************
  Group 24. Dumps For Restarts
 SAVE = T ;NOWIPE = F
 NSAVE =CHAM
STOP