(
 Test viscous heat generation.
 q = 2 * nu * D = 2
 nu = 1
 D = 1.
 so q = 2.
 This gives a temperature raise of 2 at the nodes.
)

echo -no
number_of_space_dimensions 1
materi_velocity
materi_stress
condif_temperature
end_initia

options_mesh -fixed_in_space
options_convection -no

node 1  0
node 2  1
element 1  -bar2 1 2

bounda_unknown 0  1 -velx
bounda_time    0  0.
bounda_unknown 1  2 -velx
bounda_time    1  1.

group_type 0  -materi -condif
group_materi_viscosity 0  1.0
group_materi_viscosity_heatgeneration 0  -yes
group_materi_memory 0  -updated_without_rotation
group_condif_density 0  1.
group_condif_capacity 0  1.

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

target_item  0   -node_dof 2 -temp
target_value 0   2. 1.e-4
end_data
