Fixed typos with new define_bc input via input.txt file

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

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  )))))))))))))))))))))))))))))))))))))