Fixed typos, added call of new routine to define_bc.f90

src/define_bc.f90

@@ -821,6 +821,9 @@ case ('input.ritske_isurf','ritske_isurf')
 case ('input.segmented_s_line','segmented_s_line')
    call define_bc_segmented_s_line (params,osolve,vo,bcdef,nest)
 
+case ('input.segmented_s_line_advancing','segmented_s_line_advancing')
+   call define_bc_segmented_s_line_advancing (params,osolve,vo,bcdef,nest)
+
 case ('input.segmented_s_line_round','segmented_s_line_round')
    call define_bc_segmented_s_line_round (params,osolve,vo,bcdef,nest)
 

src/define_bc_segmented_s_line_advancing.f90

@@ -16,7 +16,7 @@
 !------------------------------------------------------------------------------|
 !------------------------------------------------------------------------------|
 
-subroutine define_bc_segmented_s_line(params,osolve,vo,bcdef,nest)
+subroutine define_bc_segmented_s_line_advancing(params,osolve,vo,bcdef,nest)
 
 !------------------------------------------------------------------------------|
 !((((((((((((((((  Purpose of the routine  )))))))))))))))))))))))))))))))))))))