Fix to outputting single element

5 years ago · d0b6c595f0
parent 6a0d441bd0
commit d0b6c595f0
1 changed files with 2 additions and 2 deletions
--- 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) = maxval(r_node_temp(i,:,:))+10.0_dp**-6.0_dp
-                box_bd(2*i-1) = origin(i)
+                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