/ *****************************************************************
/ Disclaimer: This file was written by GAMBIT and contains
/ all the continuum and boundary entities and coordinate systems
/ defined in GAMBIT. Additionally, some frequently used FIPREP
/ commands are added. Modify/Add/Uncommment any necessary commands.
/ Refer to FIPREP documentation for complete listing of commands.
/ *****************************************************************
/
/          CONVERSION OF NEUTRAL FILE TO FIDAP Database
$tke = 0.004
$tdiss = 0.01
/ Re = 10,000
$vis = 1.e-4
/ Re = 100,000
/ $vis = 1.e-5
/ Re = 1000,000
/ $vis = 1.e-6
/
FICONV( NEUTRAL )
INPUT( FILE="aturbT.FDNEUT" )
OUTPUT( DELETE )
END
/
TITLE
aturbT
/
FIPREP
PROBLEM(NONLINEAR,AXI-SYMMETRIC,TURBULENT)
EXECUTION(NEWJOB)
ENTITY(FLUID,NAME="fluid")
ENTITY(WALL,NAME="wall")
ENTITY(PLOT,NAME="inflow")
ENTITY(PLOT,NAME="outflow")
ENTITY(PLOT,NAME="symmetry")
ICNODE(UZC,CONSTANT=1.,ALL)
ICNODE(KINETIC,CONSTANT=$tke,ALL)
ICNODE(DISSIPATION,CONSTANT=$tdiss,ALL)
SOLUTION(S.S.=200,SCHANGE=0, VELC = 0.0001, RESC = 0.0001)
RELAX
.3 .3 0 0 0 0 .7 .7
OPTIONS(UPWINDING)
POSTPROCESS
VISCOSITY(TWO-EQUATION,CONST=$vis )
DENSITY(CONSTANT=1.)
BCNODE(UZC,CONSTANT=1.0,ENTITY="inflow")
BCNODE(URC,ZERO,ENTITY="inflow")
BCNODE(URC,ZERO,ENTITY="outflow")
BCNODE(VELOCITY,ZERO,ENTITY="wall")
BCNODE(URC,ZERO,ENTITY="symmetry")
BCNODE(KINETIC,CONSTANT=$tke,ENTITY="inflow")
BCNODE(DISSIPATION,CONSTANT=$tdiss,ENTITY="inflow")
RENUMBER
END