seasonal_set_time Subroutine

  subroutine seasonal_set_time(this, time)
    !* Author: Chris MacMackin
    !  Date: May 2017
    !
    ! Sets the time at which boundary conditions are to be calculated.
    !
    class(dallaston2015_seasonal_boundary), intent(inout) :: this
    real(r8), intent(in)                                  :: time
    this%discharge = this%mean + this%amplitude*sin(this%frequency*time)
  end subroutine seasonal_set_time