/ *****************************************************************
/ 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="OsPlate.FDNEUT" )
OUTPUT( DELETE )
END
/
TITLE
OsPlate
/
FIPREP
/
/          PROBLEM SETUP
/
PROBLEM( ADD, 2-D, INCO, TRAN, LAMI, NONL, NEWT, MOME, ISOT, FIXE, SING )
/
TIMEINTEGRATION( ADD, TRAP, NSTE = 999, TSTA = 0, DT = 0.01, FIXE, WIND, NOFI )
/
EXECUTION( NEWJOB )
PRINTOUT( NONE )
DATAPRINT( CONTROL )
/
POSTPROCESS(NBLOCKS=1)
1,1000,2
/
ENTITY ( NAME = "fluid", FLUID, PROPERTY = "fluid" )
ENTITY ( NAME = "top", PLOT )
ENTITY ( NAME = "bottom", PLOT )
ENTITY ( NAME = "left", PLOT )
ENTITY ( NAME = "right", PLOT )
/
SOLUTION( S.S. = 50, VELCONV = .001, RESCONV = .001, ACCF = .0 )
/
/          MATERIAL PROPERTIES
/
/ Partial list of Material Properties data
/
DENSITY( SET = "fluid", CONSTANT = 1 )
VISCOSITY( SET = "fluid", CONSTANT = 1 )
/
BCNODE( ADD, UY, ENTI = "bottom", ZERO, X, Y, Z )
/ period = T = 1.0s 
/ ux = sin ( 2*pi*t/T )
/ note 2*pi = 360 degrees ( for the 'sin' function )
/
$period = 1.0
$aa = 2.0
$bb = ( 360.0/$period )
BCNODE( UX, CONSTANT=1, CURVE=1,ENTITY="bottom",FACTOR=$aa)
TMFUNCTION(ADD, ENTR = 1, SET = 1, SINU, ACOE = 1, EPOW = 1, T0 = 0,
REFV = 1 )
/
ICNODE( ADD, VELO, ZERO, ENTI = "fluid", X, Y, Z )
/
END