AERE Exp., Test H
TSA6 rff, 8/1/94
GASFLOW
 
$Source: /home/cvs/cvsroot/input/aere.ingf,v $
$Date: 1996/12/18 10:51:53 $
$Locker:  $
$Revision: 1.1 $
$State: Exp $
$Author: jspore $
 
$Log: aere.ingf,v $
Revision 1.1  1996/12/18 10:51:53  jspore
Initial revision

Revision 1.7  1996/06/19 20:25:45  jspore
Cleaned up mesh input so it would work with both F77 and F90
namelist.

Revision 1.6  1995/10/18 14:43:46  jspore
Ran all .ingf files through edgf to make for sure all namelist
ends started in column 2.  Fred also removes trailing blanks.

Revision 1.5  1995/05/15 16:27:32  jspore
Added extra null mesh input.  This allows SETLSIZE logic for reading
the MESHGN namelist to work correctly on INDY machines.
 
Revision 1.4  1995/05/08 21:29:02  jspore
Added header information.
 
 
 
 -----------------------------------------------------------------------
 $innet
 $end
 $xput
 
      ihystat   = 0,
     idiffmom  = 1,
      tmodel   = 'alg',
     idiffme   = 0, prandtl = 0.70, schmidt = 1.0,
 
      autot    = 1.0,  cyl = 0.0,
      delt0    = 00.0050 ,
      deltmin  = 1.000e-05,
      deltmax  = 1.000e-00,
      epsi0    = 1.000e-05,
      epsimax  = 1.000e-05,
      epsimin  = 1.000e-05,
      gz       = -980.0,
      iobpl    = 0,
      itdowndt =  90,
      itupdt   = 100,
      itmax    = 100,
      lpr      = 1,
      maxcyc   =500000,
      ittyfreq = 020,
      nu       = 0.15  ,
      pltdt    =  10.0,
      prtdt    =  10.0,
      twfin    =  10.0,
      tddt     =  10.0,
      nrsdump = 0,
 ;    solatype = 2.0,
      velmx    = 1.5,
      ibw      = 1,
      ibe      = 1,
      ibs      = 1,
      ibn      = 1,
      ibb      = 1,
      ibt       = 1,
 
   vbc(1,1)  = 1,    1 ,  9, 17,  3 , 5,  1 , 1,  0.00, 1.e99,
   pbc(1,1)  =  23, 25,  3, 23, 25 , 25,  1 ,      0.00, 1.e99,
   vvalue = 75.0,
 
      mat =   'air',
 
      gasdef(1,1) = 0 ,  26,  0 , 26 ,  0 , 26,   1 ,          ;I.C.
                    1.013500e6, 295.00, 1, 0., 0.,
                    'air', 1.00000,
      gasdef(1,2) = 0 , 1,  9 ,17 ,  3,  5,   1 ,          ;E Bound B.C.'s
                    1.013500e6, 295.00, 1, 0., 999999.0,
                     'air', 1.0,
      gasdef(1,3) = 23 , 25,  3 , 23 ,  25,  26,   1 ,    ;Top Bound. B.C.'s
                    1.013500e6, 295.00, 1, 0., 999999.0,
                     'air', 1.0,
 
 $end
------------------------------------------------------------------------
          M E S H
------------------------------------------------------------------------
 $meshgn
     iblock = 1,
     nkx = 1,
     xl(1) =   0.0, xc(1) = 0.0, nxl(1) = 0, nxr(1)= 24, dxmn(1) = 9999.,
     xl(2) = 271.0,
 
     nky = 3,
     yl(1) =   0.0, yc(1) = 0.0, nyl(1) = 0, nyr(1)=  8, dymn(1) = 9999.,
     yl(2) =  99.0, yc(2) = 0.0, nyl(2) = 0, nyr(2)=  8, dymn(2) = 9999.,
     yl(3) = 169.0, yc(3) = 0.0, nyl(3) = 0, nyr(3)=  8, dymn(3 )= 9999.,
     yl(4) = 268.0,
 
     nkz = 1,
     zl(1) =   0.0, zc(1) = 0.0, nzl(1) = 0, nzr(1)= 24, dzmn(1) = 9999.,
     zl(2) = 240.0,
 $end
 $meshgn
 
 $end
------------------------------------------------------------------------
          G R A P H I C S
------------------------------------------------------------------------
 $grafic
 
     pnt(1, 1) =     1,  13,  1,   1,
     pnt(1, 2) =     25,13, 25,   1,
     pnt(1, 3) =     1,   1,  4,   1,
     pnt(1, 4) =     25,25, 4,   1,
 
 
     thdt = 0.10 ,
 
 
      viewcrds(1,1) = 135.0, 134.0, 120.0, 135.0, -500.0, 120.0,
      viewcrds(1,2) = 135.0, 134.0, 120.0, 135.0,  134.0, 500.0,
 
     thp(1, 1) = 25,13,25,  1,  'wn',  0,
     thp(1, 2) = 25, 2, 4,  1,  'vn',  0,
     thp(1, 3) = 25,13, 4,  1,  'wn',  0,
 $end
------------------------------------------------------------------------
          P A R T I C L E S
------------------------------------------------------------------------
 $parts
 $end
 $rheat
 $end
 $special
 $end
 $specialp
 $end