685
685
!! Stuff needed for internal smoother
686
686
integer, dimension(:), optional, intent(in) :: surface_node_list
687
687
integer, optional, intent(in) :: internal_smoothing_option
689
688
logical, dimension(:), pointer:: inactive_mask
690
689
integer, dimension(:), allocatable:: ghost_nodes