aselimov/cacmb
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Added deform box option and allowed for reading time information from restart files

Browse source
This commit is contained in:
Alex Selimov 2020-08-10 15:52:19 -04:00
parent 8d939ed942
commit 724e573287
6 changed files with 117 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/elements.f90
View file

@ -503,6 +503,7 @@ module elements
size_ele(sorted_index(i)) = 0
lat_ele(sorted_index(i)) = 0
sbox_ele(sorted_index(i)) = 0
tag_ele(sorted_index(i)) = 0
else
node_num = node_num - ng_node(lat_ele(sorted_index(i)))
r_node(:,:,:,sorted_index(i)) = r_node(:,:,:,ele_num)
@ -510,6 +511,7 @@ module elements
size_ele(sorted_index(i)) = size_ele(ele_num)
lat_ele(sorted_index(i)) = lat_ele(ele_num)
sbox_ele(sorted_index(i)) = sbox_ele(ele_num)
tag_ele(sorted_index(i)) = tag_ele(ele_num)
end if
ele_num = ele_num - 1
end do