diff --git a/src/mode_create.f90 b/src/mode_create.f90 index 0b026c2..db6fdd0 100644 --- a/src/mode_create.f90 +++ b/src/mode_create.f90 @@ -105,8 +105,8 @@ module mode_create end do end do do i = 1,3 - box_bd(2*i) = maxval(r_node_temp(i,:,:)) - box_bd(2*i-1) = origin(i) + box_bd(2*i) = maxval(r_node_temp(i,:,:))+10.0_dp**-6.0_dp + box_bd(2*i-1) = minval(r_node_temp(i,:,:)) - 10.0_dp**-6.0_dp end do call add_element(element_type, esize, 1, 1, r_node_temp) end if