warn_unknown_bc Subroutine

private subroutine warn_unknown_bc(bc_str, param_name)

Warn if a BC string does not match any known type

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: bc_str
character(len=*), intent(in) :: param_name

Calls

proc~~warn_unknown_bc~~CallsGraph proc~warn_unknown_bc warn_unknown_bc warning warning proc~warn_unknown_bc->warning

Called by

proc~~warn_unknown_bc~~CalledByGraph proc~warn_unknown_bc warn_unknown_bc proc~validate_config validate_config proc~validate_config->proc~warn_unknown_bc proc~build_pending_handle build_pending_handle proc~build_pending_handle->proc~validate_config proc~rdb_ocean_create_from_string rdb_ocean_create_from_string proc~rdb_ocean_create_from_string->proc~build_pending_handle proc~rdb_ocean_create_pending rdb_ocean_create_pending proc~rdb_ocean_create_pending->proc~build_pending_handle

Source Code

   subroutine warn_unknown_bc(bc_str, param_name)
      !! Warn if a BC string does not match any known type
      character(len=*), intent(in) :: bc_str
      character(len=*), intent(in) :: param_name

      select case (trim(bc_str))
      case ("wall", "open", "tidal", "nested", "inflow", &
            "discharge", "clamped", "sponge", "chapman")
         continue
      case default
         call logger%warning("Unknown boundary type '"//trim(bc_str)// &
                             "' for "//param_name//", defaulting to wall")
      end select

   end subroutine warn_unknown_bc