anchor.diff:          md%domains(1)%boundary_subroutine => flather_boundary
       case('flather_with_vh_equal_zero')
           md%domains(1)%boundary_subroutine => flather_boundary
  +    case('boundary_stage_radiation_momentum')
  +        md%domains(1)%boundary_subroutine => boundary_stage_radiation_momentum
       case default
           stop "Invalid boundary_type value"
       end select
  
positive.code: 
          !call domain%smooth_elevation(smooth_method='9pt_average')
  
          !
          ! The DEM needs to be 'fixed' in a few places where bridges remain. Google earth    
          ! suggests the bridges should not strongly impede the flow. So based on checks of the DEM, ....
          !
          ! pol1 should have a value about -6.0
          !
  
negative.code:     use domain_mod, only: domain_type
      use multidomain_mod, only: multidomain_type, setup_multidomain, test_multidomain_mod
      use boundary_mod, only: boundary_stage_transmissive_normal_momentum, flather_boundary, &
          boundary_stage_transmissive_momentum, boundary_stage_radiation_momentum
      use local_routines
      use timer_mod
      use logging_mod, only: log_output_unit
  