air-jet_gambit.jou.tpl

Optimus Fluent Gambit

/*****************************************************************
/2-D axi simulation of a JET.
/Antoine DOZOLME ([e-mail])
/Fluent Benelux.
/*****************************************************************
/Please input the radius and height below.
/*****************************************************************
/$r is the radius in meter
$r=#Radius#
/$h is the height in meter
$h=#Height#
/*****************************************************************
solver select "FLUENT 5/6"
face create "face.1" width (8*$r) height $r offset (4*$r) ($r/2) 0 xyplane rectangle
face create "face.2" width $h height $r offset ($h/2) ($r/2) 0 xyplane rectangle
face create "face.3" width (8*$r) height (14*$r+$h) offset (4*$r) ((14*$r+$h)/2) 0 xyplane rectangle
face create "face.4" width $h height (14*$r+$h) offset ($h/2) ((14*$r+$h)/2) 0 xyplane rectangle
face move "face.2" "face.4" offset (8*$r) 0 0
face move "face.3" "face.4" offset 0 ($r) 0
edge connect real
edge modify "edge.3" forward
edge modify "edge.11" backward
edge picklink "edge.3" "edge.11" "edge.1"
edge mesh "edge.1" "edge.3" "edge.11" lastlength ratio1 ($h/50) size (8*$r/30)
edge picklink "edge.7" "edge.15" "edge.5"
edge mesh "edge.5" "edge.7" "edge.15" successive ratio1 1 size ($h/50)
edge picklink "edge.2" "edge.6" "edge.4"
edge mesh "edge.4" "edge.2" "edge.6" successive ratio1 1 size (2*$r/20)
edge picklink "edge.12" "edge.10" "edge.14"
edge mesh "edge.12" "edge.10" "edge.14" successive ratio1 1 size ((14*$r+$h)/100)
face mesh "face.1" "face.2" "face.3" "face.4" map
physics create "axis" btype "AXIS" edge "edge.1" "edge.5"
physics create "wall-jet" btype "WALL" edge "edge.3"
physics create "wall" btype "WALL" edge "edge.6" "edge.14"
physics create "inlet" btype "VELOCITY_INLET" edge "edge.4"
physics create "outlet" btype "PRESSURE_OUTLET" edge "edge.11" "edge.15"
physics create "pres-inlet" btype "PRESSURE_INLET" edge "edge.12"
physics create "air" ctype "FLUID" face "face.1" "face.2" "face.3" "face.4"
export fluent5 "air-jet.msh" nozval