( Nearly inc. Navier Stokes.
  Two-dimensional.
  Temperature causes gravity acceleration.
  All nodes prescribed temperature 0.5.
  The velocity rate at node 2 due to expansion=-3.
  The velocity rate at node 2 due to rho*g*{1-expansion*T} = 0.5
  So the total rate is -2.5. )

echo -no
number_of_space_dimensions 2
derivatives
condif_temperature
materi_velocity
materi_stress
end_initia

options_mesh -fixed_in_space -fixed_in_space

node 1  0  0
node 2  1  0
node 3  1  1
node 4  0  1
element 1  -quad4  1 2 4 3

bounda_unknown 0  -ra 1 2 3 4 -ra -temp
bounda_time    0  0.0 0.5 100. 0.5

force_gravity 0. 1.

group_type 0  -materi
group_materi_density 0  1.0
group_materi_expansion_linear 0  1.
group_materi_expansion_volume 0  1.
group_materi_elasti_compressibility 0  1.0
group_materi_memory 0  -updated_without_rotation

print_filter 0  -node_dof -all -tvely

control_timestep 0  0.01 0.01
(control_print    0  -time_current -node_dof -dof_label)

target_item 0  -node_dof 2 -tvely
target_value   0  -2.5 1.e-2
end_data
