validate_time_scheme_local Subroutine

   subroutine validate_time_scheme_local(scheme_name, field_name)
      character(len=*), intent(in) :: scheme_name
      character(len=*), intent(in) :: field_name
      character(len=len(scheme_name)) :: scheme

      scheme = trim(lowercase(scheme_name))
      if (len_trim(scheme) == 0) scheme = 'euler'

      select case (trim(scheme))
      case ('euler', 'forward_euler', 'forward-euler', 'ab2', 'adams_bashforth2', 'adams-bashforth2')
         return
      case default
         call fatal_error('input', trim(field_name)//' must be one of: euler, ab2')
      end select
   end subroutine validate_time_scheme_local