We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 84f85a5 commit 530638aCopy full SHA for 530638a
src/post_process/m_data_input.f90
@@ -622,16 +622,16 @@ impure subroutine s_initialize_data_input_module
622
end if
623
624
! Allocating arrays to store the bc types
625
- allocate (bc_type(1:num_dims, -1:1))
+ allocate (bc_type(1:num_dims, 1:2))
626
627
- allocate (bc_type(1, -1)%sf(0:0, 0:n, 0:p))
628
allocate (bc_type(1, 1)%sf(0:0, 0:n, 0:p))
+ allocate (bc_type(1, 2)%sf(0:0, 0:n, 0:p))
629
if (n > 0) then
630
- allocate (bc_type(2, -1)%sf(-buff_size:m + buff_size, 0:0, 0:p))
631
allocate (bc_type(2, 1)%sf(-buff_size:m + buff_size, 0:0, 0:p))
+ allocate (bc_type(2, 2)%sf(-buff_size:m + buff_size, 0:0, 0:p))
632
if (p > 0) then
633
- allocate (bc_type(3, -1)%sf(-buff_size:m + buff_size, -buff_size:n + buff_size, 0:0))
634
allocate (bc_type(3, 1)%sf(-buff_size:m + buff_size, -buff_size:n + buff_size, 0:0))
+ allocate (bc_type(3, 2)%sf(-buff_size:m + buff_size, -buff_size:n + buff_size, 0:0))
635
636
637
0 commit comments