Skip to content

Commit 530638a

Browse files
author
Anand
committed
fix bounds in post_process
1 parent 84f85a5 commit 530638a

File tree

1 file changed

+4
-4
lines changed

1 file changed

+4
-4
lines changed

src/post_process/m_data_input.f90

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -622,16 +622,16 @@ impure subroutine s_initialize_data_input_module
622622
end if
623623

624624
! Allocating arrays to store the bc types
625-
allocate (bc_type(1:num_dims, -1:1))
625+
allocate (bc_type(1:num_dims, 1:2))
626626

627-
allocate (bc_type(1, -1)%sf(0:0, 0:n, 0:p))
628627
allocate (bc_type(1, 1)%sf(0:0, 0:n, 0:p))
628+
allocate (bc_type(1, 2)%sf(0:0, 0:n, 0:p))
629629
if (n > 0) then
630-
allocate (bc_type(2, -1)%sf(-buff_size:m + buff_size, 0:0, 0:p))
631630
allocate (bc_type(2, 1)%sf(-buff_size:m + buff_size, 0:0, 0:p))
631+
allocate (bc_type(2, 2)%sf(-buff_size:m + buff_size, 0:0, 0:p))
632632
if (p > 0) then
633-
allocate (bc_type(3, -1)%sf(-buff_size:m + buff_size, -buff_size:n + buff_size, 0:0))
634633
allocate (bc_type(3, 1)%sf(-buff_size:m + buff_size, -buff_size:n + buff_size, 0:0))
634+
allocate (bc_type(3, 2)%sf(-buff_size:m + buff_size, -buff_size:n + buff_size, 0:0))
635635
end if
636636
end if
637637

0 commit comments

Comments
 (0)