|
|
|
@ -35,9 +35,9 @@ module opt_redef_box
|
|
|
|
|
delete_list(:) = 0
|
|
|
|
|
do i = 1, ele_num
|
|
|
|
|
!Determine if all nodes are within the new boundaries
|
|
|
|
|
node_out(:) = .false.
|
|
|
|
|
do inod = 1, ng_node(lat_ele(i))
|
|
|
|
|
do ibasis = 1, basisnum(lat_ele(i))
|
|
|
|
|
node_out(:) = .false.
|
|
|
|
|
if(.not.in_block_bd(r_node(:,ibasis,inod,i), new_bd)) then
|
|
|
|
|
node_out(inod) = .true.
|
|
|
|
|
end if
|
|
|
|
@ -66,7 +66,7 @@ module opt_redef_box
|
|
|
|
|
end if
|
|
|
|
|
end do
|
|
|
|
|
|
|
|
|
|
call delete_elements(delete_num, delete_list)
|
|
|
|
|
call delete_elements(delete_num, delete_list(1:delete_num))
|
|
|
|
|
|
|
|
|
|
box_bd=new_bd
|
|
|
|
|
box_bc = new_bc
|
|
|
|
|