constant_update Subroutine

   subroutine constant_update(this, t, bc)
      class(ocean_boundary_data_constant_t), intent(inout) :: this
      real(wp), intent(in) :: t
      type(ocean_bc_state_t), intent(inout) :: bc
      bc%west%clamped_u = this%u_west
      bc%east%clamped_u = this%u_east
      bc%south%clamped_v = this%v_south
      bc%north%clamped_v = this%v_north
      bc%west%clamped_eta = this%eta_west
      bc%east%clamped_eta = this%eta_east
      bc%south%clamped_eta = this%eta_south
      bc%north%clamped_eta = this%eta_north
      ! `t` unused for a constant source; kept to match the interface.
      if (.false.) then
         bc%west%clamped_u = t
         bc%west%clamped_u = this%u_west
      end if
   end subroutine constant_update