fixed bc check for -17

Author: okBrian

src/pre_process/m_data_output.fpp

@@ -157,13 +157,15 @@ contains
             status = 'new'
         end if
 
-        checkboundary: do i = 1, 3
-            if (any(bc_type(1, -1)%sf == -17) .or. any(bc_type(i, 1)%sf == -17)) then
-                call s_write_serial_boundary_condition_files(q_prim_vf, bc_type, t_step_dir)
-                exit checkboundary
+        checkboundary1: do i = 1, num_bc_patches
+            if (bc_x%beg == -17 .or. bc_x%beg == -17 &
+                .or. bc_y%beg == -17 .or. bc_y%end == -17 &
+                .or. bc_z%beg == -17 .or. bc_z%end == -17 &
+                .or. patch_bc(i)%type == -17) then
+                    call s_write_serial_boundary_condition_files(q_prim_vf, bc_type, t_step_dir)
+                    exit checkboundary1
             end if
-        end do checkboundary
-
+        end do checkboundary1
         ! x-coordinate direction
         file_loc = trim(t_step_dir)//'/x_cb.dat'
         open (1, FILE=trim(file_loc), FORM='unformatted', STATUS=status)
@@ -847,12 +849,15 @@ contains
         end if
 #endif
 
-        checkboundary: do i = 1, 3
-            if (any(bc_type(1, -1)%sf == -17) .or. any(bc_type(i, 1)%sf == -17)) then
+    checkboundary2: do i = 1, num_bc_patches
+        if (bc_x%beg == -17 .or. bc_x%beg == -17 &
+            .or. bc_y%beg == -17 .or. bc_y%end == -17 &
+            .or. bc_z%beg == -17 .or. bc_z%end == -17 &
+            .or. patch_bc(i)%type == -17) then
                 call s_write_parallel_boundary_condition_files(q_prim_vf, bc_type)
-                exit checkboundary
-            end if
-        end do checkboundary
+                exit checkboundary2
+        end if
+    end do checkboundary2
 
     end subroutine s_write_parallel_data_files