diff --git a/src/define_bc.f90 b/src/define_bc.f90
index d958b67109935c9b3f8d1e7a09ea223a0687061c..f823db5a736a0be73e20ea3efb5a2afc769a16a0 100644
--- a/src/define_bc.f90
+++ b/src/define_bc.f90
@@ -72,6 +72,12 @@ if (params%nest) bccase='nest'
 
 select case(trim(bccase))
 case('input.txt','input.small.txt','basic')
+   if (trim(bccase).ne.'xyz' .or. trim(bccase).ne.'xzy' .or.                   &
+      trim(bccase).ne.'yxz' .or. trim(bccase).ne.'yzx' .or.                    &
+      trim(bccase).ne.'zxy' .or. trim(bccase).ne.'zyx') then
+     if (iproc==0) write (*,*) 'No/unsupported BC order provided, assuming bcorder=xyz'
+   endif
+
    do i=1,osolve%nnode
      select case(trim(bcdef%bcorder))
      case ('xyz')
@@ -615,7 +621,6 @@ case('input.txt','input.small.txt','basic')
        endif
 
      case default
-       if (iproc==0) write (*,*) 'No BC order provided, assuming bcorder=xyz'
        if (osolve%x(i).lt.eps) then
          if (bcdef%fixux0) then
            osolve%kfix((i-1)*3+1)=1
@@ -753,13 +758,13 @@ case ('input.ritske_isurf','ritske_isurf')
    call define_bc_ritske_isurf (osolve%nnode,osolve%kfix,osolve%kfixt,osolve%x,osolve%y,osolve%z,osolve%u,osolve%v,osolve%w,osolve%temp,vo)
 
 case ('input.segmented_s_line','segmented_s_line')
-   call define_bc_segmented_s_line (osolve%nnode,osolve%kfix,osolve%kfixt,osolve%x,osolve%y,osolve%z,osolve%u,osolve%v,osolve%w,osolve%temp,vo)
+   call define_bc_segmented_s_line (params,osolve,vo,bcdef,nest)
 
 case ('input.sphere','sphere')
    call define_bc_sphere (osolve%nnode,osolve%kfix,osolve%kfixt,osolve%x,osolve%y,osolve%z,osolve%u,osolve%v,osolve%w,osolve%temp,vo) 
 
 case ('input.subduction','subduction')
-   call define_bc_subduction (osolve%nnode,osolve%kfix,osolve%kfixt,osolve%x,osolve%y,osolve%z,osolve%u,osolve%v,osolve%w,osolve%temp,vo) 
+   call define_bc_subduction (osolve%nnode,osolve%kfix,osolve%kfixt,osolve%x,osolve%y,osolve%z,osolve%u,osolve%v,osolve%w,osolve%temp,vo)
 
 case default
    if (iproc.eq.0) print *,params%infile
diff --git a/src/define_bc_segmented_s_line.f90 b/src/define_bc_segmented_s_line.f90
index b71de8dfa17060bc63b3b406ed3fb602a9a3a61f..1ad8f46cfaf55293da547a3d3085d40c07f544ed 100644
--- a/src/define_bc_segmented_s_line.f90
+++ b/src/define_bc_segmented_s_line.f90
@@ -16,7 +16,7 @@
 !------------------------------------------------------------------------------|
 !------------------------------------------------------------------------------|
 
-subroutine define_bc_segmented_s_line(params,osolve,vo,bcdef,nest) 
+subroutine define_bc_segmented_s_line(params,osolve,vo,bcdef,nest)
 
 !------------------------------------------------------------------------------|
 !((((((((((((((((  Purpose of the routine  )))))))))))))))))))))))))))))))))))))