From d0b6c595f0f0310659a972b7e5421b286d85e4e9 Mon Sep 17 00:00:00 2001 From: Alex Date: Fri, 21 Feb 2020 17:19:10 -0500 Subject: [PATCH] Fix to outputting single element --- src/mode_create.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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