/ *****************************************************************
/ 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
/
FICONV( NEUTRAL )
INPUT( FILE="ofepipe.FDNEUT" )
OUTPUT( DELETE )
END
/
TITLE
ofepipe
/
$Umean = 0.063662
$vis = 1.0
$dens = 800.0
$umax=2.0*$Umean
$CC = -8.0*$Umean
/
FIPREP(  )
DATAPRINT( ADD, CONT )
PROBLEM( ADD, AXI-, INCO, LAMINAR, NONL, ISOTHERMAL )
SOLUTION( ADD, S.S. = 100, VELC = 0.0001, RESC = 0.0001, ACCF = 0 )
OPTIONS(UPWINDING,NODISSIPATION)
UPWINDING
1 1 0 0 2 0 1 1
PRINTOUT( ADD, ALL, BOUN )
EXECUTION( ADD, NEWJ )
ENTITY( ADD, NAME = "fluid", FLUI )
ENTITY( ADD, NAME = "sidewall", PLOT )
ENTITY( ADD, NAME = "orifice", ATTACH="fluid", PLOT )
ENTITY( ADD, NAME = "inlet", PLOT )
ENTITY( ADD, NAME = "outlet", PLOT )
ENTITY( ADD, NAME = "center", PLOT )
/
BCNODE( ADD, VELO, ENTI = "sidewall", ZERO )
BCNODE( ADD, VELO, ENTI = "orifice", ZERO )
BCNODE( ADD, UZC, ENTI = "inlet", POLY = 1)
    $umax,    $CC,     0,     2,     0
BCNODE( ADD, URC, ENTI = "inlet", ZERO )
BCNODE( ADD, URC, ENTI = "center", ZERO )
BCNODE( ADD, TEMP, ENTI = "inlet", ZERO )
DENSITY( ADD, SET = 1, CONS = $dens )
VISCOSITY( ADD, SET = 1, CONS = $vis )
END(  )
/