Working redef box option

development
Alex Selimov 4 years ago
parent b658202a1e
commit c42db27f57

@ -5,6 +5,7 @@ subroutine call_option(option, arg_pos)
use opt_orient
use opt_deform
use opt_delete
use opt_redef_box
use box
implicit none
@ -38,6 +39,8 @@ subroutine call_option(option, arg_pos)
call run_delete(arg_pos)
case('-set_cac')
arg_pos=arg_pos +3
case('-redef_box')
call redef_box(arg_pos)
case default
print *, 'Option ', trim(adjustl(option)), ' is not currently accepted.'
stop 3

@ -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

Loading…
Cancel
Save