output_register_subbasin_var Function

public function output_register_subbasin_var(name, state)

Arguments

Type IntentOptional AttributesName
character, intent(in) :: name
logical, intent(in), optional :: state

Return Value integer


Calls

proc~~output_register_subbasin_var~~CallsGraph proc~output_register_subbasin_var output_register_subbasin_var proc~output_register_var output_register_var proc~output_register_subbasin_var->proc~output_register_var proc~string_index string_index proc~output_register_var->proc~string_index proc~log_error log_error proc~output_register_var->proc~log_error proc~log_message log_message proc~log_error->proc~log_message proc~log_write log_write proc~log_message->proc~log_write proc~log_format_message log_format_message proc~log_message->proc~log_format_message proc~to_string to_string proc~log_write->proc~to_string proc~date_time_str date_time_str proc~log_format_message->proc~date_time_str proc~colourise colourise proc~log_format_message->proc~colourise proc~colourise->proc~string_index

Called by

proc~~output_register_subbasin_var~~CalledByGraph proc~output_register_subbasin_var output_register_subbasin_var proc~snow_initialise snow_initialise proc~snow_initialise->proc~output_register_subbasin_var proc~groundwater_initialise groundwater_initialise proc~groundwater_initialise->proc~output_register_subbasin_var proc~river_initialise river_initialise proc~river_initialise->proc~output_register_subbasin_var proc~hydrotope_initialise hydrotope_initialise proc~hydrotope_initialise->proc~output_register_subbasin_var proc~subbasin_initialise subbasin_initialise proc~subbasin_initialise->proc~output_register_subbasin_var proc~initialise initialise proc~initialise->proc~snow_initialise proc~initialise->proc~groundwater_initialise proc~initialise->proc~river_initialise proc~initialise->proc~hydrotope_initialise proc~initialise->proc~subbasin_initialise program~swim swim program~swim->proc~initialise

Contents


Source Code

  integer function output_register_subbasin_var(name, state)
    ! Register subbasin variable name and optionally "state" (default .True.).
    ! Returns output ID if variable requested for output, otherwise 0.
    ! If state = .False. temporal aggregation is sum not average.
    character(*), intent(in) :: name
    logical, intent(in), optional :: state
    logical s

    s = .True.
    if (present(state)) s = state
    call output_register_var(name, s, output_id_subbasin_counter, &
      output_subbasin_vars, output_register_subbasin_var)
  end function output_register_subbasin_var