Fixed minor typo

src/define_bc.f90

@@ -72,10 +72,10 @@ 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'
+   if (trim(bcdef%bcorder).ne.'xyz' .and. trim(bcdef%bcorder).ne.'xzy' .and.                       &
+     trim(bcdef%bcorder).ne.'yxz' .and. trim(bcdef%bcorder).ne.'yzx' .and.                         &
+     trim(bcdef%bcorder).ne.'zxy' .and. trim(bcdef%bcorder).ne.'zyx') then
+      if (iproc==0) write (*,*) 'No/unsupported BC order provided, assuming bcorder=xyz'
    endif
 
    do i=1,osolve%nnode