( Incompressible Navier Stokes.
  Two-dimensional.
  Nodes on side of rectangle x-vel. 1.
  Also nodes in rectangle should get 1. )

echo -no
number_of_space_dimensions 2
materi_velocity
materi_stress
end_initia

options_mesh -fixed_in_space -fixed_in_space
options_inertia -no

node 1 0 0 
node 2 1 0 
node 3 1 1 
node 4 0 1 
node 5 0 0.5 
node 6 0.5 0 
node 7 0.5 0.5 
node 8 0.5 1 
node 9 1 0.5 
element 1  -quad4 1 6 5 7
element 2  -quad4 5 7 4 8
element 3  -quad4 6 2 7 9
element 4  -quad4 7 9 8 3

bounda_unknown 0  -ra -from 1 -to 6 8 9 -ra -velx
bounda_time    0  0. 0. 1.0 1.0 1.e6 1.0
bounda_unknown 1  -all -vely
bounda_time    1  0. 0. 1.e6 0.

group_type 0  -materi
group_materi_density 0  1.
group_materi_elasti_compressibility 0  1.
group_materi_memory 0  -updated_without_rotation

print_filter 0  -node_dof -all -velx

control_timestep                     0  1. 1.
(control_print                       0  -time_current -node_dof)

target_item 0  -node_dof 7 -velx
target_value 0  1.0 2.e-2
end_data
