/ Journal File for GAMBIT 1.3.0
/ File opened for write Mon May 14 12:06:03 2001.
solver select "FIDAP"
undo begingroup
vertex create coordinates 0 0 0
undo endgroup
undo begingroup
vertex create coordinates 15 0 0
undo endgroup
undo begingroup
vertex create coordinates 15 0.5 0
undo endgroup
undo begingroup
vertex create coordinates 0 0.5 0
undo endgroup
edge create straight "vertex.1" "vertex.2" "vertex.3"
edge create straight "vertex.1" "vertex.4" "vertex.3"
face create wireframe "edge.3" "edge.1" "edge.2" "edge.4" real
undo begingroup
edge picklink "edge.2" "edge.3"
/  Re = 10 K
/ The fist case was made to purposely have coarser mesh near the wall!!
/ so the y plus condition is met
edge mesh "edge.3" "edge.2" lastfirst ratio1 0.3 intervals 8
/  Re = 100 K
/  edge mesh "edge.3" "edge.2" lastfirst ratio1 5 intervals 20
/  Re = 1000 K
/ edge mesh "edge.3" "edge.2" lastfirst ratio1 69 intervals 20
undo endgroup
undo begingroup
edge picklink "edge.1" "edge.4"
edge mesh "edge.4" "edge.1" successive ratio1 1.015 intervals 150
undo endgroup
undo begingroup
vertex copy "vertex.3" "vertex.2" to "vertex.5" "vertex.6"
vertex move "vertex.5" "vertex.6" offset 85 0 0
undo endgroup
edge create straight "vertex.2" "vertex.6" "vertex.5"
edge create straight "vertex.3" "vertex.5"
face create wireframe "edge.2" "edge.5" "edge.6" "edge.7" real
undo begingroup
edge picklink "edge.7" "edge.5"
edge mesh "edge.5" "edge.7" successive ratio1 1 intervals 340
undo endgroup
undo begingroup
edge picklink "edge.6"
/  Re = 10 K
edge mesh "edge.6" "edge.2" lastfirst ratio1 0.3 intervals 8
/  Re = 100 K
/  edge mesh "edge.6" "edge.2" lastfirst ratio1 5 intervals 20
/  Re = 1000 K
/ edge mesh "edge.6" "edge.2" lastfirst ratio1 69 intervals 20
undo endgroup
face mesh "face.1" "face.2" map size 1
solver select "FIDAP"
physics create "fluid" ctype "FLUID" face "face.1" "face.2"
physics create "wall" btype "WALL" edge "edge.4" "edge.7"
physics create "symmetry" btype "PLOT" edge "edge.1" "edge.5"
physics create "inflow" btype "PLOT" edge "edge.3"
physics create "outflow" btype "PLOT" edge "edge.6"
export fidap "aturbT2.FDNEUT"
/ File closed at Mon May 14 12:14:28 2001, 12.57 cpu second(s), 4564504 maximum memory.