hydrotope_initialise Subroutine

  1. hydrotope.f95
  2. hydrotope
  3. hydrotope_initialise

public subroutine hydrotope_initialise(mb, neap, sbar)

Uses

  • proc~~hydrotope_initialise~~UsesGraph proc~hydrotope_initialise hydrotope_initialise module~input input proc~hydrotope_initialise->module~input module~output output proc~hydrotope_initialise->module~output module~utilities utilities module~input->module~utilities module~output->module~utilities

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: mb
integer, intent(inout) :: neap(:)
real(kind=dp), intent(inout) :: sbar(:)

Calls

proc~~hydrotope_initialise~~CallsGraph proc~hydrotope_initialise hydrotope_initialise proc~hydrotope_subbasin_division hydrotope_subbasin_division proc~hydrotope_initialise->proc~hydrotope_subbasin_division proc~output_register_hydrotope_var output_register_hydrotope_var proc~hydrotope_initialise->proc~output_register_hydrotope_var proc~hydrotope_allocate hydrotope_allocate proc~hydrotope_initialise->proc~hydrotope_allocate proc~output_register_subbasin_var output_register_subbasin_var proc~hydrotope_initialise->proc~output_register_subbasin_var proc~hydrotope_read_input hydrotope_read_input proc~hydrotope_initialise->proc~hydrotope_read_input proc~log_info log_info proc~hydrotope_subbasin_division->proc~log_info proc~log_error log_error proc~hydrotope_subbasin_division->proc~log_error proc~output_register_var output_register_var proc~output_register_hydrotope_var->proc~output_register_var proc~random_n random_n proc~hydrotope_allocate->proc~random_n proc~output_register_subbasin_var->proc~output_register_var proc~hydrotope_read_input->proc~log_info proc~input_count_rows input_count_rows proc~hydrotope_read_input->proc~input_count_rows proc~input_open_file input_open_file proc~hydrotope_read_input->proc~input_open_file proc~read_real_column read_real_column proc~hydrotope_read_input->proc~read_real_column proc~read_integer_column read_integer_column proc~hydrotope_read_input->proc~read_integer_column proc~log_message log_message proc~log_info->proc~log_message proc~log_error->proc~log_message proc~output_register_var->proc~log_error proc~string_index string_index proc~output_register_var->proc~string_index proc~input_count_rows->proc~log_error proc~open_file open_file proc~input_open_file->proc~open_file float float proc~random_n->float proc~read_real_column->proc~log_error proc~input_type_conversion_error input_type_conversion_error proc~read_real_column->proc~input_type_conversion_error proc~move_lines move_lines proc~read_real_column->proc~move_lines proc~check_range check_range proc~read_real_column->proc~check_range proc~read_csv_item read_csv_item proc~read_real_column->proc~read_csv_item proc~header_column_index header_column_index proc~read_real_column->proc~header_column_index proc~input_error_column_not_found input_error_column_not_found proc~read_real_column->proc~input_error_column_not_found proc~read_integer_column->proc~log_error proc~read_integer_column->proc~input_type_conversion_error proc~read_integer_column->proc~move_lines proc~check_int_range check_int_range proc~read_integer_column->proc~check_int_range proc~read_integer_column->proc~read_csv_item proc~read_integer_column->proc~header_column_index proc~read_integer_column->proc~input_error_column_not_found proc~input_type_conversion_error->proc~log_error proc~check_int_range->proc~log_error proc~log_warn log_warn proc~check_int_range->proc~log_warn proc~out_of_range_error out_of_range_error proc~check_int_range->proc~out_of_range_error proc~check_range->proc~log_error proc~check_range->proc~log_warn proc~check_range->proc~out_of_range_error proc~open_file->proc~log_error proc~header_column_index->proc~move_lines proc~header_column_index->proc~input_error_column_not_found 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~input_error_column_not_found->proc~log_error 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~log_warn->proc~log_message proc~out_of_range_error->proc~log_error proc~out_of_range_error->proc~to_string proc~colourise->proc~string_index

Called by

proc~~hydrotope_initialise~~CalledByGraph proc~hydrotope_initialise hydrotope_initialise proc~initialise initialise proc~initialise->proc~hydrotope_initialise program~swim swim program~swim->proc~initialise

Contents

Source Code

hydrotope_initialise

Source Code

  subroutine hydrotope_initialise(mb, neap, sbar)
    use input, only : get_config_fid
    use output, only: output_register_hydrotope_var, output_register_subbasin_var
    integer, intent(in) :: mb
    integer, intent(inout) :: neap(:)
    real(dp), intent(inout) :: sbar(:)

    precipitation_output_id = output_register_hydrotope_var("precipitation", .false.)
    tmin_output_id = output_register_subbasin_var("tmin")
    tmax_output_id = output_register_subbasin_var("tmax")
    water_yield_output_id = output_register_subbasin_var("water_yield", .false.)
    tmean_output_id = output_register_subbasin_var("tmean")
    soil_water_content_output_id = output_register_hydrotope_var("soil_water_content")

    call hydrotope_read_input
    call hydrotope_subbasin_division(mb, neap, sbar)
    call hydrotope_allocate(mb)

  end subroutine hydrotope_initialise