subbasin_allocate_obs_discharge Subroutine

  1. subbasin.f95
  2. subbasin
  3. subbasin_allocate_obs_discharge

public subroutine subbasin_allocate_obs_discharge()

Uses

  • proc~~subbasin_allocate_obs_discharge~~UsesGraph proc~subbasin_allocate_obs_discharge subbasin_allocate_obs_discharge module~input input proc~subbasin_allocate_obs_discharge->module~input module~utilities utilities module~input->module~utilities

Arguments

None

Calls

proc~~subbasin_allocate_obs_discharge~~CallsGraph proc~subbasin_allocate_obs_discharge subbasin_allocate_obs_discharge proc~has_column has_column proc~subbasin_allocate_obs_discharge->proc~has_column proc~header_column_index header_column_index proc~has_column->proc~header_column_index proc~input_error_column_not_found input_error_column_not_found proc~header_column_index->proc~input_error_column_not_found proc~move_lines move_lines proc~header_column_index->proc~move_lines proc~log_error log_error proc~input_error_column_not_found->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~string_index string_index proc~colourise->proc~string_index

Called by

proc~~subbasin_allocate_obs_discharge~~CalledByGraph proc~subbasin_allocate_obs_discharge subbasin_allocate_obs_discharge proc~subbasin_initialise subbasin_initialise proc~subbasin_initialise->proc~subbasin_allocate_obs_discharge proc~initialise initialise proc~initialise->proc~subbasin_initialise program~swim swim program~swim->proc~initialise

Contents

Source Code

subbasin_allocate_obs_discharge

Source Code

  subroutine subbasin_allocate_obs_discharge
    use input, only : has_column

    integer k
    nqobs = 0
    do k = 1, size(station_ids)
      if (has_column(station_ids(k), discharge_input_file_id)) then
        nqobs = nqobs + 1
      end if
    end do
    allocate(obs_discharge(366, nqobs))

  end subroutine subbasin_allocate_obs_discharge